Common-Form-Processor-Model-RDBO/t/changes.t

   1 use strict;
   2 use Test::More tests => 3;
   3
   4 use Rose::DB::Object::Util 'has_modified_columns';
   5
   6 use lib 't/lib';
   7
   8 use NewDB;
   9 use User;
  10 use Form;
  11
  12 my $db = NewDB->new();
  13
  14 $db->init();
  15
  16 my $form = Form->new();
  17
  18 ok( $form->validate( { name => 'tom' } ) );
  19
  20 my $item = $form->update_from_form();
  21 $item->save();
  22
  23 $form = Form->new( $item );
  24 $form->validate( { name => 'tom' } );
  25 $form->update_from_form( $item );
  26 is( has_modified_columns( $item ), 0 );
  27
  28 $form = Form->new( $item );
  29 $form->validate( { name => 'to' } );
  30 $form->update_from_form();
  31 ok( has_modified_columns( $item ) );
  32 $item->save();
  33
  34 $item->delete();