From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 16 Dec 2009 09:49:10 +0000 (+0000)
Subject: Cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02495debf8619b32a9ba1070e247b71183ae2440;p=dbsrgits%2FDBIx-Class-Historic.git

Cleanup
---

diff --git a/t/746mssql.t b/t/746mssql.t
index 0d53068..49e3bcb 100644
--- a/t/746mssql.t
+++ b/t/746mssql.t
@@ -178,10 +178,10 @@ is $rs->find($row->id)->amount, undef,'updated money value to NULL round-trip';
 
 $schema->storage->dbh_do (sub {
     my ($storage, $dbh) = @_;
-    eval { $dbh->do("DROP TABLE Owners") };
-    eval { $dbh->do("DROP TABLE Books") };
+    eval { $dbh->do("DROP TABLE owners") };
+    eval { $dbh->do("DROP TABLE books") };
     $dbh->do(<<'SQL');
-CREATE TABLE Books (
+CREATE TABLE books (
    id INT IDENTITY (1, 1) NOT NULL,
    source VARCHAR(100),
    owner INT,
@@ -189,7 +189,7 @@ CREATE TABLE Books (
    price INT NULL
 )
 
-CREATE TABLE Owners (
+CREATE TABLE owners (
    id INT IDENTITY (1, 1) NOT NULL,
    name VARCHAR(100),
 )
@@ -238,18 +238,18 @@ lives_ok ( sub {
   my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
   $schema->populate ('BooksInLibrary', [
     [qw/source  owner title   /],
-    [qw/Library 7     secrets10/],
+    [qw/Library 1     secrets0/],
+    [qw/Library 1     secrets1/],
     [qw/Eatery  1     secrets2/],
-    [qw/Library 3     secrets4/],
-    [qw/Eatery  5     secrets8/],
-    [qw/Library 5     secrets7/],
     [qw/Library 2     secrets3/],
-    [qw/Eatery  7     secrets11/],
-    [qw/Library 4     secrets6/],
-    [qw/Library 1     secrets0/],
+    [qw/Library 3     secrets4/],
     [qw/Eatery  3     secrets5/],
+    [qw/Library 4     secrets6/],
+    [qw/Library 5     secrets7/],
+    [qw/Eatery  5     secrets8/],
     [qw/Library 6     secrets9/],
-    [qw/Library 1     secrets1/],
+    [qw/Library 7     secrets10/],
+    [qw/Eatery  7     secrets11/],
     [qw/Library 8     secrets12/],
   ]);
 }, 'populate without PKs supplied ok' );
@@ -419,7 +419,7 @@ Alan's SQL:
         FROM (
           SELECT *
             FROM (
-              SELECT [me].*, ROW_NUMBER() OVER( ORDER BY (SELECT(1)) ) AS rno__row__index 
+              SELECT [me].*, ROW_NUMBER() OVER( ORDER BY (SELECT(1)) ) AS rno__row__index
                 FROM (
                   SELECT [me].[id], [me].[source], [me].[owner], [me].[title], [me].[price]
                     FROM (
@@ -450,7 +450,7 @@ done_testing;
 END {
   if (my $dbh = eval { $schema->storage->_dbh }) {
     eval { $dbh->do("DROP TABLE $_") }
-      for qw/artist money_test Books Owners/;
+      for qw/artist money_test books owners/;
   }
 }
 # vim:sw=2 sts=2