apfl/src/functional-tests/join.at

36 lines
625 B
Text
Raw Normal View History

===== script =====
print (join "," [])
print (join "," ['foo])
print (join "," ['foo 'bar])
print (join "," ['foo 'bar 'baz])
print (join "," ['foo 1 true [] [->]])
print (join ":::" [])
print (join ":::" ['foo])
print (join ":::" ['foo 'bar])
print (join ":::" ['foo 'bar 'baz])
print (join ":::" ['foo 1 true [] [->]])
print (join 1 [])
print (join 1 ['foo])
print (join 1 ['foo 'bar])
print (join 1 ['foo 'bar 'baz])
print (join 1 ['foo 1 true [] [->]])
===== output =====
foo
foo,bar
foo,bar,baz
foo,1,true,[],[->]
foo
foo:::bar
foo:::bar:::baz
foo:::1:::true:::[]:::[->]
foo
foo1bar
foo1bar1baz
foo111true1[]1[->]