Common-RDBO-Helper/t/post-similar.t

   1 #!/usr/bin/perl
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 4;
   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         tags => [ { name => 'linux' }, { name => 'unix' }, { name => 'bsd' }, ]
  21     },
  22     {
  23         addtime => time + 5,
  24         title   => 'Unix',
  25         content => 'blah-blah',
  26         tags    => [ { name => 'linux' }, { name => 'unix' }, ]
  27     },
  28     {
  29         addtime => time + 10,
  30         title   => 'BSD',
  31         content => 'blah-blah',
  32         tags    => [ { name => 'linux' }, ]
  33     },
  34     {
  35         addtime => time,
  36         title   => 'Alone',
  37         content => 'blah-blah',
  38     },
  39 );
  40
  41 foreach my $data ( @data ) {
  42     my $tags = delete $data->{ tags };
  43
  44     my $post = Post->new( %$data );
  45
  46     $post->tags( $tags ) if $tags;
  47
  48     $post->save( cascade => 1 );
  49 }
  50
  51 my $posts = Post::Manager->get_posts();
  52
  53 is( scalar @$posts, 4 );
  54
  55 my $post = Post->new( id => 1 );
  56 $post->load();
  57
  58 my $similar = Post::Manager->get_list_similar( post => $post );
  59 is( scalar @$similar, 2 );
  60
  61 my $similar = Post::Manager->get_list_similar( post => 4 );
  62 ok( not defined $similar );
  63
  64 my $similar = Post::Manager->get_list_similar( post => 5 );
  65 ok( not defined $similar );
  66
  67 my $posts = Post::Manager->get_objects();
  68 $_->delete( cascade => 1 ) foreach @$posts;