[Catalyst-commits] r10593 - trunk/Catalyst-Model-DBIC-Schema/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-19 15:55:02 +0000 (Fri, 19 Jun 2009)
New Revision: 10593

Modified:
   trunk/Catalyst-Model-DBIC-Schema/t/05testapp.t
Log:
add test for rt#47101

Modified: trunk/Catalyst-Model-DBIC-Schema/t/05testapp.t
===================================================================
--- trunk/Catalyst-Model-DBIC-Schema/t/05testapp.t	2009-06-19 15:43:49 UTC (rev 10592)
+++ trunk/Catalyst-Model-DBIC-Schema/t/05testapp.t	2009-06-19 15:55:02 UTC (rev 10593)
@@ -12,11 +12,12 @@
 my $test_params = [
     [ 'TestSchema', 'DBIC::Schema', '' ],
     [ 'TestSchemaDSN', 'DBIC::Schema', q{fakedsn fakeuser fakepass "{ AutoCommit => 1 }"} ],
+    [ 'TestSchemaDSN', 'DBIC::Schema', q{create=static traits=Caching moniker_map="{ roles => \"ROLE\" }" constraint="^users\z" dbi:SQLite:testdb.db} ],
     [ 'TestSchemaDSN', 'DBIC::Schema', q{create=static traits=Caching moniker_map="{ roles => \"ROLE\" }" constraint="^users\z" dbi:SQLite:testdb.db "" "" on_connect_do="[\"select 1\", \"select 2\"]" quote_char="\""} ],
     [ 'TestSchemaDSN', 'DBIC::Schema', q{create=static traits=Caching moniker_map="{ roles => \"ROLE\" }" dbi:SQLite:testdb.db on_connect_do="[\"select 1\", \"select 2\"]" quote_char="\""} ],
 ];
 
-plan tests => (2 * @$test_params + 2);
+plan tests => (2 * @$test_params + 3);
 
 my $test_dir   = $FindBin::Bin;
 my $blib_dir   = File::Spec->catdir ($test_dir, '..', 'blib', 'lib');