Some test hackage

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

diff --git a/t/run/14mssql.tl b/t/run/14mssql.tl
index 375bcb2..feb007d 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,7 +10,7 @@ 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->class("Schema")->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );\r
 \r
 my $dbh = MSSQLTest::Artist->storage->dbh;\r
 \r