moonscript/spec/class_spec.moon

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 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 "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

  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!