Common-Form-Processor-Model-RDBO/t/unique.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 $form = Form->new();
  15
  16 ok( $form->validate( { name => 'haha' } ) );
  17
  18 my $u = User->new( name => 'haha' );
  19 $u->save();
  20
  21 ok( not defined $form->validate( { name => 'haha' } ) );
  22
  23 $form = Form->new( $u );
  24 ok( $form->validate( { name => 'haha' } ) );
  25
  26 $u->delete();