webruby 0.2.7 → 0.9.1

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

@@ -264,6 +264,16 @@ assert('Kernel#inspect', '15.3.1.3.17') do
   assert_equal "main", s
 end
 
+assert('Kernel#instance_variable_defined?', '15.3.1.3.20') do
+  o = Object.new
+  o.instance_variable_set(:@a, 1)
+
+  assert_true o.instance_variable_defined?("@a")
+  assert_false o.instance_variable_defined?("@b")
+  assert_true o.instance_variable_defined?("@a"[0,2])
+  assert_true o.instance_variable_defined?("@abc"[0,2])
+end
+
 assert('Kernel#instance_variables', '15.3.1.3.23') do
   o = Object.new
   o.instance_eval do
@@ -427,6 +437,26 @@ assert('Kernel#raise', '15.3.1.3.40') do
   end
 end
 
+assert('Kernel#remove_instance_variable', '15.3.1.3.41') do
+  class Test4RemoveInstanceVar
+    attr_reader :var
+    def initialize
+      @var = 99
+    end
+    def remove
+      remove_instance_variable(:@var)
+    end
+  end
+
+  tri = Test4RemoveInstanceVar.new
+  assert_equal 99, tri.var
+  tri.remove
+  assert_equal nil, tri.var
+  assert_raise NameError do
+    tri.remove
+  end
+end
+
 # Kernel#require is defined in mruby-require. '15.3.1.3.42'
 
 assert('Kernel#respond_to?', '15.3.1.3.43') do
@@ -441,6 +471,14 @@ assert('Kernel#respond_to?', '15.3.1.3.43') do
     Test4RespondTo.new.respond_to?(1)
   end
 
+  assert_raise ArgumentError do
+    Test4RespondTo.new.respond_to?
+  end
+
+  assert_raise ArgumentError do
+    Test4RespondTo.new.respond_to? :a, true, :aa
+  end
+
   assert_true respond_to?(:nil?)
   assert_true Test4RespondTo.new.respond_to?(:valid_method)
   assert_true Test4RespondTo.new.respond_to?('valid_method')
@@ -469,6 +507,20 @@ assert('Kernel#to_s', '15.3.1.3.46') do
   assert_equal to_s.class, String
 end
 
+assert('Kernel.local_variables', '15.3.1.2.7') do
+  a, b = 0, 1
+  a += b
+
+  vars = Kernel.local_variables.sort
+  assert_equal [:a, :b, :vars], vars
+
+  Proc.new {
+    c = 2
+    vars = Kernel.local_variables.sort
+    assert_equal [:a, :b, :c, :vars], vars
+  }.call
+end
+
 assert('Kernel#!=') do
   str1 = "hello"
   str2 = str1
@@ -479,6 +531,27 @@ assert('Kernel#!=') do
   assert_false (str2 != str1)
 end
 
+# operator "!~" is defined in ISO Ruby 11.4.4.
+assert('Kernel#!~') do
+  x = "x"
+  def x.=~(other)
+    other == "x"
+  end
+  assert_false x !~ "x"
+  assert_true  x !~ "z"
+
+  y = "y"
+  def y.=~(other)
+    other == "y"
+  end
+  def y.!~(other)
+    other == "not y"
+  end
+  assert_false y !~ "y"
+  assert_false y !~ "z"
+  assert_true  y !~ "not y"
+end
+
 assert('Kernel#respond_to_missing?') do
   class Test4RespondToMissing
     def respond_to_missing?(method_name, include_private = false)
@@ -490,6 +563,22 @@ assert('Kernel#respond_to_missing?') do
   assert_false Test4RespondToMissing.new.respond_to?(:no_method)
 end
 
+assert('Kernel#global_variables') do
+  variables = global_variables
+  1.upto(9) do |i|
+    assert_equal variables.include?(:"$#{i}"), true
+  end
+end
+
+assert('Kernel#define_singleton_method') do
+  o = Object.new
+  ret = o.define_singleton_method(:test_method) do
+    :singleton_method_ok
+  end
+  assert_equal :test_method, ret
+  assert_equal :singleton_method_ok, o.test_method
+end
+
 assert('stack extend') do
   def recurse(count, stop)
     return count if count > stop
@@ -497,7 +586,5 @@ assert('stack extend') do
   end
 
   assert_equal 6, recurse(0, 5)
-  assert_raise RuntimeError do
-    recurse(0, 100000)
-  end
 end
+

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

@@ -3,10 +3,10 @@
 
 assert('LocalJumpError', '15.2.25') do
   assert_equal Class, LocalJumpError.class
-  assert_raise LocalJumpError do
-    # this will cause an exception due to the wrong location
-    retry
-  end
+#  assert_raise LocalJumpError do
+#    # this will cause an exception due to the wrong location
+#    retry
+#  end
 end
 
 # TODO 15.2.25.2.1 LocalJumpError#exit_value

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

@@ -65,7 +65,7 @@ assert('The undef statement', '13.3.7 a) 4)') do
   assert_true(existing_method_e, 'Method should be defined')
   assert_true(existing_method_f, 'Method should be defined')
 
-  # undefine in all possible ways and check that method 
+  # undefine in all possible ways and check that method
   # is undefined
 
   undef existing_method_a

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

@@ -5,10 +5,6 @@ assert('Module', '15.2.2') do
   assert_equal Class, Module.class
 end
 
-assert('Module superclass', '15.2.2.2') do
-  assert_equal Object, Module.superclass
-end
-
 # TODO not implemented ATM assert('Module.constants', '15.2.2.3.1') do
 
 # TODO not implemented ATM assert('Module.nesting', '15.2.2.3.2') do
@@ -254,7 +250,7 @@ assert('Module#const_get', '15.2.2.4.21') do
   assert_equal 42, Test4ConstGet.const_get(:Const4Test4ConstGet)
 end
 
-assert('Module.const_missing', '15.2.2.4.22') do
+assert('Module#const_missing', '15.2.2.4.22') do
   module Test4ConstMissing
     def self.const_missing(sym)
       42 # the answer to everything
@@ -273,7 +269,7 @@ assert('Module#const_get', '15.2.2.4.23') do
   assert_equal 23, Test4ConstSet.const_get(:Const4Test4ConstSet)
 end
 
-assert('Module.constants', '15.2.2.4.24') do
+assert('Module#constants', '15.2.2.4.24') do
   $n = []
   module TestA
     C = 1
@@ -340,6 +336,15 @@ assert('Module#included_modules', '15.2.2.4.30') do
   assert_true r.include?(Test4includedModules)
 end
 
+assert('Module#initialize', '15.2.2.4.31') do
+  assert_kind_of Module, Module.new
+  mod = Module.new { def hello; "hello"; end }
+  assert_equal [:hello], mod.instance_methods
+  a = nil
+  mod = Module.new { |m| a = m }
+  assert_equal mod, a
+end
+
 assert('Module#instance_methods', '15.2.2.4.33') do
   module Test4InstanceMethodsA
     def method1()  end
@@ -444,7 +449,7 @@ assert('Module#remove_method', '15.2.2.4.41') do
   assert_false Test4RemoveMethod::Child.instance_methods(false).include? :hello
 end
 
-assert('Module.undef_method', '15.2.2.4.42') do
+assert('Module#undef_method', '15.2.2.4.42') do
   module Test4UndefMethod
     class Parent
       def hello
@@ -464,6 +469,7 @@ assert('Module.undef_method', '15.2.2.4.42') do
   assert_true Test4UndefMethod::Parent.new.respond_to?(:hello)
   assert_false Test4UndefMethod::Child.new.respond_to?(:hello)
   assert_false Test4UndefMethod::GrandChild.new.respond_to?(:hello)
+  assert_false Test4UndefMethod::Child.instance_methods(false).include? :hello
 end
 
 # Not ISO specified
@@ -485,21 +491,45 @@ end
 assert('Issue 1467') do
   module M1
     def initialize()
-      super() 
+      super()
     end
   end
 
-  class C1  
-    include M1 
-     def initialize() 
-       super() 
+  class C1
+    include M1
+     def initialize()
+       super()
      end
   end
 
   class C2
-    include M1 
+    include M1
   end
 
   C1.new
   C2.new
 end
+
+assert('clone Module') do
+  module M1
+    def foo
+      true
+    end
+  end
+
+  class B
+    include M1.clone
+  end
+
+  B.new.foo
+end
+
+assert('Module#module_function') do
+  module M
+    def modfunc; end
+    module_function :modfunc
+  end
+
+  assert_true M.respond_to?(:modfunc)
+end
+

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

@@ -5,10 +5,6 @@ assert('NameError', '15.2.31') do
   assert_equal Class, NameError.class
 end
 
-assert('NameError superclass', '15.2.31.2') do
-  assert_equal StandardError, NameError.superclass
-end
-
 assert('NameError#name', '15.2.31.2.1') do
 
   # This check is not duplicate with 15.2.31.2.2 check.

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

@@ -5,6 +5,11 @@ assert('NilClass', '15.2.4') do
   assert_equal Class, NilClass.class
 end
 
+assert('NilClass', '15.2.4.1') do
+  assert_equal NilClass, nil.class
+  assert_false NilClass.method_defined? :new
+end
+
 assert('NilClass#&', '15.2.4.3.1') do
   assert_false nil.&(true)
   assert_false nil.&(nil)

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

@@ -8,6 +8,15 @@ assert('NoMethodError', '15.2.32') do
   end
 end
 
-assert('NoMethodError superclass', '15.2.32.2') do
-  assert_equal NameError, NoMethodError.superclass
+assert('NoMethodError#args', '15.2.32.2.1') do
+  a = NoMethodError.new 'test', :test, [1, 2]
+  assert_equal [1, 2], a.args
+
+  assert_nothing_raised do
+    begin
+      doesNotExistAsAMethodNameForVerySure 3, 1, 4
+    rescue NoMethodError => e
+      assert_equal [3, 1, 4], e.args
+    end
+  end
 end

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

@@ -5,10 +5,6 @@ assert('Numeric', '15.2.7') do
   assert_equal Class, Numeric.class
 end
 
-assert('Numeric superclass', '15.2.7.2') do
-  assert_equal Object, Numeric.superclass
-end
-
 assert('Numeric#+@', '15.2.7.4.1') do
   assert_equal(+1, +1)
 end
@@ -22,6 +18,24 @@ assert('Numeric#abs', '15.2.7.4.3') do
   assert_equal(1.0, -1.abs)
 end
 
+assert('Numeric#pow') do
+  assert_equal(8, 2 ** 3)
+  assert_equal(-8, -2 ** 3)
+  assert_equal(1, 2 ** 0)
+  assert_equal(1, 2.2 ** 0)
+  assert_equal(0.5, 2 ** -1)
+end
+
+assert('Numeric#/', '15.2.8.3.4') do
+  n = Class.new(Numeric){ def /(x); 15.1;end }.new
+
+  assert_equal(2, 10/5)
+  assert_equal(0.0625, 1/16)
+  assert_equal(15.1, n/10)
+  assert_raise(TypeError){ 1/n }
+  assert_raise(TypeError){ 1/nil }
+end
+
 # Not ISO specified
 
 assert('Numeric#**') do

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

@@ -5,10 +5,6 @@ assert('Proc', '15.2.17') do
   assert_equal Class, Proc.class
 end
 
-assert('Proc superclass', '15.2.17.2') do
-  assert_equal Object, Proc.superclass
-end
-
 assert('Proc.new', '15.2.17.3.1') do
   assert_raise ArgumentError do
     Proc.new
@@ -26,8 +22,8 @@ assert('Proc#[]', '15.2.17.4.1') do
   b2 = Proc.new { |i| a2 += i }
   b2.[](5)
 
-  assert_equal a, 1
-  assert_equal a2, 5
+  assert_equal 1, a
+  assert_equal 5, a2
 end
 
 assert('Proc#arity', '15.2.17.4.2') do
@@ -55,6 +51,46 @@ assert('Proc#call', '15.2.17.4.3') do
   assert_equal 5, a2
 end
 
+assert('Proc#call proc args pos block') do
+  pr = Proc.new {|a,b,&c|
+    [a, b, c.class, c&&c.call(:x)]
+  }
+  assert_equal [nil, nil, Proc, :proc], (pr.call(){ :proc })
+  assert_equal [1, nil, Proc, :proc], (pr.call(1){ :proc })
+  assert_equal [1, 2, Proc, :proc], (pr.call(1, 2){ :proc })
+  assert_equal [1, 2, Proc, :proc], (pr.call(1, 2, 3){ :proc })
+  assert_equal [1, 2, Proc, :proc], (pr.call(1, 2, 3, 4){ :proc })
+
+  assert_equal [nil, nil, Proc, :x], (pr.call(){|x| x})
+  assert_equal [1, nil, Proc, :x], (pr.call(1){|x| x})
+  assert_equal [1, 2, Proc, :x], (pr.call(1, 2){|x| x})
+  assert_equal [1, 2, Proc, :x], (pr.call(1, 2, 3){|x| x})
+  assert_equal [1, 2, Proc, :x], (pr.call(1, 2, 3, 4){|x| x})
+end
+
+assert('Proc#call proc args pos rest post') do
+  pr = Proc.new {|a,b,*c,d,e|
+    [a,b,c,d,e]
+  }
+  assert_equal [nil, nil, [], nil, nil], pr.call()
+  assert_equal [1, nil, [], nil, nil], pr.call(1)
+  assert_equal [1, 2, [], nil, nil], pr.call(1,2)
+  assert_equal [1, 2, [], 3, nil], pr.call(1,2,3)
+  assert_equal [1, 2, [], 3, 4], pr.call(1,2,3,4)
+  assert_equal [1, 2, [3], 4, 5], pr.call(1,2,3,4,5)
+  assert_equal [1, 2, [3, 4], 5, 6], pr.call(1,2,3,4,5,6)
+  assert_equal [1, 2, [3, 4, 5], 6,7], pr.call(1,2,3,4,5,6,7)
+
+  assert_equal [nil, nil, [], nil, nil], pr.call([])
+  assert_equal [1, nil, [], nil, nil], pr.call([1])
+  assert_equal [1, 2, [], nil, nil], pr.call([1,2])
+  assert_equal [1, 2, [], 3, nil], pr.call([1,2,3])
+  assert_equal [1, 2, [], 3, 4], pr.call([1,2,3,4])
+  assert_equal [1, 2, [3], 4, 5], pr.call([1,2,3,4,5])
+  assert_equal [1, 2, [3, 4], 5, 6], pr.call([1,2,3,4,5,6])
+  assert_equal [1, 2, [3, 4, 5], 6,7], pr.call([1,2,3,4,5,6,7])
+end
+
 assert('Proc#return_does_not_break_self') do
   class TestClass
     attr_accessor :block
@@ -91,3 +127,20 @@ assert('Proc#return_does_not_break_self') do
   assert_equal nil, c.return_nil
   assert_equal c, c.block.call
 end
+
+assert('&obj call to_proc if defined') do
+  pr = Proc.new{}
+  def mock(&b)
+    b
+  end
+  assert_equal pr.object_id, mock(&pr).object_id
+  assert_equal pr, mock(&pr)
+
+  obj = Object.new
+  def obj.to_proc
+    Proc.new{ :from_to_proc }
+  end
+  assert_equal :from_to_proc, mock(&obj).call
+
+  assert_raise(TypeError){ mock(&(Object.new)) }
+end

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

@@ -5,10 +5,6 @@ assert('Range', '15.2.14') do
   assert_equal Class, Range.class
 end
 
-assert('Range superclass', '15.2.14.2') do
-  assert_equal Object, Range.superclass
-end
-
 assert('Range#==', '15.2.14.4.1') do
   assert_true (1..10) == (1..10)
   assert_false (1..10) == (1..100)
@@ -46,7 +42,7 @@ assert('Range#first', '15.2.14.4.7') do
   assert_equal 1, (1..10).first
 end
 
-assert('Range#include', '15.2.14.4.8') do
+assert('Range#include?', '15.2.14.4.8') do
   a = (1..10)
 
   assert_true a.include?(5)
@@ -74,6 +70,20 @@ assert('Range#member?', '15.2.14.4.11') do
   assert_false a.member?(20)
 end
 
+assert('Range#to_s', '15.2.14.4.12') do
+  assert_equal "0..1", (0..1).to_s
+  assert_equal "0...1", (0...1).to_s
+  assert_equal "a..b", ("a".."b").to_s
+  assert_equal "a...b", ("a"..."b").to_s
+end
+
+assert('Range#inspect', '15.2.14.4.13') do
+  assert_equal "0..1", (0..1).inspect
+  assert_equal "0...1", (0...1).inspect
+  assert_equal "\"a\"..\"b\"", ("a".."b").inspect
+  assert_equal "\"a\"...\"b\"", ("a"..."b").inspect
+end
+
 assert('Range#eql?', '15.2.14.4.14') do
   assert_true (1..10).eql? (1..10)
   assert_false (1..10).eql? (1..100)

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

@@ -4,7 +4,3 @@
 assert('RangeError', '15.2.26') do
   assert_equal Class, RangeError.class
 end
-
-assert('RangeError superclass', '15.2.26.2') do
-  assert_equal StandardError, RangeError.superclass
-end

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

@@ -4,7 +4,3 @@
 assert('StandardError', '15.2.23') do
   assert_equal Class, StandardError.class
 end
-
-assert('StandardError superclass', '15.2.23.2') do
-  assert_equal Exception, StandardError.superclass
-end

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

@@ -5,10 +5,6 @@ assert('String', '15.2.10') do
   assert_equal Class, String.class
 end
 
-assert('String superclass', '15.2.10.2') do
-  assert_equal Object, String.superclass
-end
-
 assert('String#<=>', '15.2.10.5.1') do
   a = '' <=> ''
   b = '' <=> 'not empty'
@@ -28,22 +24,27 @@ assert('String#==', '15.2.10.5.2') do
   assert_not_equal 'abc', 'cba'
 end
 
+# 'String#=~', '15.2.10.5.3' will be tested in mrbgems.
+
 assert('String#+', '15.2.10.5.4') do
   assert_equal 'ab', 'a' + 'b'
 end
 
 assert('String#*', '15.2.10.5.5') do
   assert_equal 'aaaaa', 'a' * 5
+  assert_equal '', 'a' * 0
+  assert_raise(ArgumentError) do
+    'a' * -1
+  end
 end
 
-# 'String#=~', '15.2.10.5.5' will be tested in mrbgems.
-
 assert('String#[]', '15.2.10.5.6') do
   # length of args is 1
   a = 'abc'[0]
   b = 'abc'[-1]
   c = 'abc'[10]
   d = 'abc'[-10]
+  e = 'abc'[1.1]
 
   # length of args is 2
   a1 = 'abc'[0, -1]
@@ -63,6 +64,7 @@ assert('String#[]', '15.2.10.5.6') do
   assert_equal 'c', b
   assert_nil c
   assert_nil d
+  assert_equal 'b', e
   assert_nil a1
   assert_nil b1
   assert_nil c1
@@ -70,6 +72,10 @@ assert('String#[]', '15.2.10.5.6') do
   assert_equal 'bc', e1
   assert_equal 'bc', a3
   assert_nil b3
+
+  assert_raise(TypeError) do
+    a[nil]
+  end
 end
 
 assert('String#[] with Range') do
@@ -82,6 +88,7 @@ assert('String#[] with Range') do
   g1 = 'abc'[-2..3]
   h1 = 'abc'[3..4]
   i1 = 'abc'[4..5]
+  j1 = 'abcdefghijklmnopqrstuvwxyz'[1..3]
   a2 = 'abc'[1...0]
   b2 = 'abc'[1...1]
   c2 = 'abc'[1...2]
@@ -91,6 +98,7 @@ assert('String#[] with Range') do
   g2 = 'abc'[-2...3]
   h2 = 'abc'[3...4]
   i2 = 'abc'[4...5]
+  j2 = 'abcdefghijklmnopqrstuvwxyz'[1...3]
 
   assert_equal '', a1
   assert_equal 'b', b1
@@ -101,6 +109,7 @@ assert('String#[] with Range') do
   assert_equal 'bc', g1
   assert_equal '', h1
   assert_nil i2
+  assert_equal 'bcd', j1
   assert_equal '', a2
   assert_equal '', b2
   assert_equal 'b', c2
@@ -110,6 +119,7 @@ assert('String#[] with Range') do
   assert_equal 'bc', g2
   assert_equal '', h2
   assert_nil i2
+  assert_equal 'bc', j2
 end
 
 assert('String#capitalize', '15.2.10.5.7') do
@@ -125,6 +135,7 @@ assert('String#capitalize!', '15.2.10.5.8') do
   a.capitalize!
 
   assert_equal 'Abc', a
+  assert_equal nil, 'Abc'.capitalize!
 end
 
 assert('String#chomp', '15.2.10.5.9') do
@@ -204,6 +215,7 @@ assert('String#downcase!', '15.2.10.5.14') do
   a.downcase!
 
   assert_equal 'abc', a
+  assert_equal nil, 'abc'.downcase!
 end
 
 assert('String#each_line', '15.2.10.5.15') do
@@ -275,8 +287,10 @@ end
 assert('String#initialize', '15.2.10.5.23') do
   a = ''
   a.initialize('abc')
-
   assert_equal 'abc', a
+
+  a.initialize('abcdefghijklmnopqrstuvwxyz')
+  assert_equal 'abcdefghijklmnopqrstuvwxyz', a
 end
 
 assert('String#initialize_copy', '15.2.10.5.24') do
@@ -301,6 +315,20 @@ assert('String#replace', '15.2.10.5.28') do
   a.replace('abc')
 
   assert_equal 'abc', a
+  assert_equal 'abc', 'cba'.replace(a)
+
+  b = 'abc' * 10
+  c = ('cba' * 10).dup
+  b.replace(c);
+  c.replace(b);
+  assert_equal c, b
+
+  # shared string
+  s = "foo" * 100
+  a = s[10, 90]                # create shared string
+  assert_equal("", s.replace(""))    # clear
+  assert_equal("", s)          # s is cleared
+  assert_not_equal("", a)      # a should not be affected
 end
 
 assert('String#reverse', '15.2.10.5.29') do
@@ -324,6 +352,9 @@ assert('String#rindex', '15.2.10.5.31') do
   assert_nil 'abc'.rindex('d')
   assert_equal 0, 'abcabc'.rindex('a', 1)
   assert_equal 3, 'abcabc'.rindex('a', 4)
+
+  assert_equal 3,   'abcabc'.rindex(97)
+  assert_equal nil, 'abcabc'.rindex(0)
 end
 
 # 'String#scan', '15.2.10.5.32' will be tested in mrbgems.
@@ -411,11 +442,13 @@ assert('String#to_i', '15.2.10.5.39') do
   b = '32143'.to_i
   c = 'a'.to_i(16)
   d = '100'.to_i(2)
+  e = '1_000'.to_i
 
   assert_equal 0, a
   assert_equal 32143, b
   assert_equal 10, c
   assert_equal 4, d
+  assert_equal 1_000, e
 end
 
 assert('String#to_s', '15.2.10.5.40') do
@@ -442,6 +475,22 @@ assert('String#upcase!', '15.2.10.5.43') do
   a.upcase!
 
   assert_equal 'ABC', a
+  assert_equal nil, 'ABC'.upcase!
+
+  a = 'abcdefghijklmnopqrstuvwxyz'
+  b = a.dup
+  a.upcase!
+  b.upcase!
+  assert_equal 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', b
+end
+
+assert('String#inspect', '15.2.10.5.46') do
+  # should not raise an exception - regress #1210
+  assert_nothing_raised do
+  ("\1" * 100).inspect
+  end
+
+  assert_equal "\"\\000\"", "\0".inspect
 end
 
 # Not ISO specified
@@ -475,8 +524,3 @@ assert('String#each_byte') do
 
   assert_equal bytes1, bytes2
 end
-
-assert('String#inspect') do
-  ("\1" * 100).inspect  # should not raise an exception - regress #1210
-  assert_equal "\"\\000\"", "\0".inspect
-end