fix: CRCFail test broken due 33d93e4d
authorMax Voit <max.voit+gtdv@with-eyes.net>
Wed, 12 Aug 2015 07:41:01 +0000 (09:41 +0200)
committerMax Voit <max.voit+gtdv@with-eyes.net>
Wed, 12 Aug 2015 07:41:01 +0000 (09:41 +0200)
test/CRCFail.hs

index 459c84a..e1618d8 100644 (file)
@@ -34,9 +34,12 @@ slave master = handle eHandler $ do
     exitFailure
     where
         eHandler :: SomeException -> IO ()
-        eHandler e = when (show e == "Data.Acid.Centered.Slave: CRC mismatch after sync. Exiting.") $ do
-            closeAcidState master
-            exitSuccess
+        eHandler e = if show e == "Data.Acid.Centered.Slave: CRC mismatch after sync."
+            then do
+                putStrLn "CRC mismatch, fine."
+                closeAcidState master
+                exitSuccess
+            else putStrLn "Other exception: " >> print e
 
 main :: IO ()
 main = do