From 9f6d8980ff21139fa45ae58ce67a8ece8cb33563 Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 15 Apr 2005 13:43:32 +0000
Subject: [PATCH] * ext/win32ole/tests/testWIN32OLE.rb: add test for
 WIN32OLE.codepage= * ext/win32ole/tests/testOLETYPELIB.rb: correct expected
 message.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8334 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                            |  6 ++++++
 ext/win32ole/tests/testOLETYPELIB.rb |  2 +-
 ext/win32ole/tests/testWIN32OLE.rb   | 18 +++++++++++++++++-
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1ba3ab98b0..5d8d430f9c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Fri Apr 15 22:40:19 2005  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
+
+	* ext/win32ole/tests/testWIN32OLE.rb: add test for WIN32OLE.codepage=
+
+	* ext/win32ole/tests/testOLETYPELIB.rb: correct expected message.
+
 Fri Apr 15 22:04:07 2005  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
 
 	* ext/win32ole/win32ole.c(ole_invoke): retry after converting Qnil
diff --git a/ext/win32ole/tests/testOLETYPELIB.rb b/ext/win32ole/tests/testOLETYPELIB.rb
index 9248ecfefb..ceb246930f 100644
--- a/ext/win32ole/tests/testOLETYPELIB.rb
+++ b/ext/win32ole/tests/testOLETYPELIB.rb
@@ -21,7 +21,7 @@ class TestOLETYPELIB < Test::Unit::TestCase
       msg = $!.to_s
       exception_occured = true
     end
-    assert_equal("Not found type library `NON EXIST TYPELIB`", msg)
+    assert_equal("not found type library `NON EXIST TYPELIB`", msg)
     assert(exception_occured)
   end
 
diff --git a/ext/win32ole/tests/testWIN32OLE.rb b/ext/win32ole/tests/testWIN32OLE.rb
index 379eca315d..ca966f0cce 100644
--- a/ext/win32ole/tests/testWIN32OLE.rb
+++ b/ext/win32ole/tests/testWIN32OLE.rb
@@ -41,7 +41,7 @@ class TestWin32OLE < RUNIT::TestCase
     exc = assert_exception(WIN32OLERuntimeError) {
       WIN32OLE.new("{000}")
     }
-    assert_match(/Unknown OLE server: `\{000\}'/, exc.message)
+    assert_match(/unknown OLE server: `\{000\}'/, exc.message)
   end
   def test_s_connect
     excel2 = WIN32OLE.connect('Excel.Application')
@@ -96,6 +96,22 @@ class TestWin32OLE < RUNIT::TestCase
     assert_equal(65001, WIN32OLE::CP_UTF8)
   end
 
+  def test_s_codepage_changed
+    book = @excel.workbooks.add
+    sheet = book.worksheets(1)
+    begin
+      WIN32OLE.codepage = WIN32OLE::CP_UTF8
+      sheet.range("A1").value = [0x3042].pack("U*")
+      val = sheet.range("A1").value
+      assert_equal("\343\201\202", val)
+      WIN32OLE.codepage = WIN32OLE::CP_ACP
+      val = sheet.range("A1").value
+      assert_equal("\202\240", val)
+    ensure
+      book.saved = true
+    end
+  end
+
   def test_get_win32ole_object
     workbooks = @excel.Workbooks;
     assert_instance_of(WIN32OLE, workbooks)