[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