👩‍🔬 test

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),