windows-pr 1.1.3 → 1.2.0

data/test/tc_mailslot.rb

@@ -1,22 +1,22 @@
-#####################################################################
-# tc_mailslot.rb
-#
-# Test case for the Windows::Mailslot module.
-#####################################################################
-require 'windows/mailslot'
-require 'test/unit'
-
-class TC_Windows_Mailslot < Test::Unit::TestCase
-   include Windows::Mailslot
-
-   def test_constants
-      assert_equal(0xFFFFFFFF, MAILSLOT_WAIT_FOREVER)
-      assert_equal(0xFFFFFFFF, MAILSLOT_NO_MESSAGE)
-   end
-
-   def test_methods
-      assert_respond_to(self, :CreateMailslot)
-      assert_respond_to(self, :GetMailslotInfo)
-      assert_respond_to(self, :SetMailslotInfo)
-   end
-end
+#####################################################################
+# tc_mailslot.rb
+#
+# Test case for the Windows::Mailslot module.
+#####################################################################
+require 'windows/mailslot'
+require 'test/unit'
+
+class TC_Windows_Mailslot < Test::Unit::TestCase
+   include Windows::Mailslot
+
+   def test_constants
+      assert_equal(0xFFFFFFFF, MAILSLOT_WAIT_FOREVER)
+      assert_equal(0xFFFFFFFF, MAILSLOT_NO_MESSAGE)
+   end
+
+   def test_methods
+      assert_respond_to(self, :CreateMailslot)
+      assert_respond_to(self, :GetMailslotInfo)
+      assert_respond_to(self, :SetMailslotInfo)
+   end
+end

data/test/tc_memory.rb

@@ -1,44 +1,44 @@
-#####################################################################
-# tc_memory.rb
-#
-# Test case for the Windows::Memory module.
-#####################################################################
-require 'windows/memory'
-require 'test/unit'
-
-class MemoryFoo
-   include Windows::Memory
-end
-
-class TC_Windows_Memory < Test::Unit::TestCase
-   def setup
-      @foo  = MemoryFoo.new
-      @path = "C:\\"
-   end
-
-   def test_numeric_constants
-      assert_not_nil(MemoryFoo::GHND)
-      assert_not_nil(MemoryFoo::GMEM_FIXED)
-      assert_not_nil(MemoryFoo::GMEM_MOVABLE)
-      assert_not_nil(MemoryFoo::GMEM_ZEROINIT)
-      assert_not_nil(MemoryFoo::GPTR)
-   end
-
-   def test_method_constants
-      assert_not_nil(MemoryFoo::GlobalAlloc)
-      assert_not_nil(MemoryFoo::GlobalFlags)
-      assert_not_nil(MemoryFoo::GlobalFree)
-      assert_not_nil(MemoryFoo::GlobalHandle)
-      assert_not_nil(MemoryFoo::GlobalLock)
-      assert_not_nil(MemoryFoo::GlobalMemoryStatus)
-      assert_not_nil(MemoryFoo::GlobalMemoryStatusEx)
-      assert_not_nil(MemoryFoo::GlobalReAlloc)
-      assert_not_nil(MemoryFoo::GlobalSize)
-      assert_not_nil(MemoryFoo::GlobalUnlock)
-   end
-
-   def teardown
-      @foo  = nil
-      @path = nil
-   end
-end
+#####################################################################
+# tc_memory.rb
+#
+# Test case for the Windows::Memory module.
+#####################################################################
+require 'windows/memory'
+require 'test/unit'
+
+class MemoryFoo
+   include Windows::Memory
+end
+
+class TC_Windows_Memory < Test::Unit::TestCase
+   def setup
+      @foo  = MemoryFoo.new
+      @path = "C:\\"
+   end
+
+   def test_numeric_constants
+      assert_not_nil(MemoryFoo::GHND)
+      assert_not_nil(MemoryFoo::GMEM_FIXED)
+      assert_not_nil(MemoryFoo::GMEM_MOVABLE)
+      assert_not_nil(MemoryFoo::GMEM_ZEROINIT)
+      assert_not_nil(MemoryFoo::GPTR)
+   end
+
+   def test_method_constants
+      assert_not_nil(MemoryFoo::GlobalAlloc)
+      assert_not_nil(MemoryFoo::GlobalFlags)
+      assert_not_nil(MemoryFoo::GlobalFree)
+      assert_not_nil(MemoryFoo::GlobalHandle)
+      assert_not_nil(MemoryFoo::GlobalLock)
+      assert_not_nil(MemoryFoo::GlobalMemoryStatus)
+      assert_not_nil(MemoryFoo::GlobalMemoryStatusEx)
+      assert_not_nil(MemoryFoo::GlobalReAlloc)
+      assert_not_nil(MemoryFoo::GlobalSize)
+      assert_not_nil(MemoryFoo::GlobalUnlock)
+   end
+
+   def teardown
+      @foo  = nil
+      @path = nil
+   end
+end

data/test/tc_msvcrt_buffer.rb

@@ -1,68 +1,59 @@
-#####################################################################
-# tc_msvcrt_buffer.rb
-#
-# Test case for the Windows::MSVCRT::Buffer module.
-#####################################################################
-require "windows/msvcrt/buffer"
-require "test/unit"
-
-class BufferFoo
-   include Windows::MSVCRT::Buffer
-end
-
-class TC_Windows_MSVCRT_Buffer < Test::Unit::TestCase
-   def setup
-      @foo = BufferFoo.new
-   end
-   
-   def test_method_constants
-      assert_not_nil(BufferFoo::Memcpy)
-      assert_not_nil(BufferFoo::MemcpyPLL)
-      assert_not_nil(BufferFoo::MemcpyLPL)
-      assert_not_nil(BufferFoo::MemcpyLLL)
-      assert_not_nil(BufferFoo::MemcpyPPL)
-      assert_not_nil(BufferFoo::Memccpy)
-      assert_not_nil(BufferFoo::Memchr)
-      assert_not_nil(BufferFoo::Memcmp)
-      assert_not_nil(BufferFoo::Memicmp)
-      assert_not_nil(BufferFoo::Memmove)
-      assert_not_nil(BufferFoo::Memset)
-      assert_not_nil(BufferFoo::Swab)
-   end
-
-   def test_memcpy
-      assert_respond_to(@foo, :memcpy)
-   end
-   
-   def test_memccpy
-      assert_respond_to(@foo, :memccpy)
-   end
-   
-   def test_memchr
-      assert_respond_to(@foo, :memchr)
-   end
-   
-   def test_memcmp
-      assert_respond_to(@foo, :memcmp)
-   end
-   
-   def test_memicmp
-      assert_respond_to(@foo, :memicmp)
-   end
-   
-   def test_memmove
-      assert_respond_to(@foo, :memmove)
-   end
-   
-   def test_memset
-      assert_respond_to(@foo, :memset)
-   end
-   
-   def test_swab
-      assert_respond_to(@foo, :swab)
-   end
-   
-   def teardown
-      @foo  = nil
-   end
-end
+#####################################################################
+# tc_msvcrt_buffer.rb
+#
+# Test case for the Windows::MSVCRT::Buffer module.
+#####################################################################
+require 'rubygems'
+require 'windows/msvcrt/buffer'
+require 'test/unit'
+
+class TC_Windows_MSVCRT_Buffer < Test::Unit::TestCase
+  include Windows::MSVCRT::Buffer
+
+  def test_method_constants
+    assert_not_nil(Memcpy)
+    assert_not_nil(MemcpyPLL)
+    assert_not_nil(MemcpyLPL)
+    assert_not_nil(MemcpyLLL)
+    assert_not_nil(MemcpyPPL)
+    assert_not_nil(Memccpy)
+    assert_not_nil(Memchr)
+    assert_not_nil(Memcmp)
+    assert_not_nil(Memicmp)
+    assert_not_nil(Memmove)
+    assert_not_nil(Memset)
+    assert_not_nil(Swab)
+  end
+
+  def test_memcpy
+    assert(private_methods.include?("memcpy"))
+  end
+ 
+  def test_memccpy
+    assert(private_methods.include?("memccpy"))
+  end
+ 
+  def test_memchr
+    assert(private_methods.include?("memchr"))
+  end
+ 
+  def test_memcmp
+    assert(private_methods.include?("memcmp"))
+  end
+ 
+  def test_memicmp
+    assert(private_methods.include?("memicmp"))
+  end
+ 
+  def test_memmove
+    assert(private_methods.include?("memmove"))
+  end
+ 
+  def test_memset
+    assert(private_methods.include?("memset"))
+  end
+ 
+  def test_swab
+    assert(private_methods.include?("swab"))
+  end
+end

data/test/tc_msvcrt_directory.rb

@@ -1,98 +1,96 @@
-#####################################################################
-# tc_msvcrt_directory.rb
-#
-# Test case for the Windows::MSVCRT::File module.
-#####################################################################
-require 'windows/msvcrt/directory'
-require 'fileutils'
-require 'test/unit'
-
-class TC_Windows_MSVCRT_Directory < Test::Unit::TestCase
-   include Windows::MSVCRT::Directory
-
-   def setup
-      @pwd = Dir.pwd
-      @dir = 'delete_me'
-      @buf = 0.chr * 260
-   end
-
-   def test_method_constants
-      assert_not_nil(Chdir)
-      assert_not_nil(Wchdir)
-      assert_not_nil(Chdrive)
-      assert_not_nil(Getcwd)
-      assert_not_nil(Wgetcwd)
-      assert_not_nil(Getdcwd)
-      assert_not_nil(Getdiskfree)
-      assert_not_nil(Getdrive)
-      assert_not_nil(Getdrives)
-      assert_not_nil(Mkdir)
-      assert_not_nil(Wmkdir)
-      assert_not_nil(Rmdir)
-      assert_not_nil(Wrmdir)
-      assert_not_nil(Searchenv)
-      assert_not_nil(Wsearchenv)
-   end
-   
-   def test_chdir
-      assert_respond_to(self, :chdir)
-      assert_nothing_raised{ chdir('..') }
-      assert_equal(File.dirname(@pwd), Dir.pwd)
-   end
-
-   def test_wchdir
-      assert_respond_to(self, :wchdir)
-      assert_nothing_raised{ wchdir("C:\\") }
-   end
-
-   def test_chdrive
-      assert_respond_to(self, :chdrive)
-   end
-
-   def test_getcwd
-      assert_respond_to(self, :getcwd)
-   end
-
-   def test_wgetcwd
-      assert_respond_to(self, :wgetcwd)
-   end
-
-   def test_getdcwd
-      assert_respond_to(self, :getdcwd)
-   end
-
-   def test_wgetdcwd
-      assert_respond_to(self, :wgetdcwd)
-   end
-
-   def test_mkdir
-      assert_respond_to(self, :mkdir)
-      assert_nothing_raised{ mkdir(@dir) }
-      assert_equal(true, File.exists?(@dir))
-   end
-
-   def test_rmdir
-      Dir.mkdir(@dir) unless File.exists?(@dir)
-      assert_respond_to(self, :rmdir)
-      assert_nothing_raised{ rmdir(@dir) }
-      assert_equal(false, File.exists?(@dir))
-   end
-
-   def test_searchenv
-      possible = [
-         "c:\\winnt\\system32\\notepad.exe",
-         "c:\\windows\\system32\\notepad.exe",
-         "c:\\windows\\notepad.exe"
-      ]
-      assert_respond_to(self, :searchenv)
-      assert_nothing_raised{ searchenv("notepad.exe", "PATH", @buf) }
-      assert_equal(true, possible.include?(@buf.strip.downcase))
-   end
-
-   def teardown
-      FileUtils.rm_f(@dir) if File.exists?(@dir)
-      @pwd = nil
-      @dir = nil
-      @buf = 0
-   end
-end
+#####################################################################
+# tc_msvcrt_directory.rb
+#
+# Test case for the Windows::MSVCRT::File module.
+#####################################################################
+require 'windows/msvcrt/directory'
+require 'fileutils'
+require 'test/unit'
+
+class TC_Windows_MSVCRT_Directory < Test::Unit::TestCase
+  include Windows::MSVCRT::Directory
+
+  def setup
+    @pwd = Dir.pwd
+    @dir = 'delete_me'
+    @buf = 0.chr * 260
+  end
+
+  def test_method_constants
+    assert_not_nil(Chdir)
+    assert_not_nil(Wchdir)
+    assert_not_nil(Chdrive)
+    assert_not_nil(Getcwd)
+    assert_not_nil(Wgetcwd)
+    assert_not_nil(Getdcwd)
+    assert_not_nil(Getdiskfree)
+    assert_not_nil(Getdrive)
+    assert_not_nil(Getdrives)
+    assert_not_nil(Mkdir)
+    assert_not_nil(Wmkdir)
+    assert_not_nil(Rmdir)
+    assert_not_nil(Wrmdir)
+    assert_not_nil(Searchenv)
+    assert_not_nil(Wsearchenv)
+  end
+   
+  def test_chdir
+    assert_nothing_raised{ chdir('..') }
+    assert_equal(File.dirname(@pwd), Dir.pwd)
+  end
+
+  def test_wchdir
+    assert_nothing_raised{ wchdir("C:\\") }
+  end
+
+  def test_chdrive
+    assert(self.respond_to?(:chdrive, true))
+  end
+
+  def test_getcwd
+    assert(self.respond_to?(:getcwd, true))
+  end
+
+  def test_wgetcwd
+    assert(self.respond_to?(:wgetcwd, true))
+  end
+
+  def test_getdcwd
+    assert(self.respond_to?(:getdcwd, true))
+  end
+
+  def test_wgetdcwd
+    assert(self.respond_to?(:wgetdcwd, true))
+  end
+
+  def test_mkdir
+    assert(self.respond_to?(:mkdir, true))
+    assert_nothing_raised{ mkdir(@dir) }
+    assert_equal(true, File.exists?(@dir))
+  end
+
+  def test_rmdir
+    Dir.mkdir(@dir) unless File.exists?(@dir)
+    assert(self.respond_to?(:rmdir, true))
+    assert_nothing_raised{ rmdir(@dir) }
+    assert_equal(false, File.exists?(@dir))
+  end
+
+  def test_searchenv
+    possible = [
+      "c:\\winnt\\system32\\notepad.exe",
+      "c:\\windows\\system32\\notepad.exe",
+      "c:\\windows\\notepad.exe"
+    ]
+    assert(self.respond_to?(:searchenv, true))
+    assert_nothing_raised{ searchenv("notepad.exe", "PATH", @buf) }
+    assert_equal(true, possible.include?(@buf.strip.downcase))
+  end
+
+  def teardown
+    FileUtils.rm_f(@dir) if File.exists?(@dir)
+    @pwd = nil
+    @dir = nil
+    @buf = 0
+  end
+end