Rose-DB-Object-VCS/t/commit.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 12;
   7
   8 use lib 't/lib';
   9
  10 use NewDB;
  11 use Post;
  12 use Post::Manager;
  13
  14 my $db = NewDB->new();
  15
  16 $db->init();
  17
  18 my $post = Post->new(
  19     title   => 'Wow',
  20     content => 'Look there!',
  21     user_id => 1
  22 );
  23 $post->commit();
  24
  25 ok( $post->addtime );
  26 is( $post->revision, 1 );
  27 is( $post->user_id,  1 );
  28 is( $post->title,    'Wow' );
  29 is( $post->content,  'Look there!' );
  30
  31 $post = Post->new( id => $post->id );
  32 $post->load();
  33 is( $post->revision, 1 );
  34
  35 my $old_addtime = $post->addtime;
  36 sleep( 1 );
  37
  38 $post->commit;
  39 is( $post->revision, 1, 'Commit without changes' );
  40
  41 $post->title( $post->title );
  42 $post->commit;
  43 is( $post->revision, 1, 'Commit without changes' );
  44
  45 $post->title( 'Wuw' );
  46 $post->user_id( 2 );
  47 $post->commit();
  48
  49 isnt( $old_addtime, $post->addtime );
  50
  51 is( $post->revision, 2 );
  52 is( $post->title,    'Wuw' );
  53
  54 is( scalar @{ $post->diffs }, 1 );
  55
  56 $post->delete( cascade => 1 );