From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 10 Aug 2009 06:01:59 +0000 (+0000)
Subject: Fix bogus test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7f44160e9ef581f49b5e1f2f3c6532c0af1db67;p=dbsrgits%2FDBIx-Class-Historic.git

Fix bogus test
---

diff --git a/t/create/set_column.t b/t/create/set_column.t
index 2cc462b..9a2edd2 100644
--- a/t/create/set_column.t
+++ b/t/create/set_column.t
@@ -2,6 +2,7 @@ use warnings;
 use strict;
 
 use Test::More;
+use Test::Exception;
 
 use lib qw(t/lib);
 use DBICTest;
@@ -34,14 +35,11 @@ TODO: {
     $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;