Add a spec for JRUBY-3233: JRuby with Rails 2.2.2 unable to instantia…

…te a java class

git-svn-id: https://svn.codehaus.org/jruby/trunk/jruby@8363 961051c9-f516-0410-bf72-c9f7e237a7b7

spec/java_integration/addons/object_spec.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + "/../spec_helper"
+
+describe "Object extensions" do
+  shared_examples_for "Object that can include classes" do
+    before(:each) do 
+      Object.class_eval("remove_const 'Foo'") if Object.constants.include? 'Foo'
+      Object.class_eval("remove_const 'Properties'") if Object.constants.include? 'Properties'
+    end
+
+    after(:each) do
+      Object.class_eval("remove_const 'Foo'") if Object.constants.include? 'Foo'
+      Object.class_eval("remove_const 'Properties'") if Object.constants.include? 'Properties'
+    end
+
+    it "should allow inclusion of Java class constants in class context" do
+      class Foo
+        include_class java.util.Properties
+      end
+      Foo.constants.should include 'Properties'
+    end
+
+    it "should allow inclusion of Java class constants in module context" do 
+      module Foo
+        include_class java.util.Properties
+      end
+      Foo.constants.should include 'Properties'
+    end
+
+    it "should allow inclusion of Java class constants in instance context" do
+      class Foo
+        def initialize
+          include_class java.util.Properties
+          Properties.should == java.util.Properties
+        end
+      end
+      Foo.new
+    end
+  end
+
+  describe "(without Object#class_eval defined)" do
+    it_should_behave_like "Object that can include classes"
+  end
+
+  describe "(with Object#class_eval defined)" do
+    before(:each) do 
+      class Object
+        def metaclass
+          class << self
+            self
+          end
+        end
+
+        def class_eval(*args, &block)
+          metaclass.class_eval(*args, &block)
+        end
+      end
+    end
+
+    it_should_behave_like "Object that can include classes"
+
+    after(:each) do
+      class Object
+        undef metaclass
+        undef class_eval
+      end
+    end
+  end
+end