diff options
Diffstat (limited to 'test/Spec.hs')
| -rw-r--r-- | test/Spec.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/test/Spec.hs b/test/Spec.hs index 6cb9fac..a17f344 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -101,7 +101,7 @@ e2eTests = testGroup "e2e" [ let expectedLastAST = astInteger 12586269025 assertEqual "" expectedLastAST (last gotASTs), - do let env = makeEnv [builtinAdd2, builtinEq2] + do let env = builtinEnv let script1 = "(let a :thing)\ \(let b :thing)\ \(eq? a b)" @@ -109,6 +109,14 @@ e2eTests = testGroup "e2e" [ runInlineScript "<test>" script1 let expectedLastAST = astBoolean True + assertEqual "" expectedLastAST (last gotASTs), + + do let env = builtinEnv + script1 <- readFile "test/scripts/record1.milch" + (gotASTs, _) <- expectSuccessL env $ + runInlineScript "<test>" script1 + + let expectedLastAST = astInteger 369 assertEqual "" expectedLastAST (last gotASTs) ] |