[Bast-commits] r7281 - DBIx-Class/0.08/trunk/t/create

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-10 06:01:59 +0000 (Mon, 10 Aug 2009)
New Revision: 7281

Modified:
   DBIx-Class/0.08/trunk/t/create/set_column.t
Log:
Fix bogus test

Modified: DBIx-Class/0.08/trunk/t/create/set_column.t
===================================================================
--- DBIx-Class/0.08/trunk/t/create/set_column.t	2009-08-09 17:10:56 UTC (rev 7280)
+++ DBIx-Class/0.08/trunk/t/create/set_column.t	2009-08-10 06:01:59 UTC (rev 7281)
@@ -2,6 +2,7 @@
 use strict;
 
 use Test::More;
+use Test::Exception;
 
 use lib qw(t/lib);
 use DBICTest;
@@ -34,14 +35,11 @@
     $row->get_from_storage;
     is( $row->increment, 4 );
 
-    eval {
+    throws_ok (sub {
         $row =
           $schema->resultset('Track')
           ->create( { title => 'bar', cd => 2, set_increment => 1 } );
-    };
-    ok( !$@, 'lives ok' );
-    is( $row->increment, 1 );
-
+    }, qr/no such column/i);
 }
 
 done_testing;