diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-01 13:57:42 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-01 13:57:42 +0000 |
commit | f256b34c16e5d95a9f3d3b0e006387fb895e4a11 (patch) | |
tree | ba2078d03242016bc21cab64ebb0f4d32422c082 /test/Unit.hs | |
parent | 89ea4a3d7a20de32fcc0be16885889a18578aedd (diff) | |
download | verismith-f256b34c16e5d95a9f3d3b0e006387fb895e4a11.tar.gz verismith-f256b34c16e5d95a9f3d3b0e006387fb895e4a11.zip |
Add type annotations
Diffstat (limited to 'test/Unit.hs')
-rw-r--r-- | test/Unit.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Unit.hs b/test/Unit.hs index a72e188..67a6908 100644 --- a/test/Unit.hs +++ b/test/Unit.hs @@ -11,6 +11,7 @@ import Test.Tasty import Test.Tasty.HUnit import VeriFuzz +unitTests :: TestTree unitTests = testGroup "Unit tests" [ testCase "Transformation of AST" $ assertEqual @@ -80,6 +81,7 @@ transformExpectedResult = BinOp ) ) +trans :: Expr -> Expr trans e = case e of Id id -> if id == Identifier "id2" then Id $ Identifier "Replaced" else Id id _ -> e |