object.fy

FancySpec describe: Object with: {
  it: "should dynamically evaluate a message-send with no arguments" when: {
    obj = 42
    obj send: "to_s" . should == "42"
  }

  it: "should dynamically evaluate a message-send with a list of arguments" when: {
    obj = "hello, world"
    obj send: "from:to:" params: [0,4] . should == "hello"
  }

  it: "should dynamically define slotvalues" when: {
    obj = Object new
    obj get_slot: 'foo . should == nil
    obj set_slot: 'foo value: "hello, world"
    obj get_slot: 'foo . should == "hello, world"
  }

  it: "should undefine a singleton method" when: {
    def self a_singleton_method {
      "a singleton method!"
    }
    self a_singleton_method should == "a singleton method!"
    self undefine_singleton_method: 'a_singleton_method
    try {
      self a_singleton_method should == nil # should not get here
    } catch NoMethodError => e {
      e method_name should == "a_singleton_method"
    }
  }

  it: "should return its class" when: {
    nil class should == NilClass
    true class should == TrueClass
    "foo" class should == String
    'bar class should == Symbol
    { 'a_block } class should == Block
  }

  it: "should call unkown_message:with_params: when calling an undefined method" when: {
    class UnknownMessage {
      def unknown_message: message with_params: params {
        "Got: " ++ message ++ " " ++ params
      }
    }

    obj = UnknownMessage new
    obj this_is_not_defined: "It's true!" . should == "Got: this_is_not_defined: It's true!"
  }

  it: "should return a correct string representation" when: {
    3 to_s should == "3"
    'foo to_s should == "foo"
    nil to_s should == ""
  }

  it: "should return a correct array representation" when: {
    nil to_a should == []
    'foo to_a should == ['foo]
    <['foo => "bar", 'bar => "baz"]> to_a should =? [['bar, "baz"], ['foo, "bar"]]
  }

  it: "should return a correct fixnum representation" when: {
    nil to_i should == 0
    3 to_i should == 3
    3.28437 to_i should == 3
  }

  it: "should be an Object of the correct Class (or Superclass)" when: {
    Object new is_a?: Object . should == true
    "foo" is_a?: String . should == true
    "foo" is_a?: Object . should == true
    1123 is_a?: Fixnum . should == true
    1123 is_a?: Object . should == true
    132.123 is_a?: Float . should == true
    132.123 is_a?: Object . should == true
  }

  # boolean messages

  it: "should be true for calling and: with non-nil values" for: 'and: when: {
    'foo and: 'bar . should == true
  }

  it: "should be false for calling and: with a nil value" for: 'and: when: {
    'foo and: nil . should == false
  }

  it: "should be true for calling && with non-nil values" for: '&& when: {
    ('foo && 'bar) should == true
  }

  it: "should be false for calling && with a nil value" for: '&& when: {
    ('foo && nil) should == false
  }


  it: "should be true for calling or: with any value" for: 'or: when: {
    'foo or: 'bar . should == true
    'foo or: nil . should == true
  }

  it: "should be true for calling || with any value" for: '|| when: {
    ('foo || 'bar) should == true
    ('foo || nil) should == true
  }

  # end boolean messages

  it: "should NOT be nil for non-nil values" for: 'nil? when: {
    'foo nil? should == nil
    1 nil? should == nil
    "hello" nil? should == nil
  }

  it: "should NOT be false for non-nil values" for: 'false? when: {
    'foo false? should == nil
    "hello, world" false? should == nil
  }

  it: "should not be true" for: 'true? when: {
    'foo true? should == nil
    "hello, world" true? should == nil
  }

  it: "should return the correct value" for: 'returning:do: when: {
    returning: [] do: |arr| {
      arr << 1
      arr << 2
      arr << 3
    } . should == [1,2,3]
  }
}