def test_6():
code = '''\
(+jojo t :body! [:body [:body]])
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_6', sexp_vect)
vm = VM([1], [RP(module.t)])
vm = vm.exe()
assert vm.ds == [1, 1]
def test_5():
code = '''\
(+jojo t null 1 swap cons 2 swap cons cdr car)
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_5', sexp_vect)
vm = VM([], [RP(module.t)])
vm = vm.exe()
assert vm.ds == [1]
def test_4():
code = '''\
(+jojo t (if [1 2 eq?] ["true"] ["false"]))
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_4', sexp_vect)
vm = VM([], [RP(module.t)])
vm = vm.exe()
assert vm.ds == ["false"]
def test_3():
code = '''\
(+jojo t 1 2 eq? {"true"} {"false"} ifte)
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_3', sexp_vect)
vm = VM([], [RP(module.t)])
vm = vm.exe()
assert vm.ds == ["false"]
def test_1():
code = '''\
(+jojo six 1 2 add 3 add)
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_1', sexp_vect)
vm = VM([], [RP(module.six)])
vm = vm.exe()
assert vm.ds == [6]
def test_2():
code = '''\
(import os)
(+jojo times os .times)
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_2', sexp_vect)
vm = VM([], [RP(module.times)])
vm = vm.exe()
assert type(vm.ds.pop()) == posix.times_result
def test_1():
code = '''\
(+jojo c :x!
`(a (@ :x :x mul) b (@ :x :x mul) c))
(+jojo t 4 c list->vect vect-spread)
'''
sexp_vect = jojo.parse_sexp_vect(jojo.code_scan(code))
module = jojo.compile_module(__name__ + 'test_1', sexp_vect)
vm = jojo.VM([], [jojo.RP(module.t)])
vm = vm.exe()
assert vm.ds == ["a", 16, "b", 16, "c"]
def test_1():
code = '''\
(+jojo c
(list 1 2 add dup))
(+jojo t
c list->vect vect-spread)
'''
sexp_vect = jojo.parse_sexp_vect(jojo.code_scan(code))
module = jojo.compile_module(__name__ + 'test_1', sexp_vect)
vm = jojo.VM([], [jojo.RP(module.t)])
vm = vm.exe()
assert vm.ds == [3, 3]
def test_7():
code = '''\
(+jojo t
'(a b (((c))))
dup car swap
dup cdr car swap
dup cdr cdr car car car car swap
drop)
'''
sexp_vect = parse_sexp_vect(code_scan(code))
module = compile_module(__name__ + 'test_7', sexp_vect)
vm = VM([], [RP(module.t)])
vm = vm.exe()
assert vm.ds == ["a", "b", "c"]