mirror of
https://github.com/zekexiao/pocketlang.git
synced 2025-02-06 04:37:47 +08:00
31 lines
835 B
Plaintext
31 lines
835 B
Plaintext
|
|
## Function Tests.
|
|
|
|
def f1 return 'f1' end assert(f1() == 'f1')
|
|
def f2() return 'f2' end assert(f2() == 'f2')
|
|
def f3(a, b, c, d) return c end
|
|
assert(f3('a', 'b', 'c', 'd') == 'c')
|
|
|
|
## Forward call.
|
|
val = before_defn()
|
|
def before_defn()
|
|
return 'defined after the call'
|
|
end
|
|
assert(val == 'defined after the call')
|
|
|
|
## Chain call tests. (concatenative programming)
|
|
|
|
def fn1(data) return '[fn1:' + data + ']' end
|
|
def fn2(data, suffix) return '[fn2:' + data + '|' + suffix + ']' end
|
|
def fn3(data) return '[fn3:' + data + ']' end
|
|
|
|
result = 'data' -> fn1 -> fn2{'suff'} -> fn3
|
|
assert(result == '[fn3:[fn2:[fn1:data]|suff]]')
|
|
|
|
# str_lower(s) function refactored to s.lower attribute.
|
|
#result = ' tEST+InG ' -> str_strip -> str_lower
|
|
#assert(result == 'test+ing')
|
|
|
|
# If we got here, that means all test were passed.
|
|
print('All TESTS PASSED')
|