Added test for equal to comparison operator.

l-monnier · Sep 26, 2016 · b1eec7a · b1eec7a
1 parent 000c9a2
commit b1eec7a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/test.db b/test.db
diff --git a/tests/Database/Hedsql/Statements/Select.hs b/tests/Database/Hedsql/Statements/Select.hs
@@ -77,7 +77,7 @@ module Database.Hedsql.Statements.Select
     , selectGreaterThanOrEqualTo
     , selectSmallerThan
     , selectSmallerThanOrEqualTo
-    , selectEqual
+    , selectEqualTo
 
       -- ** Functions
     , addition
@@ -843,8 +843,8 @@ selectSmallerThanOrEqualTo =
     |> end
 
 -- | > SELECT * FROM "People" WHERE "age" = 18
-selectEqual :: Select [[Undefined]] dbVendor
-selectEqual =
+selectEqualTo :: Select [[Undefined]] dbVendor
+selectEqualTo =
        selectPeople
     |> where_ (col "age" integer /== intVal 18)
     |> end

diff --git a/tests/Database/Hedsql/Tests/Select.hs b/tests/Database/Hedsql/Tests/Select.hs
@@ -633,7 +633,7 @@ testEqualTo = testCase "SELECT equal to" assertSelect
         assertSelect :: Assertion
         assertSelect = assertEqual
             "SELECT equal to is incorrect"
-            "SELECT * FROM \"People\" WHERE \"age\" = 18 false"
+            "SELECT * FROM \"People\" WHERE \"age\" = 18"
             (S.codeGen selectEqualTo)
 
 ----------------------------------------