7 eval "use DBD::SQLite";
9 ? ( skip_all => 'needs DBD::SQLite for testing' )
16 use_ok( 'DBICTest::Schema' );
17 my $schema = DBICTest->init_schema;
21 local $SIG{__WARN__} = sub { $warnings .= $_[0] };
23 $schema->resultset('CD')
24 ->create({ title => 'vacation in antarctica' })
26 like $@, qr/NULL/; # as opposed to some other error
27 unlike( $warnings, qr/uninitialized value/, "No warning from Storage" );