X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-deprecated.t;h=96d2d6dc770405ed987c60adead6c3ae4e8f5b50;hb=refs%2Fheads%2Fmigration_schema;hp=84e25f285e6a6932350f3b98f30fbd08f0cf2755;hpb=91adde755e5808a1ec12bcf00e683e3754964cc9;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git diff --git a/t/03-deprecated.t b/t/03-deprecated.t index 84e25f2..96d2d6d 100644 --- a/t/03-deprecated.t +++ b/t/03-deprecated.t @@ -13,13 +13,13 @@ use Test::Exception; DBICDHTest::ready; -my $db = 'dbi:SQLite:db.db'; -my @connection = ($db, '', '', { ignore_version => 1 }); +my $dbh = DBICDHTest::dbh(); +my @connection = (sub { $dbh }, { ignore_version => 1 }); my $sql_dir = 't/sql'; VERSION1: { use_ok 'DBICVersion_v1'; - my $s = DBICVersion::Schema->connect(@connection); + my $s = DBICVersion::Schema1->connect(@connection); is $s->schema_version, '1.0', 'schema version is at 1.0'; ok($s, 'DBICVersion::Schema 1.0 instantiates correctly'); my $handler = Deprecated->new({ @@ -52,7 +52,7 @@ VERSION1: { VERSION2: { use_ok 'DBICVersion_v2'; - my $s = DBICVersion::Schema->connect(@connection); + my $s = DBICVersion::Schema2->connect(@connection); is $s->schema_version, '2.0', 'schema version is at 2.0'; ok($s, 'DBICVersion::Schema 2.0 instantiates correctly'); my $handler = Deprecated->new({ @@ -89,7 +89,7 @@ VERSION2: { VERSION3: { use_ok 'DBICVersion_v3'; - my $s = DBICVersion::Schema->connect(@connection); + my $s = DBICVersion::Schema3->connect(@connection); is $s->schema_version, '3.0', 'schema version is at 3.0'; ok($s, 'DBICVersion::Schema 3.0 instantiates correctly'); my $handler = Deprecated->new({