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

   1 use strict;
   2 use Test::More tests => 3;
   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', orig_lang => 'en' );
  15 $u->save(cascade => 1);
  16
  17 my $form = Form->new( $u );
  18
  19 my $item = $form->update_from_form({ name => 'bar', signature => 'abc' });
  20 ok( $item );
  21 $item->save( cascade => 1 );
  22
  23 is( $u->name, 'bar' );
  24 is( $u->i18n->signature, 'abc' );
  25
  26 $u->delete();