X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fversion_storages%2Fstandard.t;h=cc1681dd023be782ba5b59417e15ed95d2178694;hp=01bdb0ec2641a66d162e3aedba11cd16b225dada;hb=refs%2Fheads%2Fmigration_schema;hpb=cdb45dee99a52a37f6e61bfbec2e4af8f3a59f51 diff --git a/t/version_storages/standard.t b/t/version_storages/standard.t index 01bdb0e..cc1681d 100644 --- a/t/version_storages/standard.t +++ b/t/version_storages/standard.t @@ -17,11 +17,11 @@ my $dbh = DBICDHTest::dbh(); my @connection = (sub { $dbh }, { ignore_version => 1 }); my $sql_dir = 't/sql'; -my $s = DBICVersion::Schema->connect(@connection); +my $s = DBICVersion::Schema1->connect(@connection); { my $warning; local $SIG{__WARN__} = sub {$warning = shift}; - my $t = DBICVersion::Schema->connect('frewfrew', '', ''); + my $t = DBICVersion::Schema1->connect('frewfrew', '', ''); like( $warning, qr/Your DB is currently unversioned. Please call upgrade on your schema to sync the DB/, 'warning when database is unversioned'); } @@ -82,7 +82,7 @@ my $u; { my $warning; local $SIG{__WARN__} = sub {$warning = shift}; - $u = DBICVersion::Schema->connect(sub { $dbh }); + $u = DBICVersion::Schema1->connect(sub { $dbh }); like( $warning, qr/Versions out of sync. This is 1\.0, your database contains version 2\.0, please call upgrade on your Schema\./, 'warning when database/schema mismatch'); }