--$ -- test-macro.lua def fred(x) NULL print(x) end A = 10 C = 20 F(B) print(S*2) --~ print(TEST) function test_try_except(x,y) try x.a = 10 print 'yay!' try y.a = 10 print 'again!' except print('inner:',e) end except print('exception:',e) end end print(TEST(20)) print(PLUS(1,2)*10) test_try_except({},{}) test_try_except(nil,{}) test_try_except({},nil) test_try_except(nil,nil) print(__FILE__,__LINE__) -- PLUS(1) print(_CAT(one,+)) print(_STR(hello).." dolly".._STR(+)) --~ ASSERT(2 > 4) require 'testcase'