def test_cons_2(): source = ['(cons (+ 1 3 5) (cons (+ 1 3 5) null))'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == [9, 9]
def test_nullcheck_2(): source = ['(null? (cons 1 null))'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == False
def test_nullcheck_3(): source = ['(null? (cdr (list 1)))'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == True
def test_list(): source = ['(list 1 2 (+ 1 2) 4)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == [1, 2, 3, 4]
def test_nullcheck(): source = ['(null? null)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == True
def test_multiply(): source = ['(* 1 3 5)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == 15
def test_cdr(): source = ['(cdr (cons 1 null))'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == []
def test_and_false(): source = ['(and (> 2 1) (= 1 2) #t)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == False
def test_or_false(): source = ['(or (> 2 10) (= 1 2) #f)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == False
def test_add(): source = ['(+ 1 3 5)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == 9
def test_gt(): source0, source1 = ['(> 2 2)'], ['(> 3 2)'] exp0 = parse_tokens(tokenize(source0))[0] exp1 = parse_tokens(tokenize(source1))[0] assert eval_in_env(exp0, []) == False assert eval_in_env(exp1, []) == True
def test_divide(): source = ['(/ 10 3)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == 3
def test_subtract(): source = ['(- 10 14)'] exp = parse_tokens(tokenize(source))[0] assert eval_in_env(exp, []) == -4
def test_parse_define_lambda(): source = ['(define add (lambda (x y) (+ x y)))'] tokens = tokenize(source) exp = parse_tokens(tokens) assert exp == [['define', 'add', ['lambda', ['x', 'y'], ['+', 'x', 'y']]]]
def test_parse_add(): source = ['(define a (+ 3 3))'] tokens = tokenize(source) exp = parse_tokens(tokens) assert exp == [['define', 'a', ['+', 3, 3]]]
def test_parse_define(): source = ['(define a 3)'] tokens = tokenize(source) exp = parse_tokens(tokens) assert exp == [['define', 'a', 3]]