Use @=? instead of assertEqual

IreneKnapp · Jan 6, 2013 · 3667478 · 3667478
1 parent 57a6bcd
commit 3667478
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Main.hs b/test/Main.hs
@@ -577,7 +577,7 @@ testStatementSql TestEnv{..} = TestCase $ do
   let q1 = "SELECT 1+1"
   withStmt conn q1 $ \stmt -> do
     Just (Direct.Utf8 sql1) <- Direct.statementSql stmt
-    assertEqual "statementText" (T.encodeUtf8 q1) sql1
+    sql1 @=? T.encodeUtf8 q1
 
 testInterrupt :: TestEnv -> Test
 testInterrupt TestEnv{..} = TestCase $