diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-30 22:06:33 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2018-11-30 22:06:33 +0000 |
commit | 52c687ebd389ae4b43096859e5137e10b4b68c78 (patch) | |
tree | e3f24730c4d0e70126aa856760e16406595b4e81 /tests/Test.hs | |
parent | 7fde58742352f17b0cc2bf34f8815067aaa8b7da (diff) | |
download | verismith-52c687ebd389ae4b43096859e5137e10b4b68c78.tar.gz verismith-52c687ebd389ae4b43096859e5137e10b4b68c78.zip |
Rename the Test file
Diffstat (limited to 'tests/Test.hs')
-rw-r--r-- | tests/Test.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/Test.hs b/tests/Test.hs new file mode 100644 index 0000000..b1958c3 --- /dev/null +++ b/tests/Test.hs @@ -0,0 +1,19 @@ +module Main where + +import Test.Tasty +import Test.Tasty.HUnit +import Test.Tasty.QuickCheck as QC + +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] @?= LT + ] + +tests :: TestTree +tests = testGroup "Tests" [unitTests] + +main = defaultMain tests |