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

   1 use strict;
   2 use Test::More tests => 2;
   3
   4 use lib 't/lib';
   5
   6 use NewDB;
   7 use User;
   8 use Form;
   9
  10 my $db = NewDB->new();
  11
  12 $db->init();
  13
  14 my $u = User->new( name => 'foo' );
  15 $u->save();
  16
  17 my $form = Form->new( $u );
  18 ok( $form->validate( { name => 'bar' } ) );
  19
  20 diag $form->field('name')->errors;
  21
  22 $form->update_from_form();
  23
  24 is( $u->name, 'bar' );
  25
  26 $u->delete();