Common-RDBO-Helpers/t/get_objects_archive.t

   1 #! /usr/bin/perl
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 8;
   6
   7 use NewDB;
   8 use Post;
   9 use Post::Manager;
  10 use DateTime;
  11
  12 my $db = NewDB->new();
  13
  14 $db->init();
  15
  16 my @data = (
  17     {
  18         addtime => DateTime->new( year => 2008, month => 8, day => 31 )->epoch,
  19         title   => 'Linux',
  20         content => 'blah-blah'
  21     },
  22     {
  23         addtime => DateTime->new( year => 2008, month => 8, day => 31 )->epoch,
  24         title   => 'Unix',
  25         content => 'blah-blah'
  26     },
  27     {
  28         addtime => DateTime->new( year => 2008, month => 7, day => 21 )->epoch,
  29         title   => 'Unix',
  30         content => 'blah-blah'
  31     },
  32     {
  33         addtime => DateTime->new( year => 2008, month => 7, day => 31 )->epoch,
  34         title   => 'BSD',
  35         content => 'blah-blah'
  36     },
  37     {
  38         addtime => DateTime->new( year => 2008, month => 5, day => 1 )->epoch,
  39         title   => 'BSD',
  40         content => 'blah-blah'
  41     },
  42     {
  43         addtime => DateTime->new( year => 2007, month => 2, day => 3 )->epoch,
  44         title   => 'BSD',
  45         content => 'blah-blah'
  46     },
  47     ,
  48 );
  49
  50 foreach my $data ( @data ) {
  51     my $post = Post->new( %$data );
  52
  53     $post->save( cascade => 1 );
  54 }
  55
  56 my $archive;
  57
  58 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2006 );
  59 is( @$archive, 0 );
  60
  61 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2007 );
  62 is( @$archive, 1 );
  63
  64 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2008 );
  65 is( @$archive, 5 );
  66
  67 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2008, month => 8 );
  68 is( @$archive, 2 );
  69
  70 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2008, month => 8, day => 31 );
  71 is( @$archive, 2 );
  72
  73 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2008, month => 7, day => 21 );
  74 is( @$archive, 1 );
  75 $archive = Post::Manager->get_objects_archive( column => 'addtime', year => 2008, month => 8, day => 31 );
  76 is( @$archive, 2 );
  77
  78 my $month_list =
  79   Post::Manager->get_objects_archive_month_list( column => 'addtime' );
  80
  81 is_deeply(
  82     $month_list,
  83     [
  84         {
  85             count      => 2,
  86             year       => 2008,
  87             month      => 8,
  88             month_name => 'August'
  89         },
  90         {
  91             count      => 2,
  92             year       => 2008,
  93             month      => 7,
  94             month_name => 'July'
  95         },
  96         {
  97             count      => 1,
  98             year       => 2008,
  99             month      => 5,
 100             month_name => 'May'
 101         },
 102         {
 103             count      => 1,
 104             year       => 2007,
 105             month      => 2,
 106             month_name => 'February'
 107         }
 108     ]
 109 );
 110
 111 my $posts = Post::Manager->get_objects();
 112 $_->delete( cascade => 1 ) foreach @$posts;