From 9a59edfb4e38600dc68f2442afe8a6e9559471d4 Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 11 Feb 2006 13:00:46 +0000
Subject: add WIN32OLE.create_guid.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9910 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/win32ole/tests/testWIN32OLE.rb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'ext/win32ole/tests/testWIN32OLE.rb')

diff --git a/ext/win32ole/tests/testWIN32OLE.rb b/ext/win32ole/tests/testWIN32OLE.rb
index 185670c9fc..8c50c7666e 100644
--- a/ext/win32ole/tests/testWIN32OLE.rb
+++ b/ext/win32ole/tests/testWIN32OLE.rb
@@ -289,6 +289,12 @@ class TestWin32OLE < RUNIT::TestCase
     assert_equal(tlib.name, MS_EXCEL_TYPELIB);
   end
 
+  def test_s_create_guid
+    guid = WIN32OLE.create_guid
+    assert_match(/^\{[A-Z0-9]{8}\-[A-Z0-9]{4}\-[A-Z0-9]{4}\-[A-Z0-9]{4}\-[A-Z0-9]{12}/,
+                 guid)
+  end
+
   def teardown
     @excel.quit
     @excel = nil
-- 
cgit v1.2.3