6 use Test::More qw(no_plan);
10 use DateTime::Format::Strptime;
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 $formatter = DateTime::Format::Strptime->new(pattern => '%Y');
31 my $dt = DateTime->new(year => 2006, month => 06, day => 06,
32 formatter => $formatter );
35 $cd = $cd_rs->search({ year => $dt})->create
37 artist => {name => 'Guillermo2'},
38 title => 'Guillermo 2',
48 $artist = $artist_rs->search({ name => {'!=' => 'Killer'}})
49 ->create({artistid => undef});
51 is($artist->name, undef);
58 $artist = $artist_rs->search({ name => [ q/ some stupid names here/]})
59 ->create({artistid => undef});
61 is($artist->name, undef);