fix test.

1 files changed, 357 insertions, 0 deletions

diff --git a/spec/outputs/destructure.lua b/spec/outputs/destructure.lua
new file mode 100644
index 0000000..9ca13c8
--- /dev/null
+++ b/spec/outputs/destructure.lua
@@ -0,0 +1,357 @@
+do
+        local a, b
+        do
+                local _obj_0 = hello
+                a, b = _obj_0[1], _obj_0[2]
+        end
+        local c
+        do
+                local _obj_0 = hello
+                a, b, c = _obj_0[1][1], _obj_0[2], _obj_0[3][1]
+        end
+        local hello, world
+        do
+                local _obj_0 = value
+                hello, world = _obj_0.hello, _obj_0.world
+        end
+end
+do
+        local no, thing
+        do
+                local _obj_0 = world
+                no, thing = _obj_0.yes, _obj_0[1]
+        end
+        local a, b, c, d
+        do
+                local _obj_0 = yeah
+                a, b, c, d = _obj_0.a, _obj_0.b, _obj_0.c, _obj_0.d
+        end
+        local _ = two
+        a = one[1]
+        c = nil
+        b = one[1]
+        local e = two
+        d = one[1]
+        local x = one
+        local y = two[1]
+        local xx, yy = 1, 2
+        do
+                local _obj_0 = {
+                        xx,
+                        yy
+                }
+                yy, xx = _obj_0[1], _obj_0[2]
+        end
+        local f, g
+        do
+                local _obj_0 = tbl
+                a, b, c, d, e, f, g = _obj_0[1], _obj_0.b, _obj_0[2], _obj_0.d, _obj_0[3], _obj_0.f, _obj_0[4]
+        end
+        do
+                c = nil
+                do
+                        local _obj_0 = tbl
+                        a, b = _obj_0.a, _obj_0.b
+                end
+        end
+        do
+                a = tbl
+                b, c = _.b, _.c
+        end
+        do
+                b = _
+                a = tbl.a
+                c = _.c
+        end
+end
+do
+        local futurists = {
+                sculptor = "Umberto Boccioni",
+                painter = "Vladimir Burliuk",
+                poet = {
+                        name = "F.T. Marinetti",
+                        address = {
+                                "Via Roma 42R",
+                                "Bellagio, Italy 22021"
+                        }
+                }
+        }
+        do
+                local name, street, city = futurists.poet.name, futurists.poet.address[1], futurists.poet.address[2]
+        end
+        do
+                local sculptor, painter, name, street, city = futurists.sculptor, futurists.painter, futurists.poet.name, futurists.poet.address[1], futurists.poet.address[2]
+        end
+end
+do
+        local c, e
+        do
+                local _obj_0 = tb
+                c, e = _obj_0.a.b, _obj_0.a.d
+        end
+end
+do
+        local c, e, f
+        do
+                local _obj_0 = tb
+                c, e, f = _obj_0.a[1].b, _obj_0.a[2].d, _obj_0.a[3]
+        end
+end
+do
+        self.world = x[1]
+        do
+                local _obj_0 = x
+                a.b, c.y, func().z = _obj_0[1], _obj_0[2], _obj_0[3]
+        end
+        self.world = x.world
+end
+do
+        local thing = {
+                {
+                        1,
+                        2
+                },
+                {
+                        3,
+                        4
+                }
+        }
+        for _index_0 = 1, #thing do
+                local _des_0 = thing[_index_0]
+                local x, y = _des_0[1], _des_0[2]
+                print(x, y)
+        end
+end
+do
+        do
+                local _with_0 = thing
+                local a, b = _with_0[1], _with_0[2]
+                print(a, b)
+        end
+end
+do
+        local thing = nil
+        if thing then
+                local a = thing[1]
+                print(a)
+        else
+                print("nothing")
+        end
+        local thang = {
+                1,
+                2
+        }
+        if thang then
+                local a, b = thang[1], thang[2]
+                print(a, b)
+        end
+        if thing then
+                local a, b = thing[1], thing[2]
+                print(a, b)
+        else
+                if thang then
+                        local c, d = thang[1], thang[2]
+                        print(c, d)
+                else
+                        print("NO")
+                end
+        end
+end
+do
+        local z = "yeah"
+        local a, b, c = z[1], z[2], z[3]
+end
+do
+        local a, b, c
+        do
+                local _obj_0 = z
+                a, b, c = _obj_0[1], _obj_0[2], _obj_0[3]
+        end
+end
+local _
+_ = function(z)
+        local a, b, c = z[1], z[2], z[3]
+end
+do
+        local z = "oo"
+        _ = function(k)
+                local a, b, c = z[1], z[2], z[3]
+        end
+end
+do
+        local endVar = thing["function"]["end"]
+end
+do
+        local a, b, c
+        do
+                local _obj_0 = thing
+                a, b, c = _obj_0["if"][1], _obj_0["if"][2], _obj_0["if"][3]
+        end
+end
+do
+        local a, b
+        if true then
+                do
+                        local _obj_0 = {
+                                a = "Hello",
+                                b = "World"
+                        }
+                        a, b = _obj_0.a, _obj_0.b
+                end
+        end
+        local days, hours, mins, secs
+        do
+                local _accum_0 = { }
+                local _len_0 = 1
+                local _list_0 = {
+                        string.match("1 2 3 4", "(.+)%s(.+)%s(.+)%s(.+)")
+                }
+                for _index_0 = 1, #_list_0 do
+                        local a = _list_0[_index_0]
+                        _accum_0[_len_0] = tonumber(a)
+                        _len_0 = _len_0 + 1
+                end
+                days, hours, mins, secs = _accum_0[1], _accum_0[2], _accum_0[3], _accum_0[4]
+        end
+        local one, two, three
+        do
+                local _tbl_0 = { }
+                for w in foo:gmatch("%S+") do
+                        _tbl_0[w] = true
+                end
+                one, two, three = _tbl_0.one, _tbl_0.two, _tbl_0.three
+        end
+        b = 123
+        a = (a["if"](a, 123) + t).a
+end
+do
+        local name, job
+        do
+                local _obj_0 = person
+                name, job = _obj_0.name, _obj_0.job
+        end
+        if name == nil then
+                name = "nameless"
+        end
+        if job == nil then
+                job = "jobless"
+        end
+        local request
+        request = function(url, options)
+                if options == nil then
+                        options = { }
+                end
+                local method, headers, parameters, payload, ok, err, final = options.method, options.headers, options.parameters, options.payload, options.ok, options.err, options.final
+                if method == nil then
+                        method = "GET"
+                end
+                if headers == nil then
+                        headers = { }
+                end
+                if parameters == nil then
+                        parameters = { }
+                end
+                if payload == nil then
+                        payload = ""
+                end
+                local res = makeRequest(url, method, parameters, payload, ok, err, final)
+                return res
+        end
+        local value1, key3
+        do
+                local _obj_0 = tb
+                value1, key3 = _obj_0.key1.key2, _obj_0.key3
+        end
+        if value1 == nil then
+                value1 = 123
+        end
+        if key3 == nil then
+                key3 = "abc"
+        end
+        local mt, call, add
+        do
+                local _obj_0 = getmetatable(tb)
+                mt, call, add = _obj_0, getmetatable(_obj_0).__call, getmetatable(_obj_0).__add
+        end
+        if mt == nil then
+                mt = {
+                        __index = {
+                                abc = 123
+                        }
+                }
+        end
+        if call == nil then
+                call = (function()
+                        return { }
+                end)
+        end
+        local _obj_0 = tb
+        local mtx, y, zItem = getmetatable(_obj_0.x), _obj_0.y, _obj_0.z
+        if mtx == nil then
+                mtx = { }
+        end
+        local index = getmetatable(_obj_0).__index
+        if index == nil then
+                index = function()
+                        return nil
+                end
+        end
+        local _obj_1 = getmetatable(tb).func
+        if _obj_1 == nil then
+                if item ~= nil then
+                        _obj_1 = item.defVal
+                end
+        end
+        a.b(function()
+                        return 123
+                end).c = _obj_1
+end
+do
+        local mt, subFunc
+        do
+                local _obj_0 = getmetatable(tb.x)
+                mt, subFunc = _obj_0, _obj_0.__sub
+        end
+        if mt == nil then
+                mt = { }
+        end
+end
+do
+        local mt, subFunc
+        do
+                local _obj_0 = tb
+                mt, subFunc = getmetatable(_obj_0.x), getmetatable(_obj_0.x).__sub
+        end
+        if mt == nil then
+                mt = { }
+        end
+end
+do
+        local a, b, _obj_0
+        do
+                local _obj_1 = tb
+                a, b, _obj_0 = _obj_1[1], _obj_1[2], _obj_1.c[1]
+        end
+        if a == nil then
+                a = 1
+        end
+        if b == nil then
+                b = 2
+        end
+        if _obj_0 == nil then
+                _obj_0 = 3
+        end
+        d.e = _obj_0
+        local _list_0 = tuples
+        for _index_0 = 1, #_list_0 do
+                local _des_0 = _list_0[_index_0]
+                local left, right = _des_0[1], _des_0[2]
+                if left == nil then
+                        left = "null"
+                end
+                if right == nil then
+                        right = false
+                end
+                print(left, right)
+        end
+end