* test/win32ole/test_win32ole_type.rb (test_initialize): add

  more assertions.



git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@17905 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 21 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 1edefcbb4..47e88a17a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jul  6 18:34:35 2008  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
+
+	* test/win32ole/test_win32ole_type.rb (test_initialize): add 
+	  more assertions.
+
 Sun Jul  6 10:12:21 2008  Kouhei Sutou  <kou@cozmixng.org>
 
 	* lib/test/unit/collector/objectspace.rb
diff --git a/test/win32ole/test_win32ole_type.rb b/test/win32ole/test_win32ole_type.rb
index a5b59ca47..f317e8ed5 100644
--- a/test/win32ole/test_win32ole_type.rb
+++ b/test/win32ole/test_win32ole_type.rb
@@ -30,7 +30,22 @@ if defined?(WIN32OLE_TYPE)
       }
       ole_type = WIN32OLE_TYPE.new("Microsoft Shell Controls And Automation", "Shell")
       assert_instance_of(WIN32OLE_TYPE, ole_type)
-
+      assert_equal("Shell", ole_type.name)
+      assert_equal("Class", ole_type.ole_type)
+      assert_equal("{13709620-C279-11CE-A49E-444553540000}", ole_type.guid)
+      assert_equal("Shell.Application.1", ole_type.progid)
+      assert_equal(true, ole_type.visible?)
+      assert_equal("Shell", ole_type.to_s)
+      assert_equal(0, ole_type.major_version)
+      assert_equal(0, ole_type.minor_version)
+      assert_equal(5, ole_type.typekind)
+      assert_equal("Shell Object Type Information", ole_type.helpstring)
+      assert_equal(nil, ole_type.src_type)
+      assert_equal("", ole_type.helpfile)
+      assert_equal(0, ole_type.helpcontext)
+      assert_equal([], ole_type.variables)
+      assert(ole_type.ole_methods.select{|m|/NameSpace/i =~ m.name}.size > 0)
+      
       ole_type2 = WIN32OLE_TYPE.new("{13709620-C279-11CE-A49E-444553540000}", "Shell")
       assert_instance_of(WIN32OLE_TYPE, ole_type)
       assert_equal(ole_type.name, ole_type2.name)