Merge branch 'master' of github.com:mruby/mruby

2 files changed, 58 insertions, 1 deletions

diff --git a/test/t/kernel.rb b/test/t/kernel.rb
index cd1f2d99e..847f1baeb 100644
--- a/test/t/kernel.rb
+++ b/test/t/kernel.rb
@@ -112,7 +112,17 @@ assert('Kernel#respond_to?', '15.3.1.2.43') do
   respond_to? :nil?
 end
 
-# TODO at the moment doesn't comply to ISO assert('Kernel#send', '15.3.1.2.44') do
+assert('Kernel#send', '15.3.1.2.44') do
+  # test with block
+  l = send(:lambda) do
+    true
+  end
+  l.call and l.class == Proc and
+    # test with argument
+    send(:respond_to?, :nil?) and
+    # test without argument and without block
+    send(:public_methods).class == Array
+end
 
 assert('Kernel#singleton_methods', '15.3.1.2.45') do
   singleton_methods.class == Array
diff --git a/test/t/module.rb b/test/t/module.rb
index 854be75a5..a5331e96d 100644
--- a/test/t/module.rb
+++ b/test/t/module.rb
@@ -5,6 +5,53 @@ assert('Module', '15.2.2') do
   Module.class == Class
 end
 
+assert('Module#const_defined?', '15.2.2.4.20') do
+  module Test4ConstDefined
+    Const4Test4ConstDefined = true
+  end
+
+  Test4ConstDefined.const_defined?(:Const4Test4ConstDefined) and
+    not Test4ConstDefined.const_defined?(:NotExisting)
+end
+
+assert('Module#const_get', '15.2.2.4.21') do
+  module Test4ConstGet
+    Const4Test4ConstGet = 42
+  end
+
+  Test4ConstGet.const_get(:Const4Test4ConstGet) == 42
+end
+
+assert('Module.const_missing', '15.2.2.4.22') do
+  e1 = nil
+
+  module Test4ConstMissing
+    def const_missing(sym)
+      # ATM this redirect doesn't work
+      puts "PLEASE GO TO TEST CASE Module.const_missing!"
+      puts "IT IS WORKING NOW!! PLEASE FINALIZE."
+      puts "Thanks :)"
+    end
+  end
+
+  begin
+    Test4ConstMissing.const_get(:ConstDoesntExist)
+  rescue => e2
+    e1 = e2
+  end
+
+  e1.class == NameError
+end
+
+assert('Module#const_get', '15.2.2.4.23') do
+  module Test4ConstSet
+    Const4Test4ConstSet = 42
+  end
+
+  Test4ConstSet.const_set(:Const4Test4ConstSet, 23)
+  Test4ConstSet.const_get(:Const4Test4ConstSet) == 23
+end
+
 # TODO not implemented ATM assert('Module.constants', '15.2.2') do
 
 # TODO not implemented ATM assert('Module.nesting', '15.2.2') do