From f4a3bcbff05afe3062784af3de4005cd95aac0d8 Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 6 Aug 2007 11:37:22 +0000
Subject: fix test of PROPERTYPUT_REF in some environment

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12888 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/win32ole/test_propertyputref.rb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/test/win32ole/test_propertyputref.rb b/test/win32ole/test_propertyputref.rb
index 4d34025623..62f36c2a1e 100644
--- a/test/win32ole/test_propertyputref.rb
+++ b/test/win32ole/test_propertyputref.rb
@@ -9,16 +9,23 @@ if defined?(WIN32OLE)
     def setup
       begin
         @sapi = WIN32OLE.new('SAPI.SpVoice')
+        @sv = @sapi.voice
+        puts @sv
       rescue WIN32OLERuntimeError
         @sapi = nil
       end
     end
     def test_sapi
       if @sapi
-        new_id = @sapi.getvoices.item(2).Id
-        @sapi.voice = @sapi.getvoices.item(2)
+        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
-- 
cgit v1.2.3