windows-pr 0.7.2 → 0.7.3

data/lib/windows/unicode.rb

@@ -1,8 +1,11 @@
 require 'windows/api'
+require 'windows/msvcrt/string'
 include Windows
 
 module Windows
    module Unicode
+      include Windows::MSVCRT::String
+      
       API.auto_namespace = 'Windows::Unicode'
       API.auto_constant  = true
       API.auto_method    = true
@@ -78,37 +81,33 @@ module Windows
       API.new('WideCharToMultiByte', 'ILPIPIPP', 'I')
 
       # Convenient wrapper methods
-      
+       
       # Maps a wide character string to a new character string using the
       # specified +encoding+.  If no encoding is specified, then CP_UTF8 
       # iss used if $KCODE is set to UTF8. Otherwise, CP_ACP is used.
       # 
       # If the function fails it simply returns the string as-is.
       # 
-      # Maps a string to a wide (unicode) string using +encoding+. If no
-      # encoding is specified, then CP_UTF8 is used if $KCODE is set to UTF8.
-      # Otherwise, CP_ACP is used.
-      # 
-      # If the function fails it simply returns the string as-is.
-      # 
       def multi_to_wide(string, encoding=nil)
          unless encoding
             encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
          end
          
-         buf = 0.chr * string.size * 2 # sizeof(WCHAR)
-
+         buf = ' ' * strlen(string) * 2
+         
          int = MultiByteToWideChar(
             encoding,
             0,
             string,
-            string.size,
+            strlen(string),
             buf,
-            buf.size
+            strlen(buf)
          )
          
          if int > 0
-            buf[0, int*2]
+            dest = ' ' * int * 2
+            wcsncpy(dest, buf, int)
+            dest
          else
             string
          end
@@ -125,21 +124,23 @@ module Windows
             encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
          end
          
-         buf = 0.chr * string.size
-         
+         buf = ' ' * wcslen(string)
+
          int = WideCharToMultiByte(
             encoding,
             0,
             string,
-            string.size/2,
+            wcslen(string),
             buf,
-            buf.size,
+            strlen(buf),
             0,
             0
          )
 
          if int > 0
-            buf[0, int]
+            dest = ' ' * int
+            strncpy(dest, buf, int)
+            dest
          else
             string
          end

data/test/tc_device_io.rb

@@ -0,0 +1,29 @@
+#####################################################################
+# tc_device_io.rb
+#
+# Test case for the Windows::DeviceIO module.
+#####################################################################
+require 'windows/device_io'
+require 'test/unit'
+
+class DeviceIOFoo
+   include Windows::DeviceIO
+end
+
+class TC_Windows_DeviceIO < Test::Unit::TestCase
+   def setup
+      @foo  = DeviceIOFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0x00000001, DeviceIOFoo::FILE_DEVICE_BEEP)
+   end
+
+   def test_method_constants
+      assert_not_nil(DeviceIOFoo::DeviceIoControl)
+   end
+
+   def teardown
+      @foo  = nil
+   end
+end

data/test/tc_directory.rb

@@ -0,0 +1,25 @@
+#####################################################################
+# tc_directory.rb
+#
+# Test case for the Windows::Directory module.
+#####################################################################
+require 'windows/directory'
+require 'test/unit'
+
+class DirectoryFoo
+   include Windows::Directory
+end
+
+class TC_Windows_Directory < Test::Unit::TestCase
+   def setup
+      @foo  = DirectoryFoo.new
+   end
+
+   def test_method_constants
+      assert_not_nil(DirectoryFoo::CreateDirectory)
+   end
+
+   def teardown
+      @foo  = nil
+   end
+end

data/test/tc_file_mapping.rb

@@ -0,0 +1,38 @@
+#####################################################################
+# tc_file_mapping.rb
+#
+# Test case for the Windows::FileMapping module.
+#####################################################################
+require 'windows/file_mapping'
+require 'test/unit'
+
+class FileMappingFoo
+   include Windows::FileMapping
+end
+
+class TC_Windows_FileMapping < Test::Unit::TestCase
+  
+   def setup
+      @foo = FileMappingFoo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(0x00000001, FileMappingFoo::FILE_MAP_COPY)
+      assert_equal(0x00000002, FileMappingFoo::FILE_MAP_WRITE)
+      assert_equal(0x00000004, FileMappingFoo::FILE_MAP_READ)
+      assert_equal(983071, FileMappingFoo::FILE_MAP_ALL_ACCESS)
+   end
+   
+   def test_method_constants
+      assert_not_nil(FileMappingFoo::CreateFileMapping)
+      assert_not_nil(FileMappingFoo::FlushViewOfFile)
+      assert_not_nil(FileMappingFoo::MapViewOfFile)
+      assert_not_nil(FileMappingFoo::MapViewOfFileEx)
+      assert_not_nil(FileMappingFoo::OpenFileMapping)
+      assert_not_nil(FileMappingFoo::UnmapViewOfFile)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_filesystem.rb

@@ -0,0 +1,27 @@
+#####################################################################
+# tc_filesystem.rb
+#
+# Test case for the Windows::FileSystem module.
+#####################################################################
+require 'windows/filesystem'
+require 'test/unit'
+
+class FileSystemFoo
+   include Windows::FileSystem
+end
+
+class TC_Windows_FileSystem < Test::Unit::TestCase
+  
+   def setup
+      @foo = FileSystemFoo.new
+   end
+   
+   def test_method_constants
+      assert_not_nil(FileSystemFoo::GetDiskFreeSpace)
+      assert_not_nil(FileSystemFoo::GetDiskFreeSpaceEx)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_handle.rb

@@ -0,0 +1,36 @@
+#####################################################################
+# tc_handle.rb
+#
+# Test case for the Windows::Handle module.
+#####################################################################
+require 'windows/handle'
+require 'test/unit'
+
+class HandleFoo
+   include Windows::Handle
+end
+
+class TC_Windows_Handle < Test::Unit::TestCase
+  
+   def setup
+      @foo = HandleFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(-1, HandleFoo::INVALID_HANDLE_VALUE)
+      assert_equal(0x00000001, HandleFoo::HANDLE_FLAG_INHERIT)
+      assert_equal(0x00000002, HandleFoo::HANDLE_FLAG_PROTECT_FROM_CLOSE)
+   end
+   
+   def test_method_constants
+      assert_not_nil(HandleFoo::CloseHandle)
+      assert_not_nil(HandleFoo::DuplicateHandle)
+      assert_not_nil(HandleFoo::GetHandleInformation)
+      assert_not_nil(HandleFoo::GetOSFHandle)
+      assert_not_nil(HandleFoo::OpenOSFHandle)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_limits.rb

@@ -0,0 +1,34 @@
+#####################################################################
+# tc_limits.rb
+#
+# Test case for the Windows::Limits module.
+#####################################################################
+require 'windows/limits'
+require 'test/unit'
+
+class LimitsFoo
+   include Windows::Limits
+end
+
+class TC_Windows_Limits < Test::Unit::TestCase
+  
+   def setup
+      @foo = LimitsFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0x80, LimitsFoo::MINCHAR)
+      assert_equal(0x7f, LimitsFoo::MAXCHAR)
+      assert_equal(0x8000, LimitsFoo::MINSHORT)
+      assert_equal(0x7fff, LimitsFoo::MAXSHORT)
+      assert_equal(0x80000000, LimitsFoo::MINLONG)
+      assert_equal(0x7fffffff, LimitsFoo::MAXLONG)
+      assert_equal(0xff, LimitsFoo::MAXBYTE)
+      assert_equal(0xffff, LimitsFoo::MAXWORD)
+      assert_equal(0xffffffff, LimitsFoo::MAXDWORD)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_national.rb

@@ -0,0 +1,38 @@
+#####################################################################
+# tc_national.rb
+#
+# Test case for the Windows::National module.
+#####################################################################
+require 'windows/national'
+require 'test/unit'
+
+class NationalFoo
+   include Windows::National
+end
+
+class TC_Windows_National < Test::Unit::TestCase
+   def setup
+      @foo = NationalFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(2048, NationalFoo::LANG_SYSTEM_DEFAULT)
+      assert_equal(1024, NationalFoo::LANG_USER_DEFAULT)
+      assert_equal(2048, NationalFoo::LOCALE_SYSTEM_DEFAULT)
+      assert_equal(1024, NationalFoo::LOCALE_USER_DEFAULT)
+      assert_equal(8323072, NationalFoo::LOCALE_INVARIANT)
+   end
+   
+   def test_method_constants
+      assert_not_nil(NationalFoo::GetACP)
+      assert_not_nil(NationalFoo::GetDateFormat)
+      assert_not_nil(NationalFoo::GetLocaleInfo)
+      assert_not_nil(NationalFoo::GetSystemDefaultLangID)
+      assert_not_nil(NationalFoo::GetUserDefaultLangID)
+      assert_not_nil(NationalFoo::GetUserDefaultLCID)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_network_management.rb

@@ -0,0 +1,32 @@
+#####################################################################
+# tc_network_management.rb
+#
+# Test case for the Windows::NetworkManagement module.
+#####################################################################
+require 'windows/network_management'
+require 'test/unit'
+
+class NetworkManagementFoo
+   include Windows::NetworkManagement
+end
+
+class TC_Windows_NetworkManagement < Test::Unit::TestCase
+   def setup
+      @foo = NetworkManagementFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0, NetworkManagementFoo::NERR_Success)
+      assert_equal(-1, NetworkManagementFoo::MAX_PREFERRED_LENGTH)
+      assert_equal(0x00000001, NetworkManagementFoo::SV_TYPE_WORKSTATION)
+   end
+   
+   def test_method_constants
+      assert_not_nil(NetworkManagementFoo::NetAlertRaise)
+      assert_not_nil(NetworkManagementFoo::NetAlertRaiseEx)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_nio.rb

@@ -0,0 +1,32 @@
+#####################################################################
+# tc_nio.rb
+#
+# Test case for the Windows::NIO module.
+#####################################################################
+require 'windows/nio'
+require 'test/unit'
+
+class NIOFoo
+   include Windows::NIO
+end
+
+class TC_Windows_NIO < Test::Unit::TestCase
+   def setup
+      @foo = NIOFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0, NIOFoo::OF_READ)
+      assert_equal(1, NIOFoo::OF_WRITE)
+      assert_equal(2, NIOFoo::OF_READWRITE)
+   end
+   
+   def test_method_constants
+      assert_not_nil(NIOFoo::CancelIo)
+      assert_not_nil(NIOFoo::ReadFileScatter)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_service.rb

@@ -0,0 +1,57 @@
+#####################################################################
+# tc_service.rb
+#
+# Test case for the Windows::Service module.
+#####################################################################
+require 'windows/service'
+require 'test/unit'
+
+class ServiceFoo
+   include Windows::Service
+end
+
+class TC_Windows_Service < Test::Unit::TestCase
+   def setup
+      @foo = ServiceFoo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0, ServiceFoo::SC_ACTION_NONE)
+      assert_equal(1, ServiceFoo::SC_ACTION_RESTART)
+      assert_equal(2, ServiceFoo::SC_ACTION_REBOOT)
+      assert_equal(3, ServiceFoo::SC_ACTION_RUN_COMMAND)
+   end
+   
+   def test_method_constants
+      assert_not_nil(ServiceFoo::ChangeServiceConfig)
+      assert_not_nil(ServiceFoo::ChangeServiceConfig2)
+      assert_not_nil(ServiceFoo::CloseServiceHandle)
+      assert_not_nil(ServiceFoo::ControlService)
+      assert_not_nil(ServiceFoo::CreateService)
+      assert_not_nil(ServiceFoo::DeleteService)
+      assert_not_nil(ServiceFoo::EnumDependentServices)
+      assert_not_nil(ServiceFoo::EnumServicesStatus)
+      assert_not_nil(ServiceFoo::EnumServicesStatusEx)
+      assert_not_nil(ServiceFoo::GetServiceDisplayName)
+      assert_not_nil(ServiceFoo::GetServiceKeyName)
+      assert_not_nil(ServiceFoo::LockServiceDatabase)
+      assert_not_nil(ServiceFoo::NotifyBootConfigStatus)
+      assert_not_nil(ServiceFoo::OpenSCManager)
+      assert_not_nil(ServiceFoo::OpenService)
+      assert_not_nil(ServiceFoo::QueryServiceConfig)
+      assert_not_nil(ServiceFoo::QueryServiceConfig2)
+      assert_not_nil(ServiceFoo::QueryServiceStatus)
+      assert_not_nil(ServiceFoo::QueryServiceStatusEx)
+      assert_not_nil(ServiceFoo::RegisterServiceCtrlHandler)
+      assert_not_nil(ServiceFoo::RegisterServiceCtrlHandlerEx)
+      assert_not_nil(ServiceFoo::SetServiceBits)
+      assert_not_nil(ServiceFoo::SetServiceStatus)
+      assert_not_nil(ServiceFoo::StartService)
+      assert_not_nil(ServiceFoo::StartServiceCtrlDispatcher)
+      assert_not_nil(ServiceFoo::UnlockServiceDatabase)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end