[Bast-commits] r3345 - branches/DBIx-Class-Schema-Loader/current/t/lib

blblack at dev.catalyst.perl.org blblack at dev.catalyst.perl.org
Mon May 21 19:45:31 GMT 2007


Author: blblack
Date: 2007-05-21 19:45:30 +0100 (Mon, 21 May 2007)
New Revision: 3345

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
Log:
resolved test conflict from trunk, renamed current branch loader_test25 to loader_test30

Modified: branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2007-05-21 18:41:04 UTC (rev 3344)
+++ branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2007-05-21 18:45:30 UTC (rev 3345)
@@ -478,14 +478,14 @@
 
         my @statements_rescan = (
             qq{
-                CREATE TABLE loader_test25 (
+                CREATE TABLE loader_test30 (
                     id INTEGER NOT NULL PRIMARY KEY,
                     loader_test2 INTEGER NOT NULL,
                     FOREIGN KEY (loader_test2) REFERENCES loader_test2 (id)
                 ) $self->{innodb}
             },
-            q{ INSERT INTO loader_test25 (id,loader_test2) VALUES(123, 1) },
-            q{ INSERT INTO loader_test25 (id,loader_test2) VALUES(321, 2) },
+            q{ INSERT INTO loader_test30 (id,loader_test2) VALUES(123, 1) },
+            q{ INSERT INTO loader_test30 (id,loader_test2) VALUES(321, 2) },
         );
 
         my $dbh = $self->dbconnect(1);
@@ -494,12 +494,12 @@
 
         my @new = $conn->rescan;
         is(scalar(@new), 1);
-        is($new[0], 'LoaderTest25');
+        is($new[0], 'LoaderTest30');
 
-        my $rsobj25   = $conn->resultset('LoaderTest25');
-        isa_ok($rsobj25, 'DBIx::Class::ResultSet');
-        my $obj25 = $rsobj25->find(123);
-        isa_ok( $obj25->loader_test2, $class2);
+        my $rsobj30   = $conn->resultset('LoaderTest30');
+        isa_ok($rsobj30, 'DBIx::Class::ResultSet');
+        my $obj30 = $rsobj30->find(123);
+        isa_ok( $obj30->loader_test2, $class2);
     }
 }
 
@@ -901,7 +901,7 @@
         loader_test14
     /;
 
-    my @tables_rescan = qw/ loader_test25 /;
+    my @tables_rescan = qw/ loader_test30 /;
 
     my $drop_fk_mysql =
         q{ALTER TABLE loader_test10 DROP FOREIGN KEY loader_test11_fk;};




More information about the Bast-commits mailing list