[Bast-commits] r8142 - DBIx-Class/0.08/branches/sqlt_parser_view/t

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2009-12-18 13:40:32 +0000 (Fri, 18 Dec 2009)
New Revision: 8142

Modified:
   DBIx-Class/0.08/branches/sqlt_parser_view/t/99dbic_sqlt_parser.t
Log:
use Test::Exception


Modified: DBIx-Class/0.08/branches/sqlt_parser_view/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/branches/sqlt_parser_view/t/99dbic_sqlt_parser.t	2009-12-18 13:34:14 UTC (rev 8141)
+++ DBIx-Class/0.08/branches/sqlt_parser_view/t/99dbic_sqlt_parser.t	2009-12-18 13:40:32 UTC (rev 8142)
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;
 
@@ -81,7 +82,10 @@
     eval {
 	    my $sqlt_schema = create_schema({ schema => $schema_invalid_view });
     };
-    like($@, qr/view noviewdefinition is missing a view_definition/, "parser detects views with a view_definition");
+    #like($@, qr/view noviewdefinition is missing a view_definition/, "parser detects views with a view_definition");
+    throws_ok { create_schema({ schema => $schema_invalid_view }) }
+        qr/view noviewdefinition is missing a view_definition/,
+        'parser detects views with a view_definition';
     
 #    my @views = $sqlt_schema->get_views;
 #