Common-RDBO-Helper/t/get_prev_next_objects.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
  11 my $db = NewDB->new();
  12
  13 $db->init();
  14
  15 my @data = (
  16     {
  17         addtime => time,
  18         title   => 'Linux',
  19         content => 'blah-blah',
  20     },
  21     {
  22         addtime => time + 5,
  23         title   => 'Unix',
  24         content => 'blah-blah',
  25     },
  26     {
  27         addtime => time + 10,
  28         title   => 'BSD',
  29         content => 'blah-blah',
  30     },
  31 );
  32
  33 foreach my $data ( @data ) {
  34     my $post = Post->new( %$data );
  35
  36     $post->save( cascade => 1 );
  37 }
  38
  39 my $posts = Post::Manager->get_posts();
  40
  41 is( scalar @$posts, 3 );
  42
  43 foreach my $post ( @$posts ) {
  44     ok( $post->title );
  45
  46     if ( $post->title eq 'Linux' ) {
  47         is( @{ $post->get_prev_objects( column => 'addtime', limit  => 1) }, 0);
  48     } elsif ( $post->title eq 'Unix' ) {
  49         is( @{ $post->get_prev_objects( column => 'addtime', limit  => 1) }, 1);
  50         is( @{ $post->get_next_objects( column => 'addtime', limit  => 1) }, 1);
  51     } elsif ( $post->title eq 'BSD' ) {
  52         is( @{ $post->get_next_objects( column => 'addtime', limit  => 1) }, 0);
  53     }
  54 }
  55
  56 my $posts = Post::Manager->get_objects();
  57 $_->delete( cascade => 1 ) foreach @$posts;