apfl/src/functional-tests/join.at

48 lines
711 B
Text

===== 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 [] [->]])
foo = [1 2 3]
bar = 0
print (join bar foo)
dump foo
dump bar
===== output =====
foo
foo,bar
foo,bar,baz
foo,1,true,[],[->]
foo
foo:::bar
foo:::bar:::baz
foo:::1:::true:::[]:::[->]
foo
foo1bar
foo1bar1baz
foo111true1[]1[->]
10203
[
1
2
3
]
0