[Bast-commits] r4805 - DBIx-Class/0.08/trunk/t
matthewt at dev.catalyst.perl.org
matthewt at dev.catalyst.perl.org
Sat Sep 13 17:28:48 BST 2008
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" );
}
More information about the Bast-commits
mailing list