add favicon and tests.v0.10.23

12 files changed, 2021 insertions, 3 deletions

diff --git a/doc/docs/.vuepress/config.js b/doc/docs/.vuepress/config.js
index b3f7313..c6f8f39 100755
--- a/doc/docs/.vuepress/config.js
+++ b/doc/docs/.vuepress/config.js
@@ -23,11 +23,16 @@ module.exports = {
                 ['meta', { property: 'og:description', content: description }],
                 // Should probably have a og:url but I'm not sure how to add that without it being the same on all pages
                 ['meta', { property: 'og:type', content: 'website' }],
-                ['meta', { property: 'og:image', content: 'https://yuescript.org/image/yuescript.png' }],
-                ['meta', { property: 'og:image:secure_url', content: 'https://yuescript.org/image/yuescript.png' }],
+                ['meta', { property: 'og:image', content: '/image/yuescript.png' }],
+                ['meta', { property: 'og:image:secure_url', content: '/image/yuescript.png' }],
                 ['meta', { property: 'og:image:type', content: 'image/png' }],
                 ['meta', { property: 'og:image:width', content: '1200' }],
                 ['meta', { property: 'og:image:height', content: '1200' }],
+                ['link', { rel: 'icon', href: '/image/favicon/favicon-16x16.png', sizes: '16x16', type: 'image/png' }],
+                ['link', { rel: 'icon', href: '/image/favicon/favicon-32x32.png', sizes: '32x32', type: 'image/png' }],
+                ['link', { rel: 'apple-touch-icon', href: '/image/favicon/apple-touch-icon-180x180.png', sizes: '180x180', type: 'image/png' }],
+                ['link', { rel: 'android-chrome', href: '/image/favicon/android-chrome-192x192.png', sizes: '192x192', type: 'image/png' }],
+                ['link', { rel: 'android-chrome', href: '/image/favicon/android-chrome-512x512.png', sizes: '512x512', type: 'image/png' }],
                 ['script', {}, `window.global = window;`],
                 ['script', {}, `
                         var Module = {
diff --git a/doc/docs/.vuepress/public/image/favicon/android-chrome-192x192.png b/doc/docs/.vuepress/public/image/favicon/android-chrome-192x192.png
new file mode 100755
index 0000000..08c42cc
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/android-chrome-192x192.png
diff --git a/doc/docs/.vuepress/public/image/favicon/android-chrome-512x512.png b/doc/docs/.vuepress/public/image/favicon/android-chrome-512x512.png
new file mode 100755
index 0000000..557d8af
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/android-chrome-512x512.png
diff --git a/doc/docs/.vuepress/public/image/favicon/apple-touch-icon.png b/doc/docs/.vuepress/public/image/favicon/apple-touch-icon.png
new file mode 100755
index 0000000..5780626
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/apple-touch-icon.png
diff --git a/doc/docs/.vuepress/public/image/favicon/favicon-16x16.png b/doc/docs/.vuepress/public/image/favicon/favicon-16x16.png
new file mode 100755
index 0000000..f067228
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/favicon-16x16.png
diff --git a/doc/docs/.vuepress/public/image/favicon/favicon-32x32.png b/doc/docs/.vuepress/public/image/favicon/favicon-32x32.png
new file mode 100755
index 0000000..2865ef5
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/favicon-32x32.png
diff --git a/doc/docs/.vuepress/public/image/favicon/favicon.ico b/doc/docs/.vuepress/public/image/favicon/favicon.ico
new file mode 100755
index 0000000..2c1360d
--- /dev/null
+++ b/doc/docs/.vuepress/public/image/favicon/favicon.ico
diff --git a/doc/docs/doc/README.md b/doc/docs/doc/README.md
index 1e55c07..5d856bb 100755
--- a/doc/docs/doc/README.md
+++ b/doc/docs/doc/README.md
@@ -3,7 +3,7 @@ sidebar: auto
 ---
 
 # Yuescript
-<img src="/image/yuescript.svg" width="300" height="300" alt="logo"/>
+<img src="/image/yuescript.svg" width="300px" height="300px" alt="logo"/>
 
 ## Introduction
 
diff --git a/spec/inputs/test/class_spec.yue b/spec/inputs/test/class_spec.yue
new file mode 100644
index 0000000..394c59b
--- /dev/null
+++ b/spec/inputs/test/class_spec.yue
@@ -0,0 +1,297 @@
+
+describe "class", ->
+  it "should make a class with constructor", ->
+    class Thing
+      new: =>
+        @color = "blue"
+
+    instance = Thing!
+
+    assert.same instance, { color: "blue" }
+
+  it "should have instance methods", ->
+    class Thing
+      get_color: => @color
+
+      new: =>
+        @color = "blue"
+
+    instance = Thing!
+    assert.same instance\get_color!, "blue"
+
+  it "should have base properies from class", ->
+    class Thing
+      color: "blue"
+      get_color: => @color
+
+    instance = Thing!
+    assert.same instance\get_color!, "blue"
+    assert.same Thing.color, "blue"
+
+  it "should inherit another class", ->
+    class Base
+      get_property: => @[@property]
+
+      new: (@property) =>
+
+    class Thing extends Base
+      color: "green"
+
+    instance = Thing "color"
+    assert.same instance\get_property!, "green"
+
+
+  it "should have class properties", ->
+    class Base
+    class Thing extends Base
+
+    instance = Thing!
+
+    assert.same Base.__name, "Base"
+    assert.same Thing.__name, "Thing"
+    assert.is_true Thing.__parent == Base
+
+    assert.is_true instance.__class == Thing
+
+  it "should have name when assigned", ->
+    Thing = class
+    assert.same Thing.__name, "Thing"
+
+  it "should not expose class properties on instance", ->
+    class Thing
+      @height: 10
+
+    Thing.color = "blue"
+
+    instance = Thing!
+    assert.same instance.color, nil
+    assert.same instance.height, nil
+
+  it "should expose new things added to __base", ->
+    class Thing
+
+    instance = Thing!
+    Thing.__base.color = "green"
+
+    assert.same instance.color, "green"
+
+  it "should call with correct receiver", ->
+    local instance
+
+    class Thing
+      is_class: => assert.is_true @ == Thing
+      is_instance: => assert.is_true @ == instance
+
+      go: =>
+        @@is_class!
+        @is_instance!
+
+    instance = Thing!
+    instance\go!
+
+  it "should have class properies take precedence over base properties", ->
+    class Thing
+      @prop: "hello"
+      prop: "world"
+
+    assert.same "hello", Thing.prop
+
+  describe "super", ->
+    it "should call super constructor", ->
+      class Base
+        new: (@property) =>
+
+      class Thing extends Base
+        new: (@name) =>
+          super "name"
+
+      instance = Thing "the_thing"
+
+      assert.same instance.property, "name"
+      assert.same instance.name, "the_thing"
+
+    it "should call super method", ->
+      class Base
+        _count: 111
+        counter: => @_count
+
+      class Thing extends Base
+        counter: => "%08d"\format super!
+
+      instance = Thing!
+      assert.same instance\counter!, "00000111"
+
+    it "should call other method from super", ->
+      class Base
+        _count: 111
+        counter: =>
+          @_count
+
+      class Thing extends Base
+        other_method: => super\counter!
+
+      instance = Thing!
+      assert.same instance\other_method!, 111
+
+    it "should get super class", ->
+      class Base
+      class Thing extends Base
+        get_super: => super
+
+      instance = Thing!
+      assert.is_true instance\get_super! == Base
+
+    it "should get a bound method from super", ->
+      class Base
+        count: 1
+        get_count: => @count
+
+      class Thing extends Base
+        get_count: => "this is wrong"
+        get_method: => super\get_count
+
+      instance = Thing!
+      assert.same instance\get_method!!, 1
+
+    it "class properties take precedence in super class over base", ->
+      class Thing
+        @prop: "hello"
+        prop: "world"
+
+      class OtherThing extends Thing
+
+      assert.same "hello", OtherThing.prop
+
+    it "gets value from base in super class", ->
+      class Thing
+        prop: "world"
+
+      class OtherThing extends Thing
+      assert.same "world", OtherThing.prop
+
+    it "should let parent be replaced on class", ->
+      class A
+        @prop: "yeah"
+        cool: => 1234
+        plain: => "a"
+
+      class B
+        @prop: "okay"
+        cool: => 9999
+        plain: => "b"
+
+      class Thing extends A
+        cool: =>
+          super! + 1
+
+        get_super: =>
+          super
+
+      instance = Thing!
+
+      assert.same "a", instance\plain!
+      assert.same 1235, instance\cool!
+      assert A == instance\get_super!, "expected super to be B"
+
+      Thing.__parent = B
+      setmetatable Thing.__base, B.__base
+
+      assert.same "b", instance\plain!
+      assert.same 10000, instance\cool!
+      assert B == instance\get_super!, "expected super to be B"
+
+    it "should resolve many levels of super", ->
+      class One
+        a: =>
+          1
+
+      class Two extends One
+        a: =>
+          super! + 2
+
+      class Three extends Two
+        a: =>
+          super! + 3
+
+      i = Three!
+
+      assert.same 6, i\a!
+
+
+    it "should resolve many levels of super with a gap", ->
+      class One
+        a: =>
+          1
+
+      class Two extends One
+
+      class Three extends Two
+        a: =>
+          super! + 3
+
+      class Four extends Three
+        a: =>
+          super! + 4
+
+      i = Four!
+
+      assert.same 8, i\a!
+
+
+    it "should call correct class/instance super methods", ->
+      class Base
+        doit: =>
+          "instance"
+
+        @doit: =>
+          "class"
+
+      class One extends Base
+        doit: => super!
+        @doit: => super!
+
+      assert.same "instance", One!\doit!
+      assert.same "class", One\doit!
+
+
+    it "should resolve many levels of super on class methods", ->
+      class One
+        @a: =>
+          1
+
+      class Two extends One
+
+      class Three extends Two
+        @a: =>
+          super! + 3
+
+      class Four extends Three
+        @a: =>
+          super! + 4
+
+      assert.same 8, Four\a!
+
+    it "super should still work when method wrapped", ->
+      add_some = (opts) ->
+        => opts.amount + opts[1] @
+
+      class Base
+        value: => 1
+
+      class Sub extends Base
+        value: add_some {
+          amount: 12
+          =>
+            super! + 100
+        }
+
+      class OtherSub extends Base
+        value: if true
+          => 5 + super!
+        else
+          => 2 + super!
+
+      assert.same 1 + 100 + 12, Sub!\value!
+      assert.same 6, OtherSub!\value!
+
+
diff --git a/spec/inputs/test/loops_spec.yue b/spec/inputs/test/loops_spec.yue
new file mode 100644
index 0000000..68b5f97
--- /dev/null
+++ b/spec/inputs/test/loops_spec.yue
@@ -0,0 +1,9 @@
+
+describe "loops", ->
+  it "should continue", ->
+    input = {1,2,3,4,5,6}
+    output = for x in *input
+      continue if x % 2 == 1
+      x
+
+    assert.same output, { 2,4,6 }
diff --git a/spec/outputs/test/class_spec.lua b/spec/outputs/test/class_spec.lua
new file mode 100644
index 0000000..b4062e0
--- /dev/null
+++ b/spec/outputs/test/class_spec.lua
@@ -0,0 +1,1668 @@
+return describe("class", function()
+        it("should make a class with constructor", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function(self)
+                                        self.color = "blue"
+                                end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                local instance = Thing()
+                return assert.same(instance, {
+                        color = "blue"
+                })
+        end)
+        it("should have instance methods", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = {
+                                get_color = function(self)
+                                        return self.color
+                                end
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function(self)
+                                        self.color = "blue"
+                                end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                local instance = Thing()
+                return assert.same(instance:get_color(), "blue")
+        end)
+        it("should have base properies from class", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = {
+                                color = "blue",
+                                get_color = function(self)
+                                        return self.color
+                                end
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                local instance = Thing()
+                assert.same(instance:get_color(), "blue")
+                return assert.same(Thing.color, "blue")
+        end)
+        it("should inherit another class", function()
+                local Base
+                do
+                        local _class_0
+                        local _base_0 = {
+                                get_property = function(self)
+                                        return self[self.property]
+                                end
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function(self, property)
+                                        self.property = property
+                                end,
+                                __base = _base_0,
+                                __name = "Base"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Base = _class_0
+                end
+                local Thing
+                do
+                        local _class_0
+                        local _parent_0 = Base
+                        local _base_0 = {
+                                color = "green"
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        setmetatable(_base_0, _parent_0.__base)
+                        _class_0 = setmetatable({
+                                __init = function(self, ...)
+                                        return _class_0.__parent.__init(self, ...)
+                                end,
+                                __base = _base_0,
+                                __name = "Thing",
+                                __parent = _parent_0
+                        }, {
+                                __index = function(cls, name)
+                                        local val = rawget(_base_0, name)
+                                        if val == nil then
+                                                local parent = rawget(cls, "__parent")
+                                                if parent then
+                                                        return parent[name]
+                                                end
+                                        else
+                                                return val
+                                        end
+                                end,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        if _parent_0.__inherited then
+                                _parent_0.__inherited(_parent_0, _class_0)
+                        end
+                        Thing = _class_0
+                end
+                local instance = Thing("color")
+                return assert.same(instance:get_property(), "green")
+        end)
+        it("should have class properties", function()
+                local Base
+                do
+                        local _class_0
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Base"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Base = _class_0
+                end
+                local Thing
+                do
+                        local _class_0
+                        local _parent_0 = Base
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        setmetatable(_base_0, _parent_0.__base)
+                        _class_0 = setmetatable({
+                                __init = function(self, ...)
+                                        return _class_0.__parent.__init(self, ...)
+                                end,
+                                __base = _base_0,
+                                __name = "Thing",
+                                __parent = _parent_0
+                        }, {
+                                __index = function(cls, name)
+                                        local val = rawget(_base_0, name)
+                                        if val == nil then
+                                                local parent = rawget(cls, "__parent")
+                                                if parent then
+                                                        return parent[name]
+                                                end
+                                        else
+                                                return val
+                                        end
+                                end,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        if _parent_0.__inherited then
+                                _parent_0.__inherited(_parent_0, _class_0)
+                        end
+                        Thing = _class_0
+                end
+                local instance = Thing()
+                assert.same(Base.__name, "Base")
+                assert.same(Thing.__name, "Thing")
+                assert.is_true(Thing.__parent == Base)
+                return assert.is_true(instance.__class == Thing)
+        end)
+        it("should have name when assigned", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                return assert.same(Thing.__name, "Thing")
+        end)
+        it("should not expose class properties on instance", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        local self = _class_0;
+                        self.height = 10
+                        Thing = _class_0
+                end
+                Thing.color = "blue"
+                local instance = Thing()
+                assert.same(instance.color, nil)
+                return assert.same(instance.height, nil)
+        end)
+        it("should expose new things added to __base", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = { }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                local instance = Thing()
+                Thing.__base.color = "green"
+                return assert.same(instance.color, "green")
+        end)
+        it("should call with correct receiver", function()
+                local instance
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = {
+                                is_class = function(self)
+                                        return assert.is_true(self == Thing)
+                                end,
+                                is_instance = function(self)
+                                        return assert.is_true(self == instance)
+                                end,
+                                go = function(self)
+                                        self.__class:is_class()
+                                        return self:is_instance()
+                                end
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        Thing = _class_0
+                end
+                instance = Thing()
+                return instance:go()
+        end)
+        it("should have class properies take precedence over base properties", function()
+                local Thing
+                do
+                        local _class_0
+                        local _base_0 = {
+                                prop = "world"
+                        }
+                        if _base_0.__index == nil then
+                                _base_0.__index = _base_0
+                        end
+                        _class_0 = setmetatable({
+                                __init = function() end,
+                                __base = _base_0,
+                                __name = "Thing"
+                        }, {
+                                __index = _base_0,
+                                __call = function(cls, ...)
+                                        local _self_0 = setmetatable({ }, _base_0)
+                                        cls.__init(_self_0, ...)
+                                        return _self_0
+                                end
+                        })
+                        _base_0.__class = _class_0
+                        local self = _class_0;
+                        self.prop = "hello"
+                        Thing = _class_0
+                end
+                return assert.same("hello", Thing.prop)
+        end)
+        return describe("super", function()
+                it("should call super constructor", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function(self, property)
+                                                self.property = property
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, name)
+                                                self.name = name
+                                                return _class_0.__parent.__init(self, "name")
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing("the_thing")
+                        assert.same(instance.property, "name")
+                        return assert.same(instance.name, "the_thing")
+                end)
+                it("should call super method", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        _count = 111,
+                                        counter = function(self)
+                                                return self._count
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        counter = function(self)
+                                                return ("%08d"):format(_class_0.__parent.__base.counter(self))
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing()
+                        return assert.same(instance:counter(), "00000111")
+                end)
+                it("should call other method from super", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        _count = 111,
+                                        counter = function(self)
+                                                return self._count
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        other_method = function(self)
+                                                return _class_0.__parent.counter(self)
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing()
+                        return assert.same(instance:other_method(), 111)
+                end)
+                it("should get super class", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        get_super = function(self)
+                                                return _class_0.__parent
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing()
+                        return assert.is_true(instance:get_super() == Base)
+                end)
+                it("should get a bound method from super", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        count = 1,
+                                        get_count = function(self)
+                                                return self.count
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        get_count = function(self)
+                                                return "this is wrong"
+                                        end,
+                                        get_method = function(self)
+                                                local _base_1 = _class_0.__parent
+                                                local _fn_0 = _base_1.get_count
+                                                return _fn_0 and function(...)
+                                                        return _fn_0(_base_1, ...)
+                                                end
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing()
+                        return assert.same(instance:get_method()(), 1)
+                end)
+                it("class properties take precedence in super class over base", function()
+                        local Thing
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        prop = "world"
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Thing"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.prop = "hello"
+                                Thing = _class_0
+                        end
+                        local OtherThing
+                        do
+                                local _class_0
+                                local _parent_0 = Thing
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "OtherThing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                OtherThing = _class_0
+                        end
+                        return assert.same("hello", OtherThing.prop)
+                end)
+                it("gets value from base in super class", function()
+                        local Thing
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        prop = "world"
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Thing"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Thing = _class_0
+                        end
+                        local OtherThing
+                        do
+                                local _class_0
+                                local _parent_0 = Thing
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "OtherThing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                OtherThing = _class_0
+                        end
+                        return assert.same("world", OtherThing.prop)
+                end)
+                it("should let parent be replaced on class", function()
+                        local A
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        cool = function(self)
+                                                return 1234
+                                        end,
+                                        plain = function(self)
+                                                return "a"
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "A"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.prop = "yeah"
+                                A = _class_0
+                        end
+                        local B
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        cool = function(self)
+                                                return 9999
+                                        end,
+                                        plain = function(self)
+                                                return "b"
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "B"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.prop = "okay"
+                                B = _class_0
+                        end
+                        local Thing
+                        do
+                                local _class_0
+                                local _parent_0 = A
+                                local _base_0 = {
+                                        cool = function(self)
+                                                return _class_0.__parent.__base.cool(self) + 1
+                                        end,
+                                        get_super = function(self)
+                                                return _class_0.__parent
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Thing",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Thing = _class_0
+                        end
+                        local instance = Thing()
+                        assert.same("a", instance:plain())
+                        assert.same(1235, instance:cool())
+                        assert(A == instance:get_super(), "expected super to be B")
+                        Thing.__parent = B
+                        setmetatable(Thing.__base, B.__base)
+                        assert.same("b", instance:plain())
+                        assert.same(10000, instance:cool())
+                        return assert(B == instance:get_super(), "expected super to be B")
+                end)
+                it("should resolve many levels of super", function()
+                        local One
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        a = function(self)
+                                                return 1
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "One"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                One = _class_0
+                        end
+                        local Two
+                        do
+                                local _class_0
+                                local _parent_0 = One
+                                local _base_0 = {
+                                        a = function(self)
+                                                return _class_0.__parent.__base.a(self) + 2
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Two",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Two = _class_0
+                        end
+                        local Three
+                        do
+                                local _class_0
+                                local _parent_0 = Two
+                                local _base_0 = {
+                                        a = function(self)
+                                                return _class_0.__parent.__base.a(self) + 3
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Three",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Three = _class_0
+                        end
+                        local i = Three()
+                        return assert.same(6, i:a())
+                end)
+                it("should resolve many levels of super with a gap", function()
+                        local One
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        a = function(self)
+                                                return 1
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "One"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                One = _class_0
+                        end
+                        local Two
+                        do
+                                local _class_0
+                                local _parent_0 = One
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Two",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Two = _class_0
+                        end
+                        local Three
+                        do
+                                local _class_0
+                                local _parent_0 = Two
+                                local _base_0 = {
+                                        a = function(self)
+                                                return _class_0.__parent.__base.a(self) + 3
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Three",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Three = _class_0
+                        end
+                        local Four
+                        do
+                                local _class_0
+                                local _parent_0 = Three
+                                local _base_0 = {
+                                        a = function(self)
+                                                return _class_0.__parent.__base.a(self) + 4
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Four",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Four = _class_0
+                        end
+                        local i = Four()
+                        return assert.same(8, i:a())
+                end)
+                it("should call correct class/instance super methods", function()
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        doit = function(self)
+                                                return "instance"
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.doit = function(self)
+                                        return "class"
+                                end
+                                Base = _class_0
+                        end
+                        local One
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        doit = function(self)
+                                                return _class_0.__parent.__base.doit(self)
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "One",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.doit = function(self)
+                                        return _class_0.__parent.doit(self)
+                                end
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                One = _class_0
+                        end
+                        assert.same("instance", One():doit())
+                        return assert.same("class", One:doit())
+                end)
+                it("should resolve many levels of super on class methods", function()
+                        local One
+                        do
+                                local _class_0
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "One"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.a = function(self)
+                                        return 1
+                                end
+                                One = _class_0
+                        end
+                        local Two
+                        do
+                                local _class_0
+                                local _parent_0 = One
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Two",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Two = _class_0
+                        end
+                        local Three
+                        do
+                                local _class_0
+                                local _parent_0 = Two
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Three",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.a = function(self)
+                                        return _class_0.__parent.a(self) + 3
+                                end
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Three = _class_0
+                        end
+                        local Four
+                        do
+                                local _class_0
+                                local _parent_0 = Three
+                                local _base_0 = { }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Four",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                local self = _class_0;
+                                self.a = function(self)
+                                        return _class_0.__parent.a(self) + 4
+                                end
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Four = _class_0
+                        end
+                        return assert.same(8, Four:a())
+                end)
+                return it("super should still work when method wrapped", function()
+                        local add_some
+                        add_some = function(opts)
+                                return function(self)
+                                        return opts.amount + opts[1](self)
+                                end
+                        end
+                        local Base
+                        do
+                                local _class_0
+                                local _base_0 = {
+                                        value = function(self)
+                                                return 1
+                                        end
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                _class_0 = setmetatable({
+                                        __init = function() end,
+                                        __base = _base_0,
+                                        __name = "Base"
+                                }, {
+                                        __index = _base_0,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                Base = _class_0
+                        end
+                        local Sub
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        value = add_some({
+                                                amount = 12,
+                                                function(self)
+                                                        return _class_0.__parent.__base.value(self) + 100
+                                                end
+                                        })
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "Sub",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                Sub = _class_0
+                        end
+                        local OtherSub
+                        do
+                                local _class_0
+                                local _parent_0 = Base
+                                local _base_0 = {
+                                        value = (function()
+                                                if true then
+                                                        return function(self)
+                                                                return 5 + _class_0.__parent.__base.value(self)
+                                                        end
+                                                else
+                                                        return function(self)
+                                                                return 2 + _class_0.__parent.__base.value(self)
+                                                        end
+                                                end
+                                        end)()
+                                }
+                                if _base_0.__index == nil then
+                                        _base_0.__index = _base_0
+                                end
+                                setmetatable(_base_0, _parent_0.__base)
+                                _class_0 = setmetatable({
+                                        __init = function(self, ...)
+                                                return _class_0.__parent.__init(self, ...)
+                                        end,
+                                        __base = _base_0,
+                                        __name = "OtherSub",
+                                        __parent = _parent_0
+                                }, {
+                                        __index = function(cls, name)
+                                                local val = rawget(_base_0, name)
+                                                if val == nil then
+                                                        local parent = rawget(cls, "__parent")
+                                                        if parent then
+                                                                return parent[name]
+                                                        end
+                                                else
+                                                        return val
+                                                end
+                                        end,
+                                        __call = function(cls, ...)
+                                                local _self_0 = setmetatable({ }, _base_0)
+                                                cls.__init(_self_0, ...)
+                                                return _self_0
+                                        end
+                                })
+                                _base_0.__class = _class_0
+                                if _parent_0.__inherited then
+                                        _parent_0.__inherited(_parent_0, _class_0)
+                                end
+                                OtherSub = _class_0
+                        end
+                        assert.same(1 + 100 + 12, Sub():value())
+                        return assert.same(6, OtherSub():value())
+                end)
+        end)
+end)
diff --git a/spec/outputs/test/loops_spec.lua b/spec/outputs/test/loops_spec.lua
new file mode 100644
index 0000000..3fc0332
--- /dev/null
+++ b/spec/outputs/test/loops_spec.lua
@@ -0,0 +1,39 @@
+return describe("loops", function()
+        return it("should continue", function()
+                local input = {
+                        1,
+                        2,
+                        3,
+                        4,
+                        5,
+                        6
+                }
+                local output
+                do
+                        local _accum_0 = { }
+                        local _len_0 = 1
+                        for _index_0 = 1, #input do
+                                local x = input[_index_0]
+                                local _continue_0 = false
+                                repeat
+                                        if x % 2 == 1 then
+                                                _continue_0 = true
+                                                break
+                                        end
+                                        _accum_0[_len_0] = x
+                                        _len_0 = _len_0 + 1
+                                        _continue_0 = true
+                                until true
+                                if not _continue_0 then
+                                        break
+                                end
+                        end
+                        output = _accum_0
+                end
+                return assert.same(output, {
+                        2,
+                        4,
+                        6
+                })
+        end)
+end)