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