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');
}
{
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');
}