spec for testing super scope when inside table/function

Author: leafo

spec/inputs/class.moon

@@ -176,4 +176,14 @@ class Something
 class X
   new: hi
 
+
+--
+
+class Cool extends Thing
+  dang: =>
+    {
+      hello: -> super!
+      world: -> super.one
+    }
+
 nil

spec/outputs/class.lua

@@ -761,4 +761,52 @@ do
   _base_0.__class = _class_0
   X = _class_0
 end
+do
+  local _class_0
+  local _parent_0 = Thing
+  local _base_0 = {
+    dang = function(self)
+      return {
+        hello = function()
+          return _class_0.__parent.dang(self)
+        end,
+        world = function()
+          return _class_0.__parent.one
+        end
+      }
+    end
+  }
+  _base_0.__index = _base_0
+  setmetatable(_base_0, _parent_0.__base)
+  _class_0 = setmetatable({
+    __init = function(self, ...)
+      return _class_0.__parent.__init(self, ...)
+    end,
+    __base = _base_0,
+    __name = "Cool",
+    __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
+  Cool = _class_0
+end
 return nil