win32ole-pp 0.0.1

data/test/helper.rb

@@ -0,0 +1,16 @@
+require 'pp'
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/win32ole_pp'
+
+module WIN32OLE_PPTestHelper
+  def re(str)
+    str = str.gsub(/0x[[:xdigit:]]+/, "0x[[:xdigit:]]+")
+    /\A#{str}\z/
+  end
+
+  def pp_s(obj)
+    r = ""
+    PP.pp(obj, r)
+    r
+  end
+end

data/test/test_version.rb

@@ -0,0 +1,19 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestVersion < Test::Unit::TestCase
+
+  def test_version
+    assert_kind_of(String, WIN32OLE_PP::VERSION::STRING)
+    assert_kind_of(Integer, WIN32OLE_PP::VERSION::MAJOR)
+    assert_kind_of(Integer, WIN32OLE_PP::VERSION::MINOR)
+    assert_kind_of(Integer, WIN32OLE_PP::VERSION::TINY)
+
+    assert_match(/\d+\.\d+\.\d+/, WIN32OLE_PP::VERSION::STRING)
+    assert_equal(WIN32OLE_PP::VERSION::STRING, [
+      WIN32OLE_PP::VERSION::MAJOR,
+      WIN32OLE_PP::VERSION::MINOR,
+      WIN32OLE_PP::VERSION::TINY,
+    ].join('.'))
+  end
+
+end

data/test/test_win32ole.rb

@@ -0,0 +1,54 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32ole < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    @drive = Dir.pwd[/\A([a-z]):/i, 1]
+    @fs = WIN32OLE.new("Scripting.FileSystemObject")
+  end
+
+  def test_to_s_original
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+>/, @fs.to_s_original)
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+>/, @fs.Drives.to_s_original)
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+>/, @fs.Drives.Item(@drive).to_s_original)
+  end
+
+  def test_to_s
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+: IFileSystem\d+>/, @fs.to_s)
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+: IDriveCollection>/, @fs.Drives.to_s)
+    assert_match(/#<WIN32OLE:0x[[:xdigit:]]+: IDrive>/, @fs.Drives.Item(@drive).to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@fs))
+#<WIN32OLE:0x14c9fd6: IFileSystem[0-9]
+  Drives=#<WIN32OLE:0x14c99aa: IDriveCollection>>
+    EXPECTED
+  end
+
+  def test_pp2
+    assert_match(re(<<-EXPECTED), pp_s(@fs.Drives))
+#<WIN32OLE:0x14bda38: IDriveCollection Count=[0-9]+, _NewEnum=nil>
+    EXPECTED
+  end
+
+  def test_pp3
+    assert_match(re(<<-EXPECTED), pp_s(@fs.Drives.Item(@drive)))
+#<WIN32OLE:0x17ceb46: IDrive
+  AvailableSpace=.*?,
+  DriveLetter=.*?,
+  DriveType=.*?,
+  FileSystem=.*?,
+  FreeSpace=.*?,
+  IsReady=.*?,
+  Path=.*?,
+  RootFolder=.*?,
+  SerialNumber=.*?,
+  ShareName=.*?,
+  TotalSize=.*?,
+  VolumeName=.*?>
+    EXPECTED
+  end
+
+end

data/test/test_win32ole_event.rb

@@ -0,0 +1,28 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32oleEvent < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    @ie = WIN32OLE.new('InternetExplorer.Application')
+    @event = WIN32OLE_EVENT.new(@ie, 'DWebBrowserEvents')
+  end
+
+  def test_to_s_original
+    assert_match(re("#<WIN32OLE_EVENT:0x2960ad0>"),
+                 @event.to_s_original)
+  end
+
+  def test_to_s
+    assert_match(re("#<WIN32OLE_EVENT:0x14b0568: IWebBrowser2\\.DWebBrowserEvents>"),
+                 @event.to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@event))
+#<WIN32OLE_EVENT:0x14b0568: DWebBrowserEvents
+  ole_class="IWebBrowser2",
+  event_interface="DWebBrowserEvents">
+    EXPECTED
+  end
+end

data/test/test_win32ole_method.rb

@@ -0,0 +1,84 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32oleMethod < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    @drive = Dir.pwd[/\A([a-z]):/i, 1]
+    @fs = WIN32OLE.new("Scripting.FileSystemObject")
+    @method_drives = @fs.ole_method("Drives")
+    @method_create_folder = @fs.ole_method("CreateFolder")
+    @method_delete_folder = @fs.ole_method("DeleteFolder")
+  end
+
+  def test_to_s_original
+    assert_equal("Drives", @method_drives.to_s_original)
+    assert_equal("CreateFolder", @method_create_folder.to_s_original)
+    assert_equal("DeleteFolder", @method_delete_folder.to_s_original)
+  end
+
+  def test_to_s
+    assert_match(re("#<WIN32OLE_METHOD:0x14c73da: IDriveCollection Drives\\(\\)>"),
+                 @method_drives.to_s)
+    assert_match(re("#<WIN32OLE_METHOD:0x14c72f4: IFolder CreateFolder\\(\\[in\\] BSTR Path\\)>"),
+                 @method_create_folder.to_s)
+    assert_match(re("#<WIN32OLE_METHOD:0x14c6cd2: VOID DeleteFolder\\(\\[in\\] BSTR FolderSpec, \\[in, optional\\] BOOL Force\\)>"),
+                 @method_delete_folder.to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@method_drives))
+#<WIN32OLE_METHOD:0x14c742a: Drives
+  dispid=.*?,
+  event\\?=.*?,
+  event_interface=.*?,
+  helpcontext=.*?,
+  helpfile=.*?,
+  helpstring=.*?,
+  invkind=.*?,
+  invoke_kind=.*?,
+  name=.*?,
+  offset_vtbl=.*?,
+  params=.*?,
+  return_type=.*?,
+  return_type_detail=.*?,
+  return_vtype=.*?,
+  size_opt_params=.*?,
+  size_params=.*?,
+  visible\\?=.*?>
+    EXPECTED
+  end
+
+  def test_pp2
+    assert_match(re(<<-EXPECTED), pp_s(@method_create_folder))
+#<WIN32OLE_METHOD:0x14c72f4: CreateFolder
+  dispid=.*?,
+  event\\?=.*?,
+  event_interface=.*?,
+  helpcontext=.*?,
+  helpfile=.*?,
+  helpstring=.*?,
+  invkind=.*?,
+  invoke_kind=.*?,
+  name=.*?,
+  offset_vtbl=.*?,
+  params.*?
+   \\[#<WIN32OLE_PARAM:0x14c4a9a: Path
+      default=.*?,
+      input\\?=.*?,
+      name=.*?,
+      ole_type=.*?,
+      ole_type_detail=.*?,
+      optional\\?=.*?,
+      output\\?=.*?,
+      retval\\?=.*?>\\],
+  return_type=.*?,
+  return_type_detail=.*?,
+  return_vtype=.*?,
+  size_opt_params=.*?,
+  size_params=.*?,
+  visible\\?=.*?>
+    EXPECTED
+  end
+
+end

data/test/test_win32ole_param.rb

@@ -0,0 +1,65 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32oleParam < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    @drive = Dir.pwd[/\A([a-z]):/i, 1]
+    @fs = WIN32OLE.new("Scripting.FileSystemObject")
+    @param_create_folder = @fs.ole_method("CreateFolder").params
+    @param_delete_folder = @fs.ole_method("DeleteFolder").params
+  end
+
+  def test_to_s_original
+    assert_equal("Path", @param_create_folder[0].to_s_original)
+    assert_equal("FolderSpec", @param_delete_folder[0].to_s_original)
+    assert_equal("Force", @param_delete_folder[1].to_s_original)
+  end
+
+  def test_to_s
+    assert_match(re("#<WIN32OLE_PARAM:0x14c1b4c: \\[in\\] BSTR Path>"),
+                 @param_create_folder[0].to_s)
+    assert_match(re("#<WIN32OLE_PARAM:0x14bd45c: \\[in\\] BSTR FolderSpec>"),
+                 @param_delete_folder[0].to_s)
+    assert_match(re("#<WIN32OLE_PARAM:0x14bd448: \\[in, optional\\] BOOL Force>"),
+                 @param_delete_folder[1].to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@param_create_folder))
+\\[#<WIN32OLE_PARAM:0x14bd290: Path
+   default=.*?,
+   input\\?=.*?,
+   name=.*?,
+   ole_type=.*?,
+   ole_type_detail=.*?,
+   optional\\?=.*?,
+   output\\?=.*?,
+   retval\\?=.*?>\\]
+    EXPECTED
+  end
+
+  def test_pp2
+    assert_match(re(<<-EXPECTED), pp_s(@param_delete_folder))
+\\[#<WIN32OLE_PARAM:0x14bd22c: FolderSpec
+   default=.*?,
+   input\\?=.*?,
+   name=.*?,
+   ole_type=.*?,
+   ole_type_detail=.*?,
+   optional\\?=.*?,
+   output\\?=.*?,
+   retval\\?=.*?>,
+ #<WIN32OLE_PARAM:0x14bd218: Force
+   default=.*?,
+   input\\?=.*?,
+   name=.*?,
+   ole_type=.*?,
+   ole_type_detail=.*?,
+   optional\\?=.*?,
+   output\\?=.*?,
+   retval\\?=.*?>\\]
+    EXPECTED
+  end
+
+end

data/test/test_win32ole_type.rb

@@ -0,0 +1,57 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32oleType < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    types = WIN32OLE_TYPE.ole_classes("Microsoft Script Control 1.0")
+    types.extend(Enumerable)
+    @script_control = types.find{|e| e.name =~ /Constants/ }
+  end
+
+  def test_to_s_original
+    assert_equal("ScriptControlConstants", @script_control.to_s_original)
+  end
+
+  def test_to_s
+    assert_match(re("#<WIN32OLE_TYPE:0x14b6e2c: ScriptControlConstants>"),
+                 @script_control.to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@script_control))
+#<WIN32OLE_TYPE:0x14b6e2c: ScriptControlConstants
+  guid=.*?,
+  helpcontext=.*?,
+  helpfile=.*?,
+  helpstring=.*?,
+  major_version=.*?,
+  minor_version=.*?,
+  name=.*?,
+  ole_methods=.*?,
+  ole_type=.*?,
+  progid=.*?,
+  src_type=.*?,
+  typekind=.*?,
+  variables=
+   \\[#<WIN32OLE_VARIABLE:0x14b69d6: GlobalModule
+      name=.*?,
+      ole_type=.*?,
+      ole_type_detail=.*?,
+      value=.*?,
+      variable_kind=.*?,
+      varkind=.*?,
+      visible\\?=.*?,
+    #<WIN32OLE_VARIABLE:0x14b69c2: NoTimeout
+      name=.*?,
+      ole_type=.*?,
+      ole_type_detail=.*?,
+      value=.*?,
+      variable_kind=.*?,
+      varkind=.*?,
+      visible\\?=.*?>\\],
+  visible\\?=.*?>
+    EXPECTED
+  end
+
+end

data/test/test_win32ole_variable.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/helper.rb'
+
+class TestWin32oleVariable < Test::Unit::TestCase
+  include ::WIN32OLE_PPTestHelper
+
+  def setup
+    types = WIN32OLE_TYPE.ole_classes("Microsoft Script Control 1.0")
+    types.extend(Enumerable)
+    script_control = types.find{|e| e.name =~ /Constants/ }
+    @vars = script_control.variables
+  end
+
+  def test_to_s_original
+    assert_equal("GlobalModule", @vars[0].to_s_original)
+    assert_equal("NoTimeout", @vars[1].to_s_original)
+  end
+
+  def test_to_s
+    assert_match(re("#<WIN32OLE_VARIABLE:0x14b34a2: GlobalModule=\"Global\">"),
+                 @vars[0].to_s)
+    assert_match(re("#<WIN32OLE_VARIABLE:0x14b34a2: NoTimeout=-1>"),
+                 @vars[1].to_s)
+  end
+
+  def test_pp
+    assert_match(re(<<-EXPECTED), pp_s(@vars))
+\\[#<WIN32OLE_VARIABLE:0x14b34a2: GlobalModule
+   name=.*?,
+   ole_type=.*?,
+   ole_type_detail=.*?,
+   value=.*?,
+   variable_kind=.*?,
+   varkind=.*?,
+   visible\\?=.*?,
+ #<WIN32OLE_VARIABLE:0x14b3484: NoTimeout
+   name=.*?,
+   ole_type=.*?,
+   ole_type_detail=.*?,
+   value=.*?,
+   variable_kind=.*?,
+   varkind=.*?,
+   visible\\?=.*?>\\]
+    EXPECTED
+  end
+
+end

metadata

@@ -0,0 +1,87 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: win32ole-pp
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-02-12 00:00:00 +09:00
+summary: pretty printer for WIN32OLE
+require_paths: 
+- lib
+email: miyamuko@gmail.com
+homepage: http://win32ole-pp.rubyforge.org/
+rubyforge_project: win32ole-pp
+description: "win32ole_pp - provide pretty printer for WIN32OLE and smart #to_s."
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- MIYAMUKO Katsuyuki
+files: 
+- CHANGELOG.txt
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- examples/test.rb
+- lib/win32ole_pp.rb
+- lib/win32ole_pp/extentions.rb
+- lib/win32ole_pp/extentions/common.rb
+- lib/win32ole_pp/extentions/win32ole.rb
+- lib/win32ole_pp/extentions/win32ole_event.rb
+- lib/win32ole_pp/extentions/win32ole_method.rb
+- lib/win32ole_pp/extentions/win32ole_param.rb
+- lib/win32ole_pp/extentions/win32ole_type.rb
+- lib/win32ole_pp/extentions/win32ole_variable.rb
+- lib/win32ole_pp/init.rb
+- lib/win32ole_pp/pp.rb
+- lib/win32ole_pp/to_s.rb
+- lib/win32ole_pp/version.rb
+- setup.rb
+- test/helper.rb
+- test/test_version.rb
+- test/test_win32ole.rb
+- test/test_win32ole_event.rb
+- test/test_win32ole_method.rb
+- test/test_win32ole_param.rb
+- test/test_win32ole_type.rb
+- test/test_win32ole_variable.rb
+test_files: 
+- test/test_version.rb
+- test/test_win32ole.rb
+- test/test_win32ole_event.rb
+- test/test_win32ole_method.rb
+- test/test_win32ole_param.rb
+- test/test_win32ole_type.rb
+- test/test_win32ole_variable.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.1.7
+    version: