Form-Processor-Model-RDBO/t/create-many-to-one.t

   1 use strict;
   2 use Test::More tests => 3;
   3
   4 use lib 't/lib';
   5
   6 use NewDB;
   7 use RDBO::Artist;
   8 use RDBO::Album;
   9 use Form::Album;
  10
  11 my $db = NewDB->new();
  12
  13 $db->init();
  14
  15 foreach my $artist ( qw/ purgen rage / ) {
  16     RDBO::Artist->new( name => $artist )->save();
  17 }
  18
  19 my $form = Form::Album->new();
  20
  21 ok( $form );
  22
  23 ok( $form->validate( { title => 'Album1', artist_fk => 1 } ) );
  24
  25 my $item = $form->update_from_form();
  26 $item->save();
  27
  28 is( $item->artist_id, 1 );
  29
  30 $item->delete();
  31
  32 my $items = Rose::DB::Object::Manager->get_objects(object_class => 'RDBO::Artist');
  33
  34 $_->delete() foreach @$items;