Common-RDBO-Helpers/t/get_objects_pager.t

   1 #! /usr/bin/perl
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 3;
   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 foreach my $i ( 1 .. 25 ) {
  17     my %data = (
  18         addtime => time,
  19         title   => 'foo',
  20         content => 'bar'
  21     );
  22
  23     my $post = Post->new( %data );
  24     $post->save( cascade => 1 );
  25 }
  26
  27 my $pager;
  28
  29 $pager = Post::Manager->get_objects_pager(page => 'abc');
  30
  31 is_deeply(
  32     $pager,
  33     {
  34         total     => 25,
  35         per_page => 20,
  36         page      => 1
  37     }
  38 );
  39
  40 $pager = Post::Manager->get_objects_pager(page => 3);
  41
  42 is_deeply(
  43     $pager,
  44     {
  45         total     => 25,
  46         per_page => 20,
  47         page      => 1
  48     }
  49 );
  50
  51 $pager = Post::Manager->get_objects_pager(page => 2);
  52
  53 is_deeply(
  54     $pager,
  55     {
  56         total     => 25,
  57         per_page => 20,
  58         page      => 2
  59     }
  60 );
  61
  62 my $posts = Post::Manager->get_objects();
  63 $_->delete( cascade => 1 ) foreach @$posts;