Common-RDBO-Helpers/t/get_objects_cloud.t

   1 #! /usr/bin/perl
   2
   3 use lib 't/lib';
   4
   5 use Test::More 'tests' => 2;
   6
   7 use NewDB;
   8 use Post;
   9 use Post::Manager;
  10 use Tag;
  11 use Tag::Manager;
  12
  13 my $db = NewDB->new();
  14
  15 $db->init();
  16
  17 my @data = (
  18     {
  19         addtime  => time,
  20         title    => 'Linux',
  21         content  => 'blah-blah',
  22         tags => [ { name => 'linux' }, { name => 'unix' }, { name => 'bsd' }, ]
  23     },
  24     {
  25         addtime => time + 5,
  26         title   => 'Unix',
  27         content => 'blah-blah',
  28         tags    => [ { name => 'linux' }, { name => 'unix' }, ]
  29     },
  30     {
  31         addtime => time + 10,
  32         title   => 'BSD',
  33         content => 'blah-blah',
  34         tags    => [ { name => 'linux' }, ]
  35     },
  36 );
  37
  38 foreach my $data ( @data ) {
  39     my $tags     = delete $data->{ tags };
  40
  41     my $tag = Post->new( %$data );
  42
  43     $tag->tags( $tags );
  44
  45     $tag->save( cascade => 1 );
  46 }
  47
  48 my $tags = Tag::Manager->get_tags();
  49
  50 is( scalar @$tags, 3 );
  51
  52 $cloud = Tag::Manager->get_objects_cloud(
  53     rel_name      => 'post_tag_map',
  54     active_column => 'name',
  55     count_method  => 'count'
  56 );
  57
  58 is_deeply(
  59     $cloud,
  60     [
  61         {
  62             'level' => 0,
  63             'count' => 1,
  64             'name'  => 'bsd',
  65             'id'    => '3'
  66         },
  67         {
  68             'level' => 3,
  69             'count' => 3,
  70             'name'  => 'linux',
  71             'id'    => '1'
  72         },
  73         {
  74             'level' => 1,
  75             'count' => 2,
  76             'name'  => 'unix',
  77             'id'    => '2'
  78         }
  79
  80     ]
  81 );
  82
  83 my $posts = Post::Manager->get_objects();
  84 $_->delete( cascade => 1 ) foreach @$posts;