Test a first non-trivial function: factorial

mossprescott · Feb 13, 2024 · f22871c · f22871c
1 parent 65888db
commit f22871c
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/alt/scheme/test_rvm.py b/alt/scheme/test_rvm.py
@@ -115,6 +115,21 @@ def test_define():
     assert output == []
 
 
+def test_fact():
+    program = """
+    (define (fact n)
+        (if (< n 2) 1
+            (* n (fact (- n 1)))))
+
+    (fact 5)
+    """
+
+    inspect, output = run_to_halt(program, max_cycles=20000)
+
+    assert inspect.stack() == [120]
+    assert output == []
+
+
 def test_capture():
     program = """
     (define (add x) (lambda (y) (+ x y)))