opal-cj 0.7.0.beta1

data/spec/opal/core/module/method_defined_spec.rb

@@ -0,0 +1,48 @@
+require File.expand_path('../fixtures/classes', __FILE__)
+
+describe "Module#method_defined?" do
+  it "returns true if a public or private method with the given name is defined in self, self's ancestors or one of self's included modules" do
+    # Defined in Child
+    ModuleSpecs::Child.method_defined?(:public_child).should == true
+    ModuleSpecs::Child.method_defined?("private_child").should == false
+    ModuleSpecs::Child.method_defined?(:accessor_method).should == true
+
+    # Defined in Parent
+    # ModuleSpecs::Child.method_defined?("public_parent").should == true
+    # ModuleSpecs::Child.method_defined?(:private_parent).should == false
+
+    # Defined in Module
+    # ModuleSpecs::Child.method_defined?(:public_module).should == true
+    # ModuleSpecs::Child.method_defined?(:protected_module).should == true
+    # ModuleSpecs::Child.method_defined?(:private_module).should == false
+
+    # Defined in SuperModule
+    # ModuleSpecs::Child.method_defined?(:public_super_module).should == true
+    # ModuleSpecs::Child.method_defined?(:protected_super_module).should == true
+    # ModuleSpecs::Child.method_defined?(:private_super_module).should == false
+  end
+
+  # unlike alias_method, module_function, public, and friends,
+  it "does not search Object or Kernel when called on a module" do
+    m = Module.new
+
+    m.method_defined?(:module_specs_public_method_on_kernel).should be_false
+  end
+
+  it "raises a TypeError when the given object is not a string/symbol/fixnum" do
+    c = Class.new
+    o = mock('123')
+
+    lambda { c.method_defined?(o) }.should raise_error(TypeError)
+
+    o.should_receive(:to_str).and_return(123)
+    lambda { c.method_defined?(o) }.should raise_error(TypeError)
+  end
+
+  it "converts the given name to a string using to_str" do
+    c = Class.new { def test(); end }
+    (o = mock('test')).should_receive(:to_str).and_return("test")
+
+    c.method_defined?(o).should == true
+  end
+end

data/spec/opal/core/module/module_function_spec.rb

@@ -0,0 +1,25 @@
+describe "Module#module_function with specific method names" do
+  it "creates duplicates of the given instance methods on the Module object" do
+    m = Module.new do
+      def test()  end
+      def test2() end
+      def test3() end
+
+      module_function :test, :test2
+    end
+
+    m.respond_to?(:test).should  == true
+    m.respond_to?(:test2).should == true
+    m.respond_to?(:test3).should == false
+  end
+
+  it "returns the current module" do
+    x = nil
+    m = Module.new do
+      def test()  end
+      x = module_function :test
+    end
+
+    x.should == m
+  end
+end

data/spec/opal/core/module/name_spec.rb

@@ -0,0 +1,52 @@
+require 'spec_helper'
+
+module ModuleNameSpec
+  module A
+    class B
+    end
+  end
+end
+
+describe "Module#name" do
+  it "should return the class name for boot types" do
+    BasicObject.name.should == "BasicObject"
+    Object.name.should == "Object"
+    Class.name.should == "Class"
+    Module.name.should == "Module"
+  end
+
+  it "should return class name for bridged classes" do
+    Array.name.should == "Array"
+  end
+
+  it "should return name for modules and classes" do
+    Enumerator.name.should == "Enumerator"
+    Enumerable.name.should == "Enumerable"
+  end
+
+  it "should return nil for anonymous class" do
+    Class.new.name.should == nil
+  end
+
+  it "should join nested classes using '::'" do
+    ModuleNameSpec::A.name.should == "ModuleNameSpec::A"
+    ModuleNameSpec::A::B.name.should == "ModuleNameSpec::A::B"
+  end
+
+  it "uses just child name when class set inside anonymous parent" do
+    a = Class.new
+    b = Class.new
+    a.const_set :Child, b
+    b.name.should == "Child"
+  end
+
+  it "uses parent name once parent anonymous class gets name" do
+    a = Class.new
+    b = Class.new
+    a.const_set :Child, b
+    b.name.should == "Child"
+
+    ModuleNameSpec.const_set :Parent, a
+    b.name.should == "ModuleNameSpec::Parent::Child"
+  end
+end

data/spec/opal/core/module/public_method_defined_spec.rb

@@ -0,0 +1,18 @@
+require File.expand_path('../fixtures/classes', __FILE__)
+
+describe "Module#public_method_defined?" do
+  it "returns true if the named public method is defined by module or its ancestors" do
+    ModuleSpecs::CountsMixin.public_method_defined?("public_3").should == true
+
+    ModuleSpecs::CountsParent.public_method_defined?("public_3").should == true
+    ModuleSpecs::CountsParent.public_method_defined?("public_2").should == true
+
+    ModuleSpecs::CountsChild.public_method_defined?("public_3").should == true
+    ModuleSpecs::CountsChild.public_method_defined?("public_2").should == true
+    ModuleSpecs::CountsChild.public_method_defined?("public_1").should == true
+  end
+
+  it "returns false if the named method is not defined by the module or its ancestors" do
+    ModuleSpecs::CountsMixin.public_method_defined?(:public_10).should == false
+  end
+end

data/spec/opal/core/module/remove_const_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path('../../fixtures/constants', __FILE__)
+
+describe "Module#remove_const" do
+  it "removes the constant specified by a String or Symbol from the receiver's constant table" do
+    ConstantSpecs::ModuleM::CS_CONST252 = :const252
+    ConstantSpecs::ModuleM::CS_CONST252.should == :const252
+
+    ConstantSpecs::ModuleM.send :remove_const, :CS_CONST252
+    lambda { ConstantSpecs::ModuleM::CS_CONST252 }.should raise_error(NameError)
+
+    ConstantSpecs::ModuleM::CS_CONST253 = :const253
+    ConstantSpecs::ModuleM::CS_CONST253.should == :const253
+
+    ConstantSpecs::ModuleM.send :remove_const, "CS_CONST253"
+    lambda { ConstantSpecs::ModuleM::CS_CONST253 }.should raise_error(NameError)
+  end
+
+  it "returns the value of the removed constant" do
+    ConstantSpecs::ModuleM::CS_CONST254 = :const254
+    ConstantSpecs::ModuleM.send(:remove_const, :CS_CONST254).should == :const254
+  end
+end

data/spec/opal/core/module/undef_method_spec.rb

@@ -0,0 +1,66 @@
+require File.expand_path('../fixtures/classes', __FILE__)
+
+module ModuleSpecs
+  class NoInheritance
+    def method_to_undef() 1 end
+    def another_method_to_undef() 1 end
+  end
+
+  class Parent
+    def method_to_undef() 1 end
+    def another_method_to_undef() 1 end
+  end
+
+  class Child < Parent
+  end
+
+  class Ancestor
+    def method_to_undef() 1 end
+    def another_method_to_undef() 1 end
+  end
+
+  class Descendant < Ancestor
+  end
+end
+
+describe "Module#undef_method with symbol" do
+  it "removes a method defined in a class" do
+    x = ModuleSpecs::NoInheritance.new
+
+    x.method_to_undef.should == 1
+
+    ModuleSpecs::NoInheritance.send :undef_method, :method_to_undef
+
+    lambda { x.method_to_undef }.should raise_error(NoMethodError)
+  end
+
+  it "removes a method defined in a super class" do
+    child = ModuleSpecs::Child.new
+    child.method_to_undef.should == 1
+
+    ModuleSpecs::Child.send :undef_method, :method_to_undef
+
+    lambda { child.method_to_undef }.should raise_error(NoMethodError)
+  end
+end
+
+describe "Module#undef_method with string" do
+  it "removes a method defined in a class" do
+    x = ModuleSpecs::NoInheritance.new
+
+    x.another_method_to_undef.should == 1
+
+    ModuleSpecs::NoInheritance.send :undef_method, 'another_method_to_undef'
+
+    lambda { x.another_method_to_undef }.should raise_error(NoMethodError)
+  end
+
+  it "removes a method defined in a super class" do
+    child = ModuleSpecs::Child.new
+    child.another_method_to_undef.should == 1
+
+    ModuleSpecs::Child.send :undef_method, 'another_method_to_undef'
+
+    lambda { child.another_method_to_undef }.should raise_error(NoMethodError)
+  end
+end

data/spec/opal/core/numeric/bit_and_spec.rb

@@ -0,0 +1,7 @@
+describe "Numeric#&" do
+  it "returns self bitwise AND other" do
+    (256 & 16).should == 0
+    (2010 & 5).should == 0
+    (65535 & 1).should == 1
+  end
+end

data/spec/opal/core/numeric/bit_or_spec.rb

@@ -0,0 +1,8 @@
+describe "Numeric#|" do
+  it "returns self bitwise OR other" do
+    (1 | 0).should == 1
+    (5 | 4).should == 5
+    (5 | 6).should == 7
+    (248 | 4096).should == 4344
+  end
+end

data/spec/opal/core/numeric/bit_xor_spec.rb

@@ -0,0 +1,6 @@
+describe "Numeric#^" do
+  it "returns self bitwise EXCLUSIVE OR other" do
+    (3 ^ 5).should == 6
+    (-2 ^ -255).should == 255
+  end
+end

data/spec/opal/core/numeric/ceil_spec.rb

@@ -0,0 +1,8 @@
+describe "Numeric#ceil" do
+  it "returns the ceil'ed value" do
+    1.ceil.should == 1
+    (-42).ceil.should == -42
+    3.142.ceil.should == 4
+    0.ceil.should == 0
+  end
+end

data/spec/opal/core/numeric/chr_spec.rb

@@ -0,0 +1,8 @@
+describe "Numeric#chr" do
+  it "returns a string containing the ASCII character represented by self" do
+    111.chr.should == 'o'
+    112.chr.should == 'p'
+    97.chr.should ==  'a'
+    108.chr.should == 'l'
+  end
+end

data/spec/opal/core/numeric/comparison_spec.rb

@@ -0,0 +1,24 @@
+describe "Numeric#<=>" do
+  it "returns -1 when self is less than the given argument" do
+    (-3 <=> -1).should == -1
+    (-5 <=> 10).should == -1
+    (-5 <=> -4.5).should == -1
+  end
+
+  it "returns 0 when self is equal to the given argument" do
+    (0 <=> 0).should == 0
+    (954 <=> 954).should == 0
+    (954 <=> 954.0).should == 0
+  end
+
+  it "returns 1 when self is greater than the given argument" do
+    (496 <=> 5).should == 1
+    (200 <=> 100).should == 1
+    (51 <=> 50.5).should == 1
+  end
+
+  it "returns nil when the given argument is not an Numeric" do
+    (3 <=> mock('x')).should == nil
+    (3 <=> 'test').should == nil
+  end
+end

data/spec/opal/core/numeric/complement_spec.rb

@@ -0,0 +1,8 @@
+describe "Numeric#~" do
+  it "returns self with each bit flipped" do
+    (~0).should == -1
+    (~1221).should == -1222
+    (~-2).should == 1
+    (~-599).should == 598
+  end
+end

data/spec/opal/core/numeric/divide_spec.rb

@@ -0,0 +1,10 @@
+describe "Numeric#/" do
+  it "returns self divided by the given argument" do
+    (2 / 2).should == 1
+    (3 / 2).should == 1.5
+  end
+
+  it "supports dividing negative numbers" do
+    (-1 / 10).should == -0.1
+  end
+end

data/spec/opal/core/numeric/eql_spec.rb

@@ -0,0 +1,9 @@
+describe "Numeric#eql?" do
+  it "returns true if self has the same value as other" do
+    (1.eql? 1).should == true
+    (9.eql? 5).should == false
+
+    (9.eql? 9.0).should == true
+    (9.eql? 9.01).should == false
+  end
+end

data/spec/opal/core/numeric/exponent_spec.rb

@@ -0,0 +1,33 @@
+describe "Numeric#**" do
+  it "returns self raised to the given power" do
+    (2 ** 0).should == 1
+    (2 ** 1).should == 2
+    (2 ** 2).should == 4
+
+    (2 ** 40).should == 1099511627776
+  end
+
+  it "overflows the answer to a bignum transparantly" do
+    (2 ** 29).should == 536870912
+    (2 ** 30).should == 1073741824
+    (2 ** 31).should == 2147483648
+    (2 ** 32).should == 4294967296
+
+    (2 ** 61).should == 2305843009213693952
+    (2 ** 62).should == 4611686018427387904
+    (2 ** 63).should == 9223372036854775808
+    (2 ** 64).should == 18446744073709551616
+  end
+
+  it "raises negative numbers to the given power" do
+    ((-2) ** 29).should == -536870912
+    ((-2) ** 30).should == 1073741824
+    ((-2) ** 31).should == -2147483648
+    ((-2) ** 32).should == 4294967296
+
+    ((-2) ** 61).should == -2305843009213693952
+    ((-2) ** 62).should == 4611686018427387904
+    ((-2) ** 63).should == -9223372036854775808
+    ((-2) ** 64).should == 18446744073709551616
+  end
+end

data/spec/opal/core/numeric/floor_spec.rb

@@ -0,0 +1,8 @@
+describe "Numeric#floor" do
+  it "returns the floor'ed value" do
+    1.floor.should == 1
+    (-42).floor.should == -42
+    3.142.floor.should == 3
+    0.floor.should == 0
+  end
+end

data/spec/opal/core/numeric/gt_spec.rb

@@ -0,0 +1,11 @@
+describe "Numeric#>" do
+  it "returns true if self is greater than the given argument" do
+    (13 > 2).should == true
+    (-500 > -600).should == true
+
+    (1 > 5).should == false
+    (5 > 5).should == false
+
+    (5 > 4.999).should == true
+  end
+end

data/spec/opal/core/numeric/gte_spec.rb

@@ -0,0 +1,12 @@
+describe "Numeric#>=" do
+  it "returns true if self is greater than or equal to the given argument" do
+    (13 >= 2).should == true
+    (-500 >= -600).should == true
+
+    (1 >= 5).should == false
+    (2 >= 2).should == true
+    (5 >= 5).should == true
+
+    (5 >= 4.999).should == true
+  end
+end

data/spec/opal/core/numeric/integer_spec.rb

@@ -0,0 +1,9 @@
+describe "Numeric#integer?" do
+  it "returns true if number is integer, false otherwise" do
+    0.integer?.should == true
+    (-1).integer?.should == true
+    1.integer?.should == true
+
+    3.142.integer?.should == false
+  end
+end

data/spec/opal/core/numeric/left_shift_spec.rb

@@ -0,0 +1,21 @@
+describe "Numeric#<< with n << m" do
+  it "returns n shifted left m bits when n > 0, m > 0" do
+    (1 << 1).should == 2
+  end
+
+  it "returns n shifted left m bits when n < 0, m > 0" do
+    (-1 << 1).should == -2
+  end
+
+  it "returns 0 when n == 0" do
+    (0 << 1).should == 0
+  end
+
+  it "returns n when n > 0, m == 0" do
+    (1 << 0).should == 1
+  end
+
+  it "returns n when n < 0, m == 0" do
+    (-1 << 0).should == -1
+  end
+end