Rose-DB-Object-VCS/t/last-diff.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 2;
   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     user_id => 1,
  20     title => 'bu',
  21     content => 'how',
  22     user_id => 1
  23 );
  24 $post->commit();
  25
  26 $post = Post->new(id => $post->id);
  27 $post->load();
  28
  29 my $diff = $post->last_diff();
  30
  31 ok( not defined $diff );
  32
  33 $post->title( 'hello' );
  34 $post->commit();
  35
  36 $diff = $post->last_diff();
  37
  38 ok( $diff );
  39
  40 $post->delete(cascade => 1);