def test_bench_fib():
from time import time
start = time()
res = eval_str(
"(define (fib n) "
" (cond ((< n 2) 1) "
" (else (+ (fib (- n 1)) "
" (fib (- n 2))))))"
"(fib 25)"
)
stop = time()
print("TIME:", stop - start)
assert res == 121393
def test_application():
assert eval_str("(+ 1 2)", make_initial_environment()) == 3
def test_cond():
assert eval_str("(cond (else 0))") == 0
assert eval_str("(cond (#f 1) (#t 2) (else 3))") == 2
def test_let():
assert eval_str("(let ((x 1) (y 2)) (+ x y))") == 3
def test_definition():
assert eval_str("(define x 42)") == symbol("x")
assert eval_str("(define x 42) x") == 42
assert is_compound_procedure(eval_str("(define (x) 0) x"))
def test_assignment():
assert eval_str("(define x 0) (set! x 1)") == symbol("ok")
assert eval_str("(define x 0) (set! x 1) x") == 1
def test_sequence():
assert eval_str("(begin 1 2 3)") == 3
with pytest.raises(SyntaxError):
eval_str("(begin)")
def test_if():
assert eval_str("(if #t 2 3)") == 2
assert eval_str("(if #f 2 3)") == 3
def test_lambda():
assert is_compound_procedure(eval_str("(lambda (x) x)"))
def test_variable():
assert eval_str("+") is not None
def test_quotation():
assert eval_str("'(1 2 3)") == (1, 2, 3)