Common-RDBO-Helper/t/get_master_object.t

   1 #! /usr/bin/perl
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 7;
   6
   7 use NewDB;
   8 use Post;
   9 use Post::Manager;
  10 use Article;
  11 use Article::Manager;
  12 use Comment;
  13 use Comment::Manager;
  14 use DateTime;
  15
  16 my $db = NewDB->new();
  17
  18 $db->init();
  19
  20 my @posts = (
  21     {
  22         addtime  => time,
  23         title    => 'Linux',
  24         content  => 'blah-blah',
  25         comments => [
  26             {
  27                 addtime => time,
  28                 type    => 'post',
  29                 name    => 'anon',
  30                 content => 'hallo'
  31             }
  32         ],
  33     }
  34 );
  35
  36 my @articles = (
  37     {
  38         addtime  => time,
  39         title    => 'FreeBSD',
  40         content  => 'blah-blah',
  41         comments => [
  42             {
  43                 addtime => time,
  44                 type    => 'article',
  45                 name    => 'bar',
  46                 content => 'foo'
  47             }
  48         ],
  49     }
  50 );
  51
  52 foreach my $post ( @posts ) {
  53     my $comments = delete $post->{ comments };
  54
  55     my $post = Post->new( %$post );
  56
  57     $post->comments( $comments );
  58
  59     $post->save( cascade => 1 );
  60 }
  61
  62 foreach my $article ( @articles ) {
  63     my $comments = delete $article->{ comments };
  64
  65     my $article = Article->new( %$article );
  66
  67     $article->comments( $comments );
  68
  69     $article->save( cascade => 1 );
  70 }
  71
  72 my $comments = Comment::Manager->get_objects();
  73
  74 is( scalar @$comments, 2 );
  75
  76 my $article_comments =
  77   Comment::Manager->get_objects( query => [ type => 'article' ] );
  78
  79 is( scalar @$article_comments, 1 );
  80
  81 my $comment = $article_comments->[ 0 ];
  82 is( $comment->type, 'article' );
  83
  84 my $master = $comment->get_master_object();
  85 ok( $master );
  86
  87 is( $master->title, 'FreeBSD' );
  88
  89 $comment = Comment->new(master_id => 1, type => 'article');
  90 $comment->load();
  91 is($comment->type, 'article');
  92 is($comment->content, 'foo');
  93
  94 my $articles = Article::Manager->get_objects();
  95 $_->delete( cascade => 1 ) foreach @$articles;
  96
  97 my $posts = Post::Manager->get_objects();
  98 $_->delete( cascade => 1 ) foreach @$posts;