[Bast-commits] r4805 - DBIx-Class/0.08/trunk/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-09-13 17:28:48 +0100 (Sat, 13 Sep 2008)
New Revision: 4805

Modified:
   DBIx-Class/0.08/trunk/t/18inserterror.t
Log:
use unlike in test to make error report more useful

Modified: DBIx-Class/0.08/trunk/t/18inserterror.t
===================================================================
--- DBIx-Class/0.08/trunk/t/18inserterror.t	2008-09-11 22:26:24 UTC (rev 4804)
+++ DBIx-Class/0.08/trunk/t/18inserterror.t	2008-09-13 16:28:48 UTC (rev 4805)
@@ -24,6 +24,6 @@
                 ->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" );
 }