From be4b6875032c34cdd8e3dd4712cb79856587bf29 Mon Sep 17 00:00:00 2001 From: Isaac Shoebottom Date: Thu, 24 Apr 2025 13:44:27 -0300 Subject: [PATCH] Add complete test coverage for 2.rkt --- Final/2.rkt | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Final/2.rkt b/Final/2.rkt index da7f072..663bffb 100644 --- a/Final/2.rkt +++ b/Final/2.rkt @@ -288,4 +288,14 @@ {lam {fX} {body-proc {lam {x} {{fX fX} x}}}}}}}) - (test (run fact-prog) (numV 120))) \ No newline at end of file + (test (run fact-prog) (numV 120))) + +; stupid tests for coverage +(module+ test + (test/exn (parse-error 'invalid-syntax) "invalid-syntax") + (test (parse `(error "test error")) (errorE "test error")) + (test/exn (parse `(error 123)) "parse error") + (test/exn (parse `(unknown 1 2 3)) "parse error") + (test/exn (arith-op + (numV 1) (errorV "not a number")) "expects a number") + (test/exn (parse `#f) "parse error")) + \ No newline at end of file