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 | |
| parent | 89ea4a3d7a20de32fcc0be16885889a18578aedd (diff) | |
| download | verismith-f256b34c16e5d95a9f3d3b0e006387fb895e4a11.tar.gz verismith-f256b34c16e5d95a9f3d3b0e006387fb895e4a11.zip | |
Add type annotations
Diffstat (limited to 'test')
| -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 |