From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 13 Feb 2006 15:37:06 +0000 (+0000)
Subject: fix up 14mssql.tl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eef2ff6ce649e83fb22d62ae355c657c232d76c3;p=dbsrgits%2FDBIx-Class-Historic.git

fix up 14mssql.tl
---

diff --git a/t/run/14mssql.tl b/t/run/14mssql.tl
index 4a9e696..5dcc2bc 100644
--- a/t/run/14mssql.tl
+++ b/t/run/14mssql.tl
@@ -1,48 +1,48 @@
 sub run_tests {
-my $schema = shift;
-
-my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};
-
-#warn "$dsn $user $pass";
-
-plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'
-  unless ($dsn);
-
-plan tests => 4;
-
-$schema->resultset("Schema")->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );
-
-my $dbh = MSSQLTest->schema->storage->dbh;
-
-$dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL
-    DROP TABLE artist");
-
-$dbh->do("CREATE TABLE artist (artistid INT IDENTITY PRIMARY KEY, name VARCHAR(255));");
-
-MSSQLTest::Artist->load_components('PK::Auto::MSSQL');
-
-# Test PK
-my $new = MSSQLTest::Artist->create( { name => 'foo' } );
-ok($new->artistid, "Auto-PK worked");
-
-# Test LIMIT
-for (1..6) {
-    MSSQLTest::Artist->create( { name => 'Artist ' . $_ } );
-}
-
-my $it = MSSQLTest::Artist->search( { },
-    { rows     => 3,
-      offset   => 2,
-      order_by => 'artistid'
-    }
-);
-
-is( $it->count, 3, "LIMIT count ok" );
-is( $it->next->name, "Artist 2", "iterator->next ok" );
-$it->next;
-$it->next;
-is( $it->next, undef, "next past end of resultset ok" );
-
-}
-
-1;
+my $schema = shift;
+
+my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};
+
+#warn "$dsn $user $pass";
+
+plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'
+  unless ($dsn);
+
+plan tests => 4;
+
+$schema->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );
+
+my $dbh = MSSQLTest->schema->storage->dbh;
+
+$dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL
+    DROP TABLE artist");
+
+$dbh->do("CREATE TABLE artist (artistid INT IDENTITY PRIMARY KEY, name VARCHAR(255));");
+
+MSSQLTest::Artist->load_components('PK::Auto::MSSQL');
+
+# Test PK
+my $new = MSSQLTest::Artist->create( { name => 'foo' } );
+ok($new->artistid, "Auto-PK worked");
+
+# Test LIMIT
+for (1..6) {
+    MSSQLTest::Artist->create( { name => 'Artist ' . $_ } );
+}
+
+my $it = MSSQLTest::Artist->search( { },
+    { rows     => 3,
+      offset   => 2,
+      order_by => 'artistid'
+    }
+);
+
+is( $it->count, 3, "LIMIT count ok" );
+is( $it->next->name, "Artist 2", "iterator->next ok" );
+$it->next;
+$it->next;
+is( $it->next, undef, "next past end of resultset ok" );
+
+}
+
+1;