From 3b5dbc4b0656a5a540fb1beff4748fa085e1fbf9 Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 20 Jan 2007 12:12:36 +0000
Subject: WIN32OLE.codepage= accepts installed codepage.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11550 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/win32ole/test_win32ole.rb | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'test/win32ole/test_win32ole.rb')

diff --git a/test/win32ole/test_win32ole.rb b/test/win32ole/test_win32ole.rb
index 81182372dc..1c523a3627 100644
--- a/test/win32ole/test_win32ole.rb
+++ b/test/win32ole/test_win32ole.rb
@@ -1,5 +1,4 @@
 #
-#
 
 begin
   require 'win32ole'
@@ -273,6 +272,22 @@ if defined?(WIN32OLE)
           str = ifs.read
         }
         assert_equal("\343\201", str)
+
+        # This test fail if codepage 20932 (euc) is not installed.
+        begin 
+          WIN32OLE.codepage = 20932
+        rescue WIN32OLERuntimeError
+        end
+        if (WIN32OLE.codepage == 20932)
+          file = fso.opentextfile(fname, 2, true)
+          file.write [164, 162].pack("c*")
+          file.close
+          open(fname) {|ifs|
+            str = ifs.read
+          }
+          assert_equal("\202\240", str)
+        end
+
       ensure
         WIN32OLE.codepage = WIN32OLE::CP_ACP
         if (File.exist?(fname))
-- 
cgit v1.2.3