windows-pr 0.2.0 → 0.5.3

data/test/tc_file.rb

@@ -0,0 +1,75 @@
+#####################################################################
+# tc_file.rb
+#
+# Test case for the Windows::File module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/file'
+require 'test/unit'
+
+class Foo
+   include Windows::File
+end
+
+class TC_Windows_File < Test::Unit::TestCase
+  
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(0x00000001, Foo::FILE_ATTRIBUTE_READONLY)  
+      assert_equal(0x00000002, Foo::FILE_ATTRIBUTE_HIDDEN)  
+      assert_equal(0x00000004, Foo::FILE_ATTRIBUTE_SYSTEM)
+      assert_equal(0x00000010, Foo::FILE_ATTRIBUTE_DIRECTORY) 
+      assert_equal(0x00000020, Foo::FILE_ATTRIBUTE_ARCHIVE)  
+      assert_equal(0x00000040, Foo::FILE_ATTRIBUTE_ENCRYPTED)
+      assert_equal(0x00000080, Foo::FILE_ATTRIBUTE_NORMAL)  
+      assert_equal(0x00000100, Foo::FILE_ATTRIBUTE_TEMPORARY)  
+      assert_equal(0x00000200, Foo::FILE_ATTRIBUTE_SPARSE_FILE) 
+      assert_equal(0x00000400, Foo::FILE_ATTRIBUTE_REPARSE_POINT)  
+      assert_equal(0x00000800, Foo::FILE_ATTRIBUTE_COMPRESSED)  
+      assert_equal(0x00001000, Foo::FILE_ATTRIBUTE_OFFLINE) 
+      assert_equal(0x00002000, Foo::FILE_ATTRIBUTE_NOT_CONTENT_INDEXED)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::CopyFile)
+      assert_not_nil(Foo::CopyFileEx)
+      assert_not_nil(Foo::CreateFile)
+      assert_not_nil(Foo::CreateFileW)
+      assert_not_nil(Foo::CreateHardLink)
+      assert_not_nil(Foo::DecryptFile)
+      assert_not_nil(Foo::DeleteFile)
+      assert_not_nil(Foo::EncryptFile)
+      assert_not_nil(Foo::GetBinaryType)
+      assert_not_nil(Foo::GetFileAttributes)
+      assert_not_nil(Foo::GetFileAttributesEx)
+      assert_not_nil(Foo::GetFileSize)
+      assert_not_nil(Foo::GetFileSizeEx)
+      assert_not_nil(Foo::GetFileType)
+      assert_not_nil(Foo::GetFullPathName)
+      assert_not_nil(Foo::GetFullPathNameW)
+      assert_not_nil(Foo::GetLongPathName)
+      assert_not_nil(Foo::GetShortPathName)
+      assert_not_nil(Foo::LockFile)
+      assert_not_nil(Foo::LockFileEx)
+      assert_not_nil(Foo::ReadFile)
+      assert_not_nil(Foo::ReadFileEx)
+      assert_not_nil(Foo::SetFileAttributes)
+      assert_not_nil(Foo::UnlockFile)
+      assert_not_nil(Foo::UnlockFileEx)
+      assert_not_nil(Foo::WriteFile)
+      assert_not_nil(Foo::WriteFileEx)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_memory.rb

@@ -0,0 +1,51 @@
+#####################################################################
+# tc_memory.rb
+#
+# Test case for the Windows::Memory module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/memory'
+require 'test/unit'
+
+class Foo
+   include Windows::Memory
+end
+
+class TC_Windows_Path < Test::Unit::TestCase
+   def setup
+      @foo  = Foo.new
+      @path = "C:\\"
+   end
+
+   def test_numeric_constants
+      assert_not_nil(Foo::GHND)
+      assert_not_nil(Foo::GMEM_FIXED)
+      assert_not_nil(Foo::GMEM_MOVABLE)
+      assert_not_nil(Foo::GMEM_ZEROINIT)
+      assert_not_nil(Foo::GPTR)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::GlobalAlloc)
+      assert_not_nil(Foo::GlobalFlags)
+      assert_not_nil(Foo::GlobalFree)
+      assert_not_nil(Foo::GlobalHandle)
+      assert_not_nil(Foo::GlobalLock)
+      assert_not_nil(Foo::GlobalMemoryStatus)
+      assert_not_nil(Foo::GlobalMemoryStatusEx)
+      assert_not_nil(Foo::GlobalReAlloc)
+      assert_not_nil(Foo::GlobalSize)
+      assert_not_nil(Foo::GlobalUnlock)
+   end
+
+   def teardown
+      @foo  = nil
+      @path = nil
+   end
+end

data/test/tc_pipe.rb

@@ -0,0 +1,60 @@
+#####################################################################
+# tc_pipe.rb
+#
+# Test case for the Windows::Pipe module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/pipe'
+require 'test/unit'
+
+class Foo
+   include Windows::Pipe
+end
+
+class TC_Windows_Pipe < Test::Unit::TestCase
+  
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(0x00000001, Foo::NMPWAIT_NOWAIT)
+      assert_equal(0xffffffff, Foo::NMPWAIT_WAIT_FOREVER)
+      assert_equal(0x00000000, Foo::NMPWAIT_USE_DEFAULT_WAIT)
+      assert_equal(0x00000000, Foo::PIPE_WAIT)
+      assert_equal(0x00000001, Foo::PIPE_NOWAIT)
+      assert_equal(0x00000001, Foo::PIPE_ACCESS_INBOUND)
+      assert_equal(0x00000002, Foo::PIPE_ACCESS_OUTBOUND)
+      assert_equal(0x00000003, Foo::PIPE_ACCESS_DUPLEX)
+      assert_equal(0x00000000, Foo::PIPE_TYPE_BYTE)
+      assert_equal(0x00000004, Foo::PIPE_TYPE_MESSAGE)
+      assert_equal(0x00000000, Foo::PIPE_READMODE_BYTE)
+      assert_equal(0x00000002, Foo::PIPE_READMODE_MESSAGE)
+      assert_equal(0x00000000, Foo::PIPE_CLIENT_END)
+      assert_equal(0x00000001, Foo::PIPE_SERVER_END)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::CallNamedPipe)
+      assert_not_nil(Foo::ConnectNamedPipe)
+      assert_not_nil(Foo::CreateNamedPipe)
+      assert_not_nil(Foo::CreatePipe)
+      assert_not_nil(Foo::DisconnectNamedPipe)
+      assert_not_nil(Foo::GetNamedPipeHandleState)
+      assert_not_nil(Foo::GetNamedPipeInfo)
+      assert_not_nil(Foo::PeekNamedPipe)
+      assert_not_nil(Foo::SetNamedPipeHandleState)
+      assert_not_nil(Foo::TransactNamedPipe)
+      assert_not_nil(Foo::WaitNamedPipe)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_process.rb

@@ -0,0 +1,36 @@
+#####################################################################
+# tc_process.rb
+#
+# Test case for the Windows::Process module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/process'
+require 'test/unit'
+
+class Foo
+   include Windows::Process
+end
+
+class TC_Windows_Process < Test::Unit::TestCase
+   def setup
+      @foo  = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0x1F0FFF, Foo::PROCESS_ALL_ACCESS)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::CreateProcess)
+   end
+
+   def teardown
+      @foo  = nil
+   end
+end

data/test/tc_registry.rb

@@ -0,0 +1,36 @@
+#####################################################################
+# tc_registry.rb
+#
+# Test case for the Windows::Registry module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/registry'
+require 'test/unit'
+
+class Foo
+   include Windows::Registry
+end
+
+class TC_Windows_Registry < Test::Unit::TestCase
+   def setup
+      @foo  = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0x80000000, Foo::HKEY_CLASSES_ROOT)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::RegCloseKey)
+   end
+
+   def teardown
+      @foo  = nil
+   end
+end

data/test/tc_security.rb

@@ -0,0 +1,111 @@
+#####################################################################
+# tc_security.rb
+#
+# Test case for the Windows::Security module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require "windows/security"
+require "test/unit"
+
+class Foo
+   include Windows::Security
+end
+
+class TC_Windows_Path < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(2,  Foo::ACL_REVISION)
+      assert_equal(2,  Foo::ACL_REVISION2)
+      assert_equal(3,  Foo::ACL_REVISION3)
+      assert_equal(4,  Foo::ACL_REVISION4)
+      assert_equal(62, Foo::ALLOW_ACE_LENGTH)
+      assert_equal(4,  Foo::DACL_SECURITY_INFORMATION)
+      assert_equal(4,  Foo::SE_DACL_PRESENT)
+      assert_equal(20, Foo::SECURITY_DESCRIPTOR_MIN_LENGTH)
+      assert_equal(1,  Foo::SECURITY_DESCRIPTOR_REVISION)
+      assert_equal(4026597376, Foo::GENERIC_RIGHTS_MASK)
+      assert_equal(4026531840, Foo::GENERIC_RIGHTS_CHK)
+      assert_equal(2097151, Foo::REST_RIGHTS_MASK)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::AddAce)
+      assert_not_nil(Foo::CopySid)
+      assert_not_nil(Foo::GetAce)
+      assert_not_nil(Foo::GetFileSecurity)
+      assert_not_nil(Foo::GetLengthSid)
+      assert_not_nil(Foo::GetSecurityDescriptorControl)
+      assert_not_nil(Foo::GetSecurityDescriptorDacl)
+      assert_not_nil(Foo::InitializeAcl)
+      assert_not_nil(Foo::InitializeSecurityDescriptor)
+      assert_not_nil(Foo::LookupAccountName)
+      assert_not_nil(Foo::LookupAccountSid)
+      assert_not_nil(Foo::SetFileSecurity)
+      assert_not_nil(Foo::SetSecurityDescriptorDacl)
+   end
+
+   def test_add_ace
+      assert_respond_to(@foo, :AddAce)
+   end
+
+   def test_copy_sid
+      assert_respond_to(@foo, :CopySid)
+   end
+
+   def test_get_ace
+      assert_respond_to(@foo, :GetAce)
+   end
+
+   def test_get_file_security
+      assert_respond_to(@foo, :GetFileSecurity)
+   end
+
+   def test_get_length_sid
+      assert_respond_to(@foo, :GetLengthSid)
+   end
+
+   def test_security_descriptr_control
+      assert_respond_to(@foo, :GetSecurityDescriptorControl)
+   end
+
+   def test_security_descriptor_dacl
+      assert_respond_to(@foo, :GetSecurityDescriptorDacl)
+   end
+
+   def test_initialize_acl
+      assert_respond_to(@foo, :InitializeAcl)
+   end
+
+   def test_initialize_security_descriptor
+      assert_respond_to(@foo, :InitializeSecurityDescriptor)
+   end
+
+   def test_lookup_account_name
+      assert_respond_to(@foo, :LookupAccountName)
+   end
+
+   def test_lookup_account_sid
+      assert_respond_to(@foo, :LookupAccountSid)
+   end
+
+   def test_set_file_security
+      assert_respond_to(@foo, :SetFileSecurity)
+   end
+
+   def test_set_security_descriptor_dacl
+      assert_respond_to(@foo, :SetSecurityDescriptorDacl)
+   end
+
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_synchronize.rb

@@ -14,7 +14,7 @@ require "windows/synchronize"
 require "test/unit"
 
 class Foo
-   include Windows
+   include Windows::Synchronize
 end
 
 class TC_Windows_Synchronize < Test::Unit::TestCase
@@ -25,15 +25,53 @@ class TC_Windows_Synchronize < Test::Unit::TestCase
    
    def test_numeric_constants
       assert_not_nil(Foo::INFINITE)
+      assert_not_nil(Foo::WAIT_OBJECT_0)
+      assert_not_nil(Foo::WAIT_TIMEOUT)
+      assert_not_nil(Foo::WAIT_ABANDONED)
+      assert_not_nil(Foo::WAIT_FAILED)
+      assert_not_nil(Foo::QS_ALLEVENTS)
+      assert_not_nil(Foo::QS_ALLINPUT)
+      assert_not_nil(Foo::QS_ALLPOSTMESSAGE)
+      assert_not_nil(Foo::QS_HOTKEY)
+      assert_not_nil(Foo::QS_INPUT)
+      assert_not_nil(Foo::QS_KEY)
+      assert_not_nil(Foo::QS_MOUSE)
+      assert_not_nil(Foo::QS_MOUSEBUTTON)
+      assert_not_nil(Foo::QS_MOUSEMOVE)
+      assert_not_nil(Foo::QS_PAINT)
+      assert_not_nil(Foo::QS_POSTMESSAGE)
+      assert_not_nil(Foo::QS_RAWINPUT)
+      assert_not_nil(Foo::QS_SENDMESSAGE)
+      assert_not_nil(Foo::QS_TIMER)
+      assert_not_nil(Foo::MWMO_ALERTABLE)
+      assert_not_nil(Foo::MWMO_INPUTAVAILABLE)
+      assert_not_nil(Foo::MWMO_WAITALL)
+      assert_not_nil(Foo::EVENT_ALL_ACCESS)
+      assert_not_nil(Foo::EVENT_MODIFY_STATE)
+      assert_not_nil(Foo::MUTEX_ALL_ACCESS)
+      assert_not_nil(Foo::MUTEX_MODIFY_STATE)
+      assert_not_nil(Foo::SEMAPHORE_ALL_ACCESS)
+      assert_not_nil(Foo::SEMAPHORE_MODIFY_STATE)
    end
    
    def test_method_constants
+      assert_not_nil(Foo::CreateEvent)
+      assert_not_nil(Foo::CreateMutex)
+      assert_not_nil(Foo::CreateSemaphore)
+      assert_not_nil(Foo::GetOverlappedResult)
+      assert_not_nil(Foo::MsgWaitForMultipleObjects)
+      assert_not_nil(Foo::MsgWaitForMultipleObjectsEx)
+      assert_not_nil(Foo::OpenEvent)
+      assert_not_nil(Foo::OpenMutex)
+      assert_not_nil(Foo::OpenSemaphore)
+      assert_not_nil(Foo::ReleaseMutex)
+      assert_not_nil(Foo::ReleaseSemaphore)
+      assert_not_nil(Foo::ResetEvent)
+      assert_not_nil(Foo::SetEvent)
+      assert_not_nil(Foo::WaitForMultipleObjects)
+      assert_not_nil(Foo::WaitForMultipleObjectsEx)
       assert_not_nil(Foo::WaitForSingleObject)
-   end
-   
-   def test_wait_for_single_object
-      assert_respond_to(@foo, :wait_for_single_object)
-      assert_nothing_raised{ @foo.wait_for_single_object(@handle[0], 1) }
+      assert_not_nil(Foo::WaitForSingleObjectEx)
    end
    
    def teardown

data/test/tc_unicode.rb

@@ -0,0 +1,61 @@
+#####################################################################
+# tc_unicode.rb
+#
+# Test case for the Windows::Unicode module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require "windows/unicode"
+require "test/unit"
+
+class Foo
+   include Windows::Unicode
+end
+
+class TC_Windows_Unicode < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0, Foo::CP_ACP)
+      assert_equal(1, Foo::CP_OEMCP)
+      assert_equal(2, Foo::CP_MACCP)
+      assert_equal(3, Foo::CP_THREAD_ACP)
+      assert_equal(42, Foo::CP_SYMBOL)
+      assert_equal(65000, Foo::CP_UTF7)
+      assert_equal(65001, Foo::CP_UTF8)
+
+      assert_equal(0x00000001, Foo::MB_PRECOMPOSED)
+      assert_equal(0x00000002, Foo::MB_COMPOSITE)
+      assert_equal(0x00000004, Foo::MB_USEGLYPHCHARS)
+      assert_equal(0x00000008, Foo::MB_ERR_INVALID_CHARS)
+
+      assert_equal(0x00000200, Foo::WC_COMPOSITECHECK)
+      assert_equal(0x00000010, Foo::WC_DISCARDNS)
+      assert_equal(0x00000020, Foo::WC_SEPCHARS)
+      assert_equal(0x00000040, Foo::WC_DEFAULTCHAR)
+      assert_equal(0x00000400, Foo::WC_NO_BEST_FIT_CHARS)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::GetTextCharset)
+      assert_not_nil(Foo::GetTextCharsetInfo)
+      assert_not_nil(Foo::IsDBCSLeadByte)
+      assert_not_nil(Foo::IsDBCSLeadByteEx)
+      assert_not_nil(Foo::IsTextUnicode)
+      assert_not_nil(Foo::MultiByteToWideChar)
+      assert_not_nil(Foo::TranslateCharsetInfo)
+      assert_not_nil(Foo::WideCharToMultiByte)
+   end
+
+   def teardown
+      @foo  = nil
+      @unicode = nil
+   end
+end