diff options
Diffstat (limited to 'tests/Unit.hs')
| -rw-r--r-- | tests/Unit.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/Unit.hs b/tests/Unit.hs new file mode 100644 index 0000000..a04098b --- /dev/null +++ b/tests/Unit.hs @@ -0,0 +1,13 @@ +module Unit (unitTests) where + +import Test.Tasty +import Test.Tasty.HUnit + +unitTests = testGroup "Unit tests" + [ testCase "List comparison (different length)" $ + [1, 2, 3] `compare` [1,2] @?= GT + + -- the following test does not hold + , testCase "List comparison (same length)" $ + [1, 2, 3] `compare` [1,2,2] @?= GT + ] |