use Scripting.Dictionary instead of InternetExplorer.Application.

* spec/ruby/library/win32ole/win32ole/shared/setproperty.rb: use
  Scripting.Dictionary. InternetExplorer.Application is not available on
  some environments. Thanks to MSP-Greg (Greg L).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@65410 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

spec/ruby/library/win32ole/win32ole/setproperty_spec.rb

@@ -1,8 +1,6 @@
-require_relative '../fixtures/classes'
-require_relative 'shared/setproperty'
-
 platform_is :windows do
-  require 'win32ole'
+  require_relative '../fixtures/classes'
+  require_relative 'shared/setproperty'
 
   describe "WIN32OLE#setproperty" do
     it_behaves_like :win32ole_setproperty, :setproperty

spec/ruby/library/win32ole/win32ole/shared/setproperty.rb

@@ -1,25 +1,23 @@
-require_relative '../../fixtures/classes'
-
 platform_is :windows do
-  require 'win32ole'
+  require_relative '../../fixtures/classes'
 
   describe :win32ole_setproperty, shared: true do
     before :each do
-      @ie = WIN32OLESpecs.new_ole('InternetExplorer.Application')
-    end
-
-    after :each do
-      @ie.Quit
+      @dict = WIN32OLESpecs.new_ole('Scripting.Dictionary')
     end
 
     it "raises ArgumentError if no argument is given" do
-      lambda { @ie.send(@method) }.should raise_error ArgumentError
+      lambda { @dict.send(@method) }.should raise_error ArgumentError
     end
 
-    it "sets height to 500 and returns nil" do
-      height = 500
-      result = @ie.send(@method, 'Height', height)
+    it "sets key to newkey and returns nil" do
+      oldkey = 'oldkey'
+      newkey = 'newkey'
+      @dict.add(oldkey, 'value')
+      result = @dict.send(@method, 'Key', oldkey, newkey)
       result.should == nil
+      @dict[oldkey].should == nil
+      @dict[newkey].should == 'value'
     end
   end
 end