[Bast-commits] r8142 - DBIx-Class/0.08/branches/sqlt_parser_view/t
abraxxa at dev.catalyst.perl.org
abraxxa at dev.catalyst.perl.org
Fri Dec 18 13:40:32 GMT 2009
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;
#
More information about the Bast-commits
mailing list