Common-Form-Processor-Model-RDBO/t/create.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 $form = Form->new();
  15
  16 ok( $form->validate( { name => 'tom' } ) );
  17
  18 my $item = $form->update_from_form();
  19 $item->save();
  20
  21 my $u = User->new( name => 'tom' );
  22 $u->load( speculative => 1 );
  23 is( $u->not_found, 0 );
  24
  25 $u->delete();