diff options
-rw-r--r-- | tests/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Test.hs b/tests/Test.hs index b1958c3..0c631b8 100644 --- a/tests/Test.hs +++ b/tests/Test.hs @@ -10,7 +10,7 @@ unitTests = testGroup "Unit tests" -- the following test does not hold , testCase "List comparison (same length)" $ - [1, 2, 3] `compare` [1,2,2] @?= LT + [1, 2, 3] `compare` [1,2,2] @?= GT ] tests :: TestTree |