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