1 files changed, 35 insertions, 0 deletions
diff --git a/test/ruby/test_const.rb b/test/ruby/test_const.rb
new file mode 100644
index 0000000000..179271aef1
--- /dev/null
+++ b/test/ruby/test_const.rb
@@ -0,0 +1,35 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestConst < Test::Unit::TestCase
+  TEST1 = 1
+  TEST2 = 2
+    
+  module Const
+    TEST3 = 3
+    TEST4 = 4
+  end
+    
+  module Const2
+    TEST3 = 6
+    TEST4 = 8
+  end
+    
+  def test_const
+    self.class.class_eval {
+      include Const
+    }
+    assert([TEST1,TEST2,TEST3,TEST4] == [1,2,3,4])
+    
+    self.class.class_eval {
+      include Const2
+    }
+    STDERR.print "intentionally redefines TEST3, TEST4\n" if $VERBOSE
+    assert([TEST1,TEST2,TEST3,TEST4] == [1,2,6,8])
+    
+    assert((String <=> Object) == -1)
+    assert((Object <=> String) == 1)
+    assert((Array <=> String) == nil)
+  end
+end