[Bast-commits] r6878 - branches/DBIx-Class-Schema-Loader/mssql_tweaks/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-30 13:48:39 +0000 (Tue, 30 Jun 2009)
New Revision: 6878

Modified:
   branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/17mssql_odbc_dot_in_table_name.t
Log:
add constraint to dot in table name test

Modified: branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/17mssql_odbc_dot_in_table_name.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/17mssql_odbc_dot_in_table_name.t	2009-06-30 11:48:13 UTC (rev 6877)
+++ branches/DBIx-Class-Schema-Loader/mssql_tweaks/t/17mssql_odbc_dot_in_table_name.t	2009-06-30 13:48:39 UTC (rev 6878)
@@ -27,9 +27,9 @@
     RaiseError => 1, PrintError => 0
 });
 
-eval { $dbh->do('DROP TABLE [test.dot]') };
+eval { $dbh->do('DROP TABLE [loadertest.dot]') };
 $dbh->do(q{
-    CREATE TABLE [test.dot] (
+    CREATE TABLE [loadertest.dot] (
         id INT IDENTITY NOT NULL PRIMARY KEY,
         dat VARCHAR(8)
     )
@@ -40,7 +40,10 @@
 eval {
     make_schema_at(
         'TestSL::Schema', 
-        { use_namespaces => 1 },
+        {
+            use_namespaces => 1,
+            constraint => qr/^loadertest\.dot\z/
+        },
         [ $dsn, $user, $password, ]
     );
 };
@@ -48,7 +51,7 @@
 ok !$@, 'table name with . parsed correctly';
 diag $@ if $@;
 
-#system qq{$^X -pi -e 's/"test\.dot"/\\\\"[test.dot]"/' t/_common_dump/TestSL/Schema/Result/TestDot.pm};
+#system qq{$^X -pi -e 's/"test\.dot"/\\\\"[loadertest.dot]"/' t/_common_dump/TestSL/Schema/Result/TestDot.pm};
 #diag do { local ($/, @ARGV) = (undef, "t/_common_dump/TestSL/Schema/Result/TestDot.pm"); <> };
 #do "t/_common_dump/TestSL/Schema/Result/TestDot.pm";
 
@@ -61,7 +64,7 @@
 and it doesn't work in the released version yet};
 
     eval {
-        my $rs = TestSL::Schema->resultset('TestDot');
+        my $rs = TestSL::Schema->resultset('LoadertestDot');
         my $row = $rs->create({ dat => 'foo' });
         $row->update({ dat => 'bar' });
         $row = $rs->find($row->id);
@@ -73,4 +76,4 @@
 
 rmtree $DUMP_DIR;
 
-$dbh->do('DROP TABLE [test.dot]');
+$dbh->do('DROP TABLE [loadertest.dot]');