added tag v1_9_0_4

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

1 files changed, 30 insertions, 0 deletions

diff --git a/trunk/test/win32ole/test_propertyputref.rb b/trunk/test/win32ole/test_propertyputref.rb
new file mode 100644
index 0000000000..24459afe9b
--- /dev/null
+++ b/trunk/test/win32ole/test_propertyputref.rb
@@ -0,0 +1,30 @@
+require 'test/unit'
+begin
+  require 'win32ole'
+rescue LoadError
+end
+
+if defined?(WIN32OLE)
+  class TestWIN32OLE_PROPERTYPUTREF < Test::Unit::TestCase
+    def setup
+      begin
+        @sapi = WIN32OLE.new('SAPI.SpVoice')
+        @sv = @sapi.voice
+      rescue WIN32OLERuntimeError
+        @sapi = nil
+      end
+    end
+    def test_sapi
+      if @sapi
+        new_id = @sapi.getvoices.item(0).Id
+        @sapi.voice = @sapi.getvoices.item(0)
+        assert_equal(new_id, @sapi.voice.Id)
+      end
+    end
+    def teardown
+      if @sapi
+        @sapi.voice = @sv
+      end
+    end
+  end
+end