1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
12 # The nullchecks metadata for this collapse resolution is:
14 # mandatory => { 0 => 1 }
15 # from_first_encounter => [ [ 1, 2, 3 ] ]
16 # all_or_nothing => [ { 1 => 1, 2 => 1 } ]
18 my $rs = $schema->resultset('Artist')->search({}, {
20 join => { cds => 'tracks' },
26 { 'cds.tracks.title' => 'tracks.title' },
32 => [ undef, 0, 0, undef ],
34 "'artistid', 'cds.title'"
35 => [ undef, 0, undef, undef ],
37 "'artistid', 'cds.artist'"
38 => [ undef, undef, 0, undef ],
41 => [ 0, undef, 0, 0 ],
44 => [ 0, 0, undef, 0 ],
46 # petrhaps need to report cds.title here as well, but that'll complicate checks even more...
48 => [ 0, undef, undef, 0 ],
52 my ($err, $cursor) = splice @cases, 0, 2;
54 $rs->{_stashed_rows} = [ $cursor ];
58 qr/\Qthe following columns are declared (or defaulted to) non-nullable within DBIC but NULLs were retrieved from storage: $err within data row/,
59 "Correct exception on non-nullable-yet-NULL $err"