8 my $schema = DBICTest->init_schema();
11 my $cd_rs = $schema->resultset('CD')->search ({ genreid => undef }, { columns => [ 'genreid' ]} );
12 my $count = $cd_rs->count;
13 cmp_ok ( $count, '>', 1, 'several CDs with no genre');
15 my @objects = $cd_rs->all;
16 is (scalar @objects, $count, 'Correct amount of objects without limit');
17 isa_ok ($_, 'DBICTest::CD') for @objects;
20 [ map { values %{{$_->get_columns}} } (@objects) ],
22 'All values are indeed undef'
26 isa_ok ($cd_rs->search ({}, { rows => 1 })->single, 'DBICTest::CD');