From 17aa037e988411ec85ad108b1af2bb65a535d193 Mon Sep 17 00:00:00 2001
From: Jonathan Daugherty <cygnus@foobox.com>
Date: Sat, 22 Oct 2016 12:48:44 -0700
Subject: [PATCH] test suite: update some test migrations to cooperate better
 with MySQL

---
 src/Database/Schema/Migrations/Test/BackendTest.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Database/Schema/Migrations/Test/BackendTest.hs b/src/Database/Schema/Migrations/Test/BackendTest.hs
index 4fa3b97..e302db6 100644
--- a/src/Database/Schema/Migrations/Test/BackendTest.hs
+++ b/src/Database/Schema/Migrations/Test/BackendTest.hs
@@ -84,14 +84,14 @@ applyMigrationSuccess :: BackendConnection bc => bc -> IO ()
 applyMigrationSuccess conn = do
     let backend = makeBackend conn
 
-    let m1 = (newMigration "validMigration") { mApply = "CREATE TABLE valid1 (a int); CREATE TABLE valid2 (a int);" }
+    let m1 = (newMigration "validMigration") { mApply = "CREATE TABLE valid1 (a int)" }
 
     -- Apply the migrations, ignore exceptions
     withTransaction conn $ \conn' -> applyMigration (makeBackend conn') m1
 
     -- Check that none of the migrations were installed
     assertEqual "Installed migrations" ["root", "validMigration"] =<< getMigrations backend
-    assertEqual "Installed tables" ["installed_migrations", "valid1", "valid2"] =<< getTables conn
+    assertEqual "Installed tables" ["installed_migrations", "valid1"] =<< getTables conn
 
 -- |Does a failure to apply a migration imply a transaction rollback?
 applyMigrationFailure :: BackendConnection bc => bc -> IO ()
@@ -117,7 +117,7 @@ revertMigrationFailure conn = do
 
     let m1 = (newMigration "second") { mApply = "CREATE TABLE validRMF (a int)"
                                      , mRevert = Just "DROP TABLE validRMF"}
-        m2 = (newMigration "third") { mApply = "SELECT * FROM validRMF"
+        m2 = (newMigration "third") { mApply = "alter table validRMF add column b int"
                                     , mRevert = Just "INVALID REVERT SQL"}
 
     applyMigration backend m1
@@ -142,7 +142,7 @@ revertMigrationNothing :: BackendConnection bc => bc -> IO ()
 revertMigrationNothing conn = do
     let backend = makeBackend conn
 
-    let m1 = (newMigration "second") { mApply = "SELECT 1"
+    let m1 = (newMigration "second") { mApply = "create table revert_nothing (a int)"
                                      , mRevert = Nothing }
 
     applyMigration backend m1