columns_info_for from zby, fixes to per-db tests

[dbsrgits/DBIx-Class.git] / t / run / 14mssql.tl

diff --git a/t/run/14mssql.tl b/t/run/14mssql.tl
index 375bcb2..4a9e696 100644 (file)
--- a/t/run/14mssql.tl
+++ b/t/run/14mssql.tl
@@ -1,4 +1,5 @@
-sub run_tests {\r
+sub run_tests {
+my $schema = shift;\r
 \r
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};\r
 \r
@@ -9,9 +10,9 @@ plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'
 \r
 plan tests => 4;\r
 \r
-DBICTest->class("Schema")->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );\r
+$schema->resultset("Schema")->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );\r
 \r
-my $dbh = MSSQLTest::Artist->storage->dbh;\r
+my $dbh = MSSQLTest->schema->storage->dbh;\r
 \r
 $dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL\r
     DROP TABLE artist");\r