webruby 0.2.7 → 0.9.1

data/modules/mruby/test/t/class.rb

@@ -5,10 +5,6 @@ assert('Class', '15.2.3') do
   assert_equal(Class, Class.class)
 end
 
-assert('Class superclass', '15.2.3.2') do
-  assert_equal(Module, Class.superclass)
-end
-
 assert('Class#initialize', '15.2.3.3.1') do
   c = Class.new do
     def test
@@ -226,8 +222,13 @@ assert('Class Dup 2') do
   assert_equal(Module, M.dup.class)
 end
 
-assert('Class new') do
+assert('Class.new') do
   assert_equal(Class, Class.new.class)
+  a = []
+  klass = Class.new do |c|
+    a << c
+  end
+  assert_equal([klass], a)
 end
 
 assert('class to return the last value') do
@@ -359,3 +360,26 @@ assert('singleton tests') do
     end
   end
 end
+
+assert('clone Class') do
+  class Foo
+    def func
+      true
+    end
+  end
+
+  Foo.clone.new.func
+end
+
+assert('class variable and class << self style class method') do
+  class ClassVariableTest
+    @@class_variable = "value"
+    class << self
+      def class_variable
+        @@class_variable
+      end
+    end
+  end
+
+  assert_equal("value", ClassVariableTest.class_variable)
+end

data/modules/mruby/test/t/comparable.rb

@@ -3,22 +3,26 @@ assert('Comparable#<', '15.3.3.2.1') do
   class Foo
     include Comparable
     def <=>(x)
-      0
+      x
     end
   end
-
-  assert_false(Foo.new < Foo.new)
+  assert_false(Foo.new < 0)
+  assert_false(Foo.new < 1)
+  assert_true(Foo.new < -1)
+  assert_raise(ArgumentError){ Foo.new < nil }
 end
 
 assert('Comparable#<=', '15.3.3.2.2') do
   class Foo
     include Comparable
     def <=>(x)
-      0
+      x
     end
   end
-
-  assert_true(Foo.new <= Foo.new)
+  assert_true(Foo.new <= 0)
+  assert_false(Foo.new <= 1)
+  assert_true(Foo.new <= -1)
+  assert_raise(ArgumentError){ Foo.new <= nil }
 end
 
 assert('Comparable#==', '15.3.3.2.3') do
@@ -36,22 +40,26 @@ assert('Comparable#>', '15.3.3.2.4') do
   class Foo
     include Comparable
     def <=>(x)
-      0
+      x
     end
   end
-
-  assert_false(Foo.new > Foo.new)
+  assert_false(Foo.new > 0)
+  assert_true(Foo.new > 1)
+  assert_false(Foo.new > -1)
+  assert_raise(ArgumentError){ Foo.new > nil }
 end
 
 assert('Comparable#>=', '15.3.3.2.5') do
   class Foo
     include Comparable
     def <=>(x)
-      0
+      x
     end
   end
-
-  assert_true(Foo.new >= Foo.new)
+  assert_true(Foo.new >= 0)
+  assert_true(Foo.new >= 1)
+  assert_false(Foo.new >= -1)
+  assert_raise(ArgumentError){ Foo.new >= nil }
 end
 
 assert('Comparable#between?', '15.3.3.2.6') do

data/modules/mruby/test/t/enumerable.rb

@@ -8,11 +8,35 @@ end
 assert('Enumerable#all?', '15.3.2.2.1') do
   assert_true([1,2,3].all?)
   assert_false([1,false,3].all?)
+
+  a = [2,4,6]
+  all = a.all? do |e|
+    e % 2 == 0
+  end
+  assert_true(all)
+
+  a = [2,4,7]
+  all = a.all? do |e|
+    e % 2 == 0
+  end
+  assert_false(all)
 end
 
 assert('Enumerable#any?', '15.3.2.2.2') do
   assert_true([false,true,false].any?)
   assert_false([false,false,false].any?)
+
+  a = [1,3,6]
+  any = a.any? do |e|
+    e % 2 == 0
+  end
+  assert_true(any)
+
+  a = [1,3,5]
+  any = a.any? do |e|
+    e % 2 == 0
+  end
+  assert_false(any)
 end
 
 assert('Enumerable#collect', '15.3.2.2.3') do
@@ -20,7 +44,7 @@ assert('Enumerable#collect', '15.3.2.2.3') do
 end
 
 assert('Enumerable#detect', '15.3.2.2.4') do
-  assert_true [1,2,3].detect() { true }
+  assert_equal 1, [1,2,3].detect() { true }
   assert_equal 'a', [1,2,3].detect("a") { false }
 end
 
@@ -39,7 +63,7 @@ assert('Enumerable#entries', '15.3.2.2.6') do
 end
 
 assert('Enumerable#find', '15.3.2.2.7') do
-  assert_true [1,2,3].find() { true }
+  assert_equal 1, [1,2,3].find() { true }
   assert_equal 'a', [1,2,3].find("a") { false }
 end
 
@@ -82,16 +106,18 @@ assert('Enumerable#member?', '15.3.2.2.15') do
   assert_false [1,2,3,4,5,6,7,8,9].member?(0)
 end
 
-assert('Enumerable#partion', '15.3.2.2.16') do
-  [0,1,2,3,4,5,6,7,8,9].partition do |i|
+assert('Enumerable#partition', '15.3.2.2.16') do
+  partition = [0,1,2,3,4,5,6,7,8,9].partition do |i|
     i % 2 == 0
-  end == [[0,2,4,6,8], [1,3,5,7,9]]
+  end
+  assert_equal [[0,2,4,6,8], [1,3,5,7,9]], partition
 end
 
 assert('Enumerable#reject', '15.3.2.2.17') do
-  [0,1,2,3,4,5,6,7,8,9].reject do |i|
+  reject = [0,1,2,3,4,5,6,7,8,9].reject do |i|
     i % 2 == 0
-  end == [1,3,5,7,9]
+  end
+  assert_equal [1,3,5,7,9], reject
 end
 
 assert('Enumerable#select', '15.3.2.2.18') do

data/modules/mruby/test/t/exception.rb

@@ -5,10 +5,6 @@ assert('Exception', '15.2.22') do
   assert_equal Class, Exception.class
 end
 
-assert('Exception superclass', '15.2.22.2') do
-  assert_equal Object, Exception.superclass
-end
-
 assert('Exception.exception', '15.2.22.4.1') do
   e = Exception.exception('a')
 
@@ -16,11 +12,14 @@ assert('Exception.exception', '15.2.22.4.1') do
 end
 
 assert('Exception#exception', '15.2.22.5.1') do
-  e1 = Exception.exception()
-  e2 = Exception.exception('b')
-
-  assert_equal Exception, e1.class
-  assert_equal Exception, e2.class
+  e = Exception.new
+  re = RuntimeError.new
+  assert_equal e, e.exception
+  assert_equal e, e.exception(e)
+  assert_equal re, re.exception(re)
+  changed_re = re.exception('message has changed')
+  assert_not_equal re, changed_re
+  assert_equal 'message has changed', changed_re.message
 end
 
 assert('Exception#message', '15.2.22.5.2') do
@@ -42,6 +41,16 @@ assert('Exception.exception', '15.2.22.4.1') do
   assert_equal 'a', e.message
 end
 
+assert('NameError', '15.2.31') do
+  assert_raise(NameError) do
+    raise NameError.new
+  end
+
+  e = NameError.new "msg", "name"
+  assert_equal "msg", e.message
+  assert_equal "name", e.name
+end
+
 assert('ScriptError', '15.2.37') do
   assert_raise(ScriptError) do
     raise ScriptError.new
@@ -57,15 +66,16 @@ end
 # Not ISO specified
 
 assert('Exception 1') do
-  begin
+r=begin
     1+1
   ensure
     2+2
-  end == 2
+  end
+  assert_equal 2, r
 end
 
 assert('Exception 2') do
-  begin
+r=begin
     1+1
     begin
       2+2
@@ -74,11 +84,12 @@ assert('Exception 2') do
     end
   ensure
     4+4
-  end == 4
+  end
+  assert_equal 4, r
 end
 
 assert('Exception 3') do
-  begin
+r=begin
     1+1
     begin
       2+2
@@ -92,7 +103,8 @@ assert('Exception 3') do
     ensure
       6+6
     end
-  end == 4
+  end
+  assert_equal 4, r
 end
 
 assert('Exception 4') do
@@ -171,17 +183,18 @@ assert('Exception 7') do
 end
 
 assert('Exception 8') do
-  begin
+r=begin
     1
   rescue
     2
   else
     3
-  end == 3
+  end
+  assert_equal 3, r
 end
 
 assert('Exception 9') do
-  begin
+r=begin
     1+1
   rescue
     2+2
@@ -189,11 +202,12 @@ assert('Exception 9') do
     3+3
   ensure
     4+4
-  end == 6
+  end
+  assert_equal 6, r
 end
 
 assert('Exception 10') do
-  begin
+r=begin
     1+1
     begin
       2+2
@@ -208,7 +222,8 @@ assert('Exception 10') do
     6+6
   ensure
     7+7
-  end == 12
+  end
+  assert_equal 12, r
 end
 
 assert('Exception 11') do
@@ -273,13 +288,13 @@ assert('Exception 16') do
     raise "foo"
     false
   rescue => e
-    e.message == "foo"
+    assert_equal "foo", e.message
   end
 end
 
 assert('Exception 17') do
-  begin
-    raise "a"  # StandardError
+r=begin
+    raise "a"  # RuntimeError
   rescue ArgumentError
     1
   rescue StandardError
@@ -288,11 +303,12 @@ assert('Exception 17') do
     3
   ensure
     4
-  end == 2
+  end
+  assert_equal 2, r
 end
 
 assert('Exception 18') do
-  begin
+r=begin
     0
   rescue ArgumentError
     1
@@ -302,7 +318,8 @@ assert('Exception 18') do
     3
   ensure
     4
-  end == 3
+  end
+  assert_equal 3, r
 end
 
 assert('Exception 19') do
@@ -333,27 +350,35 @@ assert('Exception 19') do
 end
 
 assert('Exception#inspect without message') do
-  Exception.new.inspect
+  assert_equal "Exception: Exception", Exception.new.inspect
 end
 
 assert('Exception#backtrace') do
-  begin
-    raise "get backtrace"
-  rescue => e
-    e.backtrace
+  assert_nothing_raised do
+    begin
+      raise "get backtrace"
+    rescue => e
+      e.backtrace
+    end
   end
-
-  true
 end
 
 assert('Raise in ensure') do
-
-  assert_raise(RuntimeError) do
+  assert_raise(ArgumentError) do
     begin
-      raise ""
+      raise "" # RuntimeError
     ensure
-      raise ""
+      raise ArgumentError
     end
   end
+end
 
+assert('Raise in rescue') do
+  assert_raise(ArgumentError) do
+    begin
+      raise "" # RuntimeError
+    rescue
+      raise ArgumentError
+    end
+  end
 end

data/modules/mruby/test/t/false.rb

@@ -5,12 +5,10 @@ assert('FalseClass', '15.2.6') do
   assert_equal Class, FalseClass.class
 end
 
-assert('FalseClass superclass', '15.2.6.2') do
-  assert_equal Object, FalseClass.superclass
-end
-
 assert('FalseClass false', '15.2.6.1') do
   assert_false false
+  assert_equal FalseClass, false.class
+  assert_false FalseClass.method_defined? :new
 end
 
 assert('FalseClass#&', '15.2.6.3.1') do

data/modules/mruby/test/t/float.rb

@@ -5,16 +5,15 @@ assert('Float', '15.2.9') do
   assert_equal Class, Float.class
 end
 
-assert('Float superclass', '15.2.9.2') do
-  assert_equal Numeric, Float.superclass
-end
-
 assert('Float#+', '15.2.9.3.1') do
   a = 3.123456788 + 0.000000001
   b = 3.123456789 + 1
 
   assert_float(3.123456789, a)
   assert_float(4.123456789, b)
+
+  assert_raise(TypeError){ 0.0+nil }
+  assert_raise(TypeError){ 1.0+nil }
 end
 
 assert('Float#-', '15.2.9.3.2') do
@@ -127,6 +126,18 @@ assert('Float#round', '15.2.9.3.12') do
   assert_equal(    3, g)
   assert_float(  3.4, h)
   assert_float(3.423, i)
+
+  assert_equal(42.0, 42.0.round(307))
+  assert_equal(1.0e307, 1.0e307.round(2))
+
+  inf = 1.0/0.0
+  assert_raise(FloatDomainError){ inf.round }
+  assert_raise(FloatDomainError){ inf.round(-1) }
+  assert_equal(inf, inf.round(1))
+  nan = 0.0/0.0
+  assert_raise(FloatDomainError){ nan.round }
+  assert_raise(FloatDomainError){ nan.round(-1) }
+  assert_true(nan.round(1).nan?)
 end
 
 assert('Float#to_f', '15.2.9.3.13') do
@@ -143,3 +154,27 @@ assert('Float#truncate', '15.2.9.3.15') do
   assert_equal( 3,  3.123456789.truncate)
   assert_equal(-3, -3.1.truncate)
 end
+
+assert('Float#divmod') do
+  def check_floats exp, act
+    assert_float exp[0], act[0]
+    assert_float exp[1], act[1]
+  end
+
+  # Note: quotients are Float because mruby does not have Bignum.
+  check_floats [ 0,  0.0],   0.0.divmod(1)
+  check_floats [ 0,  1.1],   1.1.divmod(3)
+  check_floats [ 3,  0.2],   3.2.divmod(1)
+  check_floats [ 2,  6.3],  20.3.divmod(7)
+  check_floats [-1,  1.6],  -3.4.divmod(5)
+  check_floats [-2, -0.5],  25.5.divmod(-13)
+  check_floats [ 1, -6.6], -13.6.divmod(-7)
+  check_floats [ 3,  0.2],   9.8.divmod(3.2)
+end
+
+assert('Float#nan?') do
+  assert_true (0.0/0.0).nan?
+  assert_false 0.0.nan?
+  assert_false (1.0/0.0).nan?
+  assert_false (-1.0/0.0).nan?
+end

data/modules/mruby/test/t/hash.rb

@@ -5,13 +5,11 @@ assert('Hash', '15.2.13') do
   assert_equal Class, Hash.class
 end
 
-assert('Hash superclass', '15.2.13.2') do
-  assert_equal Object, Hash.superclass
-end
-
 assert('Hash#==', '15.2.13.4.1') do
   assert_true({ 'abc' => 'abc' } == { 'abc' => 'abc' })
   assert_false({ 'abc' => 'abc' } ==  { 'cba' => 'cba' })
+  assert_true({ :equal => 1 } == { :equal => 1.0 })
+  assert_false({ :a => 1 } == true)
 end
 
 assert('Hash#[]', '15.2.13.4.2') do
@@ -34,6 +32,13 @@ assert('Hash#clear', '15.2.13.4.4') do
   assert_equal({ }, a)
 end
 
+assert('Hash#dup') do
+  a = { 'a' => 1 }
+  b = a.dup
+  a['a'] = 2
+  assert_equal({'a' => 1}, b)
+end
+
 assert('Hash#default', '15.2.13.4.5') do
   a = Hash.new
   b = Hash.new('abc')
@@ -214,6 +219,10 @@ assert('Hash#merge', '15.2.13.4.22') do
                 'xyz_key' => 'xyz_value' }, result_1)
   assert_equal({'abc_key' => 'abc_value', 'cba_key' => 'cba_value',
                 'xyz_key' => 'xyz_value' }, result_2)
+
+  assert_raise(TypeError) do
+    { 'abc_key' => 'abc_value' }.merge "a"
+  end
 end
 
 assert('Hash#replace', '15.2.13.4.23') do
@@ -221,14 +230,30 @@ assert('Hash#replace', '15.2.13.4.23') do
   b = Hash.new.replace(a)
 
   assert_equal({ 'abc_key' => 'abc_value' }, b)
+
+  a = Hash.new(42)
+  b = {}
+  b.replace(a)
+  assert_equal(42, b[1])
+
+  a = Hash.new{|h,x| x}
+  b.replace(a)
+  assert_equal(127, b[127])
 end
 
 assert('Hash#shift', '15.2.13.4.24') do
   a = { 'abc_key' => 'abc_value', 'cba_key' => 'cba_value' }
   b = a.shift
 
-  assert_equal({ 'abc_key' => 'abc_value' }, a)
-  assert_equal [ 'cba_key', 'cba_value' ], b
+  assert_equal Array, b.class
+  assert_equal 2, b.size
+  assert_equal 1, a.size
+
+  b = a.shift
+
+  assert_equal Array, b.class
+  assert_equal 2, b.size
+  assert_equal 0, a.size
 end
 
 assert('Hash#size', '15.2.13.4.25') do
@@ -262,6 +287,15 @@ end
 
 # Not ISO specified
 
+assert('Hash#eql?') do
+  a = { 'a' => 1, 'b' => 2, 'c' => 3 }
+  b = { 'a' => 1, 'b' => 2, 'c' => 3 }
+  c = { 'a' => 1.0, 'b' => 2, 'c' => 3 }
+  assert_true(a.eql?(b))
+  assert_false(a.eql?(c))
+  assert_false(a.eql?(true))
+end
+
 assert('Hash#reject') do
   h = {:one => 1, :two => 2, :three => 3, :four => 4}
   ret = h.reject do |k,v|

data/modules/mruby/test/t/indexerror.rb

@@ -4,7 +4,3 @@
 assert('IndexError', '15.2.33') do
   assert_equal Class, IndexError.class
 end
-
-assert('IndexError superclass', '15.2.33.2') do
-  assert_equal StandardError, IndexError.superclass
-end

data/modules/mruby/test/t/integer.rb

@@ -5,16 +5,23 @@ assert('Integer', '15.2.8') do
   assert_equal Class, Integer.class
 end
 
-assert('Integer superclass', '15.2.8.2') do
-  assert_equal Numeric, Integer.superclass
-end
-
 assert('Integer#+', '15.2.8.3.1') do
   a = 1+1
   b = 1+1.0
 
   assert_equal 2, a
   assert_equal 2.0, b
+
+  assert_raise(TypeError){ 0+nil }
+  assert_raise(TypeError){ 1+nil }
+
+  c = Mrbtest::FIXNUM_MAX + 1
+  d = Mrbtest::FIXNUM_MAX.__send__(:+, 1)
+  e = Mrbtest::FIXNUM_MAX + 1.0
+  assert_equal Float, c.class
+  assert_equal Float, d.class
+  assert_float e, c
+  assert_float e, d
 end
 
 assert('Integer#-', '15.2.8.3.2') do
@@ -23,6 +30,14 @@ assert('Integer#-', '15.2.8.3.2') do
 
   assert_equal 1, a
   assert_equal 1.0, b
+
+  c = Mrbtest::FIXNUM_MIN - 1
+  d = Mrbtest::FIXNUM_MIN.__send__(:-, 1)
+  e = Mrbtest::FIXNUM_MIN - 1.0
+  assert_equal Float, c.class
+  assert_equal Float, d.class
+  assert_float e, c
+  assert_float e, d
 end
 
 assert('Integer#*', '15.2.8.3.3') do
@@ -31,6 +46,17 @@ assert('Integer#*', '15.2.8.3.3') do
 
   assert_equal 1, a
   assert_equal 1.0, b
+
+  assert_raise(TypeError){ 0*nil }
+  assert_raise(TypeError){ 1*nil }
+
+  c = Mrbtest::FIXNUM_MAX * 2
+  d = Mrbtest::FIXNUM_MAX.__send__(:*, 2)
+  e = Mrbtest::FIXNUM_MAX * 2.0
+  assert_equal Float, c.class
+  assert_equal Float, d.class
+  assert_float e, c
+  assert_float e, d
 end
 
 assert('Integer#/', '15.2.8.3.4') do
@@ -51,7 +77,7 @@ assert('Integer#%', '15.2.8.3.5') do
   assert_equal 2, c
 end
 
-assert('Integer#<=>', '15.2.8.3.6') do
+assert('Integer#<=>', '15.2.9.3.6') do
   a = 1<=>0
   b = 1<=>1
   c = 1<=>2
@@ -205,6 +231,16 @@ assert('Integer#upto', '15.2.8.3.27') do
   assert_equal 6, a
 end
 
+assert('Integer#divmod', '15.2.8.3.30') do
+  assert_equal [ 0,  0],   0.divmod(1)
+  assert_equal [ 0,  1],   1.divmod(3)
+  assert_equal [ 3,  0],   3.divmod(1)
+  assert_equal [ 2,  6],  20.divmod(7)
+  assert_equal [-1,  2],  -3.divmod(5)
+  assert_equal [-2, -1],  25.divmod(-13)
+  assert_equal [ 1, -6], -13.divmod(-7)
+end
+
 # Not ISO specified
 
 assert('Integer#step') do