+ LuaMacro

1 files changed, 52 insertions, 0 deletions

diff --git a/Tools/LuaMacro/tests/test-try.lua b/Tools/LuaMacro/tests/test-try.lua
new file mode 100644
index 0000000..cfd68a4
--- /dev/null
+++ b/Tools/LuaMacro/tests/test-try.lua
@@ -0,0 +1,52 @@
+require_ 'macro.try'

+local check

+try

+    try

+      if arg[1] then error('throw!') end

+    except(err)

+        print('shd be throw',err)

+    end

+    a.x = 0

+except(e)

+    check = e

+end

+

+-- the truly tricky case here is the plain return, since we need to distinguish

+-- it from merely leaving the protected block.

+function testtry(n)

+    try

+        if n == 0 then return 'cool'

+        elseif n == 1 then return 'cool',42

+        elseif n == 2 then return --aha

+        elseif n == 3 then

+            error('throw baby!')

+        end

+    except(msg)

+        return nil,msg

+    end

+    return 42,'answer'

+end

+

+function match (x,y)

+    local ok

+    if type(x) == 'string' and type(y) == 'string' then

+        ok = y:find(x)

+    else

+        ok = x == y

+    end

+    if not ok then print('mismatch',x,y) end

+    return ok

+end

+

+function assert2 (x1,x2,y1,y2)

+    assert(match(x1,y1) and match(x2,y2))

+end

+

+assert(match("attempt to index global 'a' %(a nil value%)$",check))

+assert2('cool',nil,testtry(0))

+assert2('cool',42,testtry(1))

+assert2(42,'answer',testtry(2))

+assert2(nil,'throw baby!$',testtry(3))

+assert2(42,'answer',testtry(4))

+

+