win 0.3.24 → 0.3.25

data/spec/win/system/info_spec.rb

@@ -1,47 +1,44 @@
-require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+require 'spec_helper'
 require 'win/system/info'
 
-module WinSystemInfoTest
-
-  include WinTestApp
-  include Win::System::Info
-
-  describe Win::System::Info do
-    describe "#get_computer_name" do
-      spec{ use{ success = GetComputerName(buf = buffer, pointer.write_long(buf.size)) }}
-      spec{ use{ name = get_computer_name() }}
-
-      it "original api retrieves the NetBIOS name of the local computer " do
-        name_ptr = FFI::MemoryPointer.from_string(" " * 128)
-        size_ptr = FFI::MemoryPointer.new(:long).write_int(name_ptr.size)
-        success = GetComputerName(name_ptr, size_ptr)
-        success.should_not == 0
-        name_ptr.read_string.should == `hostname`.strip.upcase
-      end
-
-      it "snake api retrieves the NetBIOS name of the local computer" do
-        get_computer_name.strip.should == `hostname`.strip.upcase
-      end
-    end # describe get_computer_name
-
-    describe "#get_user_name" do
-      spec{ use{ success = GetUserName(buf = buffer, pointer.write_long(buf.size)) }}
-      spec{ use{ username = get_user_name() }}
-
-      it "original api to retrieve the user name in a specified format. Additional information " do
-        username = `echo %USERNAME%`.strip
-        name_ptr = FFI::MemoryPointer.from_string(" " * 128)
-        size_ptr = FFI::MemoryPointer.new(:long).write_int(name_ptr.size)
-        success = GetUserName(name_ptr, size_ptr)
-        success.should_not == 0
-        name_ptr.read_string.strip.should == username
-      end
-
-      it "snake_case api to retrieve the user name in a specified format. Additional information " do
-        username = `echo %USERNAME%`.strip
-        get_user_name.strip.should == username
-      end
-    end # describe get_user_name
-
-  end
-end
+include WinTestApp
+include Win::System::Info
+
+describe Win::System::Info do
+  describe "#get_computer_name" do
+    spec { use { success = GetComputerName(buf = buffer, pointer.write_long(buf.size)) } }
+    spec { use { name = get_computer_name() } }
+
+    it "original api retrieves the NetBIOS name of the local computer " do
+      name_ptr = FFI::MemoryPointer.from_string(" " * 128)
+      size_ptr = FFI::MemoryPointer.new(:long).write_int(name_ptr.size)
+      success  = GetComputerName(name_ptr, size_ptr)
+      success.should_not == 0
+      name_ptr.read_string.should == `hostname`.strip.upcase
+    end
+
+    it "snake api retrieves the NetBIOS name of the local computer" do
+      get_computer_name.strip.should == `hostname`.strip.upcase
+    end
+  end # describe get_computer_name
+
+  describe "#get_user_name" do
+    spec { use { success = GetUserName(buf = buffer, pointer.write_long(buf.size)) } }
+    spec { use { username = get_user_name() } }
+
+    it "original api to retrieve the user name in a specified format. Additional information " do
+      username = ENV['USERNAME'].strip
+      name_ptr = FFI::MemoryPointer.from_string(" " * 128)
+      size_ptr = FFI::MemoryPointer.new(:long).write_int(name_ptr.size)
+      success  = GetUserName(name_ptr, size_ptr)
+      success.should_not == 0
+      name_ptr.read_string.strip.should == username
+    end
+
+    it "snake_case api to retrieve the user name in a specified format. Additional information " do
+      username = ENV['USERNAME'].strip
+      get_user_name.strip.should == username
+    end
+  end # describe get_user_name
+
+end

data/spec/win/system/version_spec.rb

@@ -1,169 +1,166 @@
-require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+require 'spec_helper'
 require 'win/system/version'
 
-module WinSystemInfoTest
-
-  include WinTestApp
-  include Win::System::Version
-
-  def should_be_correct_os(type= :info, object)
-    case type
-      when :info
-        object.should be_an OSVERSIONINFOEX
-        major = object[:dw_major_version]
-        minor = object[:dw_minor_version]
-        build = object[:dw_build_number]
-      when :version
-        object.should be_an Array
-        major = object[0]
-        minor = object[1]
-        build = object[2]
-    end
-    os_major, os_minor, os_build = os_version_numbers
-    major.should == os_major
-    minor.should == os_minor
-    build.should == os_build
+include WinTestApp
+include Win::System::Version
+
+def should_be_correct_os(type= :info, object)
+  case type
+    when :info
+      object.should be_an OSVERSIONINFOEX
+      major = object[:dw_major_version]
+      minor = object[:dw_minor_version]
+      build = object[:dw_build_number]
+    when :version
+      object.should be_an Array
+      major = object[0]
+      minor = object[1]
+      build = object[2]
   end
-
-  def os_version_numbers
-    os_ver = os.match(/Version ([\d]{1,2})\.([\d]{1,2})\.([\d]{1,5})/  )
-    os_ver.captures.map(&:to_i)
+  os_major, os_minor, os_build = os_version_numbers
+  major.should == os_major
+  minor.should == os_minor
+  build.should == os_build
+end
+
+def os_version_numbers
+  os_ver = os.match(/Version ([\d]{1,2})\.([\d]{1,2})\.([\d]{1,5})/)
+  os_ver.captures.map(&:to_i)
+end
+
+describe Win::System::Version do
+  before(:each) do
+    @ver_info                           = OSVERSIONINFOEX.new
+    @ver_info[:dw_os_version_info_size] = @ver_info.size
   end
 
-  describe Win::System::Version do
-    before(:each) do
-      @ver_info = OSVERSIONINFOEX.new
-      @ver_info[:dw_os_version_info_size] = @ver_info.size
+  describe "#get_version" do
+    spec { use { success = GetVersion() } }
+    spec { use { version = get_version() } }
+
+    it "original api retrieves information about the current operating system (in a cryptic Integer)" do
+      GetVersion().should be_an Integer
+      GetVersion().should be > 0
     end
 
-    describe "#get_version" do
-      spec{ use{ success = GetVersion() }}
-      spec{ use{ version = get_version() }}
+    it "snake_case api returns an Array [major, minor, build] of OS version numbers" do
+      version = get_version()
+      version.should be_an Array
+      version.should have_exactly(3).numbers
+      should_be_correct_os :version, version
+    end
+  end # describe get_version
 
-      it "original api retrieves information about the current operating system (in a cryptic Integer)" do
-        GetVersion().should be_an Integer
-        GetVersion().should be > 0
-      end
+  describe "#get_version_ex" do
+    spec { use { success = GetVersionEx(@ver_info.to_ptr) } }
+    spec { use { ver_info = get_version_ex() } }
 
-      it "snake_case api returns an Array [major, minor, build] of OS version numbers" do
-        version = get_version()
-        version.should be_an Array
-        version.should have_exactly(3).numbers
-        should_be_correct_os :version, version
-      end
-    end # describe get_version
-
-    describe "#get_version_ex" do
-      spec{ use{ success = GetVersionEx(@ver_info.to_ptr) }}
-      spec{ use{ ver_info = get_version_ex() }}
+    it "original api returns success code (0/1) and fills supplied OSVERSIONINFOEX struct" do
+      GetVersionEx(@ver_info.to_ptr).should_not == 0
+      should_be_correct_os :info, @ver_info
+    end
 
-      it "original api returns success code (0/1) and fills supplied OSVERSIONINFOEX struct" do
-        GetVersionEx(@ver_info.to_ptr).should_not == 0
-        should_be_correct_os :info, @ver_info
-      end
+    it "snake_case api returns fills given OSVERSIONINFOEX struct and returns it" do
+      info = get_version_ex(@ver_info)
+      info.should == @ver_info
+      should_be_correct_os :info, info
+    end
 
-      it "snake_case api returns fills given OSVERSIONINFOEX struct and returns it" do
-        info = get_version_ex(@ver_info)
-        info.should == @ver_info
-        should_be_correct_os :info, info
-      end
+    it "snake_case api returns filled OSVERSIONINFOEX struct if no arg given" do
+      info = get_version_ex()
+      should_be_correct_os :info, info
+    end
+  end # describe get_version_ex
 
-      it "snake_case api returns filled OSVERSIONINFOEX struct if no arg given" do
-        info = get_version_ex()
-        should_be_correct_os :info, info
-      end
-    end # describe get_version_ex
+  describe "#ver_set_condition_mask" do
+    spec { use { mask = VerSetConditionMask(dwl_condition_mask=0, dw_type_bit_mask=0, dw_condition_mask=0) } }
+    spec { use { mask = ver_set_condition_mask(dwl_condition_mask=0, dw_type_bit_mask=0, dw_condition_mask=0) } }
 
-    describe "#ver_set_condition_mask" do
-      spec{ use{ mask = VerSetConditionMask(dwl_condition_mask=0, dw_type_bit_mask=0, dw_condition_mask=0) }}
-      spec{ use{ mask = ver_set_condition_mask(dwl_condition_mask=0, dw_type_bit_mask=0, dw_condition_mask=0) }}
+    it "is used to build the dwlConditionMask parameter for the VerifyVersionInfo function" do
+      mask1 = VerSetConditionMask(0, VER_MAJORVERSION, VER_EQUAL)
+      mask2 = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
+      mask1.should be_an Integer
+      mask1.should == mask2
+    end
 
-      it "is used to build the dwlConditionMask parameter for the VerifyVersionInfo function" do
-        mask1 = VerSetConditionMask(0, VER_MAJORVERSION, VER_EQUAL)
-        mask2 = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
-        mask1.should be_an Integer
+    context 'snake api accepts both single type/condition pair or an Array of type/condition pairs' do
+      it 'with single condition' do
+        mask1 = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
+        mask2 = ver_set_condition_mask(VER_MAJORVERSION, VER_EQUAL)
+        mask3 = ver_set_condition_mask([VER_MAJORVERSION, VER_EQUAL])
+        mask4 = ver_set_condition_mask([[VER_MAJORVERSION, VER_EQUAL]])
         mask1.should == mask2
+        mask1.should == mask4
+        mask1.should == mask3
       end
-
-      context 'snake api accepts both single type/condition pair or an Array of type/condition pairs' do
-        it 'with single condition' do
-          mask1 = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
-          mask2 = ver_set_condition_mask(VER_MAJORVERSION, VER_EQUAL)
-          mask3 = ver_set_condition_mask([VER_MAJORVERSION, VER_EQUAL])
-          mask4 = ver_set_condition_mask([[VER_MAJORVERSION, VER_EQUAL]])
-          mask1.should == mask2
-          mask1.should == mask4
-          mask1.should == mask3
-        end
-        it 'with multiple conditions' do
-          mask1 = ver_set_condition_mask(0, [[VER_MAJORVERSION, VER_EQUAL], [VER_MINORVERSION, VER_EQUAL]])
-          mask2 = ver_set_condition_mask([[VER_MAJORVERSION, VER_EQUAL], [VER_MINORVERSION, VER_EQUAL]])
-          mask3 = ver_set_condition_mask(0, [VER_MAJORVERSION, VER_EQUAL, VER_MINORVERSION, VER_EQUAL])
-          mask4 = ver_set_condition_mask([VER_MAJORVERSION, VER_EQUAL, VER_MINORVERSION, VER_EQUAL])
-          mask1.should == mask2
-          mask1.should == mask3
-          mask1.should == mask4
-        end
-      end
-    end # describe ver_set_condition_mask
-
-    describe "#verify_version_info" do
-      before(:each) do
-        # Preparing condition mask
-        @mask_equal = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
-        @mask_equal = ver_set_condition_mask(@mask_equal, VER_MINORVERSION, VER_EQUAL)
-
-        # Preparing expected version info
-        @expected = OSVERSIONINFOEX.new
-        @expected[:dw_os_version_info_size] = @expected.size
-        @expected[:dw_major_version] = os_version_numbers[0]
-        @expected[:dw_minor_version] = os_version_numbers[1]
+      it 'with multiple conditions' do
+        mask1 = ver_set_condition_mask(0, [[VER_MAJORVERSION, VER_EQUAL], [VER_MINORVERSION, VER_EQUAL]])
+        mask2 = ver_set_condition_mask([[VER_MAJORVERSION, VER_EQUAL], [VER_MINORVERSION, VER_EQUAL]])
+        mask3 = ver_set_condition_mask(0, [VER_MAJORVERSION, VER_EQUAL, VER_MINORVERSION, VER_EQUAL])
+        mask4 = ver_set_condition_mask([VER_MAJORVERSION, VER_EQUAL, VER_MINORVERSION, VER_EQUAL])
+        mask1.should == mask2
+        mask1.should == mask3
+        mask1.should == mask4
       end
+    end
+  end # describe ver_set_condition_mask
 
-      spec{ use{ verified = VerifyVersionInfo(@expected.to_ptr, dw_type_mask=VER_MAJORVERSION, dwl_condition_mask=@mask_equal) }}
-      spec{ use{ verified = verify_version_info(@expected.to_ptr, dw_type_mask=VER_MAJORVERSION, dwl_condition_mask=@mask_equal) }}
+  describe "#verify_version_info" do
+    before(:each) do
+      # Preparing condition mask
+      @mask_equal                         = ver_set_condition_mask(0, VER_MAJORVERSION, VER_EQUAL)
+      @mask_equal                         = ver_set_condition_mask(@mask_equal, VER_MINORVERSION, VER_EQUAL)
+
+      # Preparing expected version info
+      @expected                           = OSVERSIONINFOEX.new
+      @expected[:dw_os_version_info_size] = @expected.size
+      @expected[:dw_major_version]        = os_version_numbers[0]
+      @expected[:dw_minor_version]        = os_version_numbers[1]
+    end
 
-      it "returns 1/true if current OS features are in line with expected features " do
-        VerifyVersionInfo(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == 1
-        verify_version_info(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == true
-      end
+    spec { use { verified = VerifyVersionInfo(@expected.to_ptr, dw_type_mask=VER_MAJORVERSION, dwl_condition_mask=@mask_equal) } }
+    spec { use { verified = verify_version_info(@expected.to_ptr, dw_type_mask=VER_MAJORVERSION, dwl_condition_mask=@mask_equal) } }
 
-      it "returns 0/false if current OS features are different from expected" do
-        @expected[:dw_major_version] = 1
-        VerifyVersionInfo(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == 0
-        verify_version_info(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == false
-      end
-    end # describe verify_version_info
-
-    describe "convenience version checking methods" do
-      it 'returns true for current OS type, false otherwise' do
-        case
-          when os_2000?
-            windows_2000?.should == true
-            windows_xp?.should == false
-            windows_2003?.should == false
-            windows_vista?.should == false
-            windows_7?.should == false
-          when os_xp?
-            windows_2000?.should == false
-            windows_xp?.should == true
-            windows_2003?.should == false
-            windows_vista?.should == false
-            windows_7?.should == false
-          when os_vista?
-            windows_2000?.should == false
-            windows_xp?.should == false
-            windows_2003?.should == false
-            windows_vista?.should == true
-            windows_7?.should == false
-          when os_7?
-            windows_2000?.should == false
-            windows_xp?.should == false
-            windows_2003?.should == false
-            windows_vista?.should == false
-            windows_7?.should == true
-        end
+    it "returns 1/true if current OS features are in line with expected features " do
+      VerifyVersionInfo(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == 1
+      verify_version_info(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == true
+    end
+
+    it "returns 0/false if current OS features are different from expected" do
+      @expected[:dw_major_version] = 1
+      VerifyVersionInfo(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == 0
+      verify_version_info(@expected.to_ptr, VER_MAJORVERSION | VER_MINORVERSION, @mask_equal).should == false
+    end
+  end # describe verify_version_info
+
+  describe "convenience version checking methods" do
+    it 'returns true for current OS type, false otherwise' do
+      case
+        when os_2000?
+          windows_2000?.should == true
+          windows_xp?.should == false
+          windows_2003?.should == false
+          windows_vista?.should == false
+          windows_7?.should == false
+        when os_xp?
+          windows_2000?.should == false
+          windows_xp?.should == true
+          windows_2003?.should == false
+          windows_vista?.should == false
+          windows_7?.should == false
+        when os_vista?
+          windows_2000?.should == false
+          windows_xp?.should == false
+          windows_2003?.should == false
+          windows_vista?.should == true
+          windows_7?.should == false
+        when os_7?
+          windows_2000?.should == false
+          windows_xp?.should == false
+          windows_2003?.should == false
+          windows_vista?.should == false
+          windows_7?.should == true
       end
     end
   end
-end
+end

data/spec/win/time_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+require 'win/time'
+
+include Win::Time
+
+describe Win::Time do
+
+  describe "#query_performance_frequency" do
+    spec { use { success = QueryPerformanceFrequency(freq = FFI::MemoryPointer.new(:int64)) } }
+    spec { use { freq = query_performance_frequency() } }
+
+    it "original api returns non-zero and high-res performance counter frequency it a pointer" do
+      QueryPerformanceFrequency(freq = FFI::MemoryPointer.new(:int64)).should be > 0
+      freq.get_int64(0).should be > 500000
+    end
+
+    it "snake_case api returns high-res performance counter frequency or nil if counter not available. " do
+      query_performance_frequency().should be > 500000
+    end
+
+  end # describe query_performance_frequency
+
+  describe "#query_performance_counter" do
+    spec { use { success = QueryPerformanceCounter(count = FFI::MemoryPointer.new(:int64)) } }
+    spec { use { success = query_performance_counter() } }
+
+    it "original api succeeds, the return value is nonzero, counter value returned at given pointer." do
+      QueryPerformanceCounter(count = FFI::MemoryPointer.new(:int64)).should be > 0
+      count.get_int64(0).should be > 500000000000
+    end
+
+    it "snake_case api succeeds, the return value is counter value (in counts)" do
+      count = query_performance_counter()
+      count.should be > 500000000000
+    end
+
+    it "successive function calls return (slightly) incremented counter values" do
+      100.times do
+        count1 = query_performance_counter()
+        count2 = query_performance_counter()
+        diff = count2 - count1
+        diff.should be > 10
+        diff.should be < 50000 # GC calls make it hard to guarantee uniform measurements?
+      end
+    end
+  end # describe query_performance_counter
+
+end # describe Win::Time