use unlike in test to make error report more useful

diff --git a/t/18inserterror.t b/t/18inserterror.t
index 005209a..2efb8d5 100644 (file)
--- a/t/18inserterror.t
+++ b/t/18inserterror.t
@@ -24,6 +24,6 @@ my $schema = DBICTest->init_schema;
                 ->create({ title => 'vacation in antarctica' })
        };
        like $@, qr/NULL/;  # as opposed to some other error
-       ok( $warnings !~ /uninitialized value/, "No warning from Storage" );
+       unlike( $warnings, qr/uninitialized value/, "No warning from Storage" );
 }