1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
13 my $schema = DBICTest->init_schema();
14 my $artist_rs = $schema->resultset('Artist');
15 my $cd_rs = $schema->resultset('CD');
20 $cd = $cd_rs->search({ year => {'=' => 1999}})->create
22 artist => {name => 'Guillermo1'},
23 title => 'Guillermo 1',
30 my $dt = Math::BigInt->new(2006);
34 $cd = $cd_rs->search({ year => $dt})->create
36 artist => {name => 'Guillermo2'},
37 title => 'Guillermo 2',
47 $artist = $artist_rs->search({ name => {'!=' => 'Killer'}})
48 ->create({artistid => undef});
50 is($artist->name, undef);
57 $artist = $artist_rs->search({ name => [ qw(some stupid names here) ]})
58 ->create({artistid => undef});
60 is($artist->name, undef);