From 6281faf341a89f13a1a529a3bc00cd6f99473933 Mon Sep 17 00:00:00 2001
From: Nikolaj Gade <nikolaj@ingemanngade.net>
Date: Fri, 6 Sep 2024 15:51:28 +0200
Subject: [PATCH] :woman_scientist: test

---
 a1/src/APL/Eval_Tests.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/a1/src/APL/Eval_Tests.hs b/a1/src/APL/Eval_Tests.hs
index 85d12c8..8124506 100644
--- a/a1/src/APL/Eval_Tests.hs
+++ b/a1/src/APL/Eval_Tests.hs
@@ -103,6 +103,9 @@ tests =
         @?= Right (ValInt 5),
       testCase "Apply (fact)" $
         eval envEmpty (Apply fact (CstInt 5)) @?= Right (ValInt 120),
+      testCase "Apply (order)" $
+        eval envEmpty (Apply (CstInt 1) (Var "missing"))
+        @?= Left "Unknown variable: missing",
       testCase "Try" $
         eval envEmpty (TryCatch (CstInt 0) (CstInt 1))
         @?= Right (ValInt 0),