win_gui 0.1.0

data/lib/win_gui/window.rb

@@ -0,0 +1,70 @@
+module WinGui
+  class Window
+    include WinGui
+    extend WinGui
+    
+    attr_reader :handle
+    
+    # find top level window by title, return wrapped Window object
+    def self.top_level(title, seconds=3)
+      @handle = timeout(seconds) do
+        sleep WG_SLEEP_DELAY while (h = find_window nil, title) == nil; h
+      end
+      Window.new @handle
+    end  
+    
+    def initialize(handle)
+      @handle = handle
+    end
+   
+    # find child window (control) by title, window class, or control ID:
+    def child(id)
+      result = case id
+        when String
+        by_title = find_window_ex @handle, 0, nil, id.gsub('_' , '&' )
+        by_class = find_window_ex @handle, 0, id, nil
+        by_title ? by_title : by_class
+        when Fixnum
+        get_dlg_item @handle, id
+        when nil
+        find_window_ex @handle, 0, nil, nil
+      else
+        nil
+      end
+      raise "Control '#{id}' not found" unless result
+      Window.new result
+    end
+
+    def children
+      enum_child_windows(@handle,'Msg').map{|child_handle| Window.new child_handle}
+    end
+
+    # emulate click of the control identified by id
+    def click(id)
+      h = child(id).handle
+      rectangle = [0, 0, 0, 0].pack 'LLLL'
+      get_window_rect h, rectangle
+      left, top, right, bottom = rectangle.unpack 'LLLL'
+      center = [(left + right) / 2, (top + bottom) / 2]
+      set_cursor_pos *center
+      mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
+      mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
+    end
+    
+    def close
+      post_message @handle, WM_SYSCOMMAND, SC_CLOSE, 0
+    end
+    
+    def wait_for_close
+      timeout(WG_CLOSE_TIMEOUT) do
+        sleep WG_SLEEP_DELAY while window_visible?(@handle) 
+      end
+    end
+    
+    def text
+      buffer = "\x0" * 2048
+      length = send_message @handle, WM_GETTEXT, buffer.length, buffer
+      length == 0 ? '' : buffer[0..length - 1]
+    end
+  end
+end

data/lib/win_gui.rb

@@ -0,0 +1,3 @@
+win_gui_dir = File.join(File.dirname(__FILE__),"win_gui" )
+$LOAD_PATH.unshift win_gui_dir unless $LOAD_PATH.include?(win_gui_dir)
+require 'win_gui'

data/spec/note/win/locknote_spec.rb

@@ -0,0 +1,7 @@
+require File.join(File.dirname(__FILE__), ".." , ".." ,"spec_helper" )
+
+module GuiTest
+ describe LockNote do
+   
+ end
+end

data/spec/spec.opts

@@ -0,0 +1,2 @@
+--color
+--format nested

data/spec/spec_helper.rb

@@ -0,0 +1,100 @@
+lib_dir = File.join(File.dirname(__FILE__),".." ,"lib" )
+$LOAD_PATH.unshift lib_dir unless $LOAD_PATH.include?(lib_dir)
+require 'spec'
+require 'win_gui'
+require 'note'
+                                        
+# Customize RSpec with my own extensions
+module SpecMacros
+
+  # wrapper for it method that extracts description from example source code, such as:
+  # spec { use{    function(arg1 = 4, arg2 = 'string')  }}
+  def spec &block
+    it description_from(*block.source_location), &block
+  end
+
+  # reads description line from source file and drops external brackets (like its{}, use{}
+  def description_from(file, line)
+      File.open(file) do |f|
+        f.lines.to_a[line-1].gsub( /(spec.*?{)|(use.*?{)|}/, '' ).strip
+      end
+  end
+end
+
+Spec::Runner.configure { |config| config.extend(SpecMacros) }
+
+module GuiTest
+  include WinGui
+
+  # Test related Constants:
+  TEST_TIMEOUT = 0.001
+  TEST_KEY_DELAY = 0.001
+  TEST_SLEEP_DELAY = 0.01
+  TEST_APP_PATH = File.join(File.dirname(__FILE__), "test_apps/locknote/LockNote.exe" )
+  TEST_APP_START = 'start "" "' + TEST_APP_PATH + '"'
+  TEST_WIN_TITLE = 'LockNote - Steganos LockNote'
+  TEST_WIN_CLASS = 'ATL:00434098'
+  TEST_WIN_RECT = [710, 400, 1210, 800]
+  TEST_MAX_RECT = [-4, -4, 1924, 1204]  # on my 1920x1200 display
+  TEST_MIN_RECT = [-32000, -32000, -31840, -31976]
+  TEST_TEXTAREA_CLASS = 'ATL:00434310'
+  TEST_IMPOSSIBLE = 'Impossible'
+  TEST_ERROR_CONVERSION = /Can.t convert/
+
+  # Helper methods:
+  def use
+    lambda {yield}.should_not raise_error
+  end
+  
+  def any_handle
+    find_window(nil, nil)
+  end
+
+  def any_block
+    lambda {|*args| args}
+  end
+  
+  def hide_method(name) # hide original method if it is defined
+    WinGui.module_eval do
+      if method_defined? name.to_sym
+        alias_method "orig_#{name.to_s}".to_sym, name.to_sym
+        remove_method name.to_sym
+      end
+    end
+  end
+  
+  def restore_method(name) # restore original method if it was hidden
+    WinGui.module_eval do
+      temp = "orig_#{name.to_s}".to_sym
+      if method_defined? temp
+        alias_method name.to_sym, temp
+        remove_method temp
+      end
+    end
+  end
+  
+  def launch_test_app
+    system TEST_APP_START
+    sleep TEST_SLEEP_DELAY until (handle = find_window(nil, TEST_WIN_TITLE))
+    @launched_test_app = Window.new handle
+  end
+  
+  def close_test_app(app = @launched_test_app)
+    while app and app.respond_to? :handle and find_window(nil, TEST_WIN_TITLE)
+      post_message(app.handle, WM_SYSCOMMAND, SC_CLOSE, 0)
+      sleep TEST_SLEEP_DELAY
+    end  
+    @launched_test_app = nil
+  end
+  
+  # Creates test app object and yields it back to the block
+  def test_app
+    app = launch_test_app
+    def app.textarea #define singleton method retrieving app's text area
+      Window.new find_window_ex(self.handle, 0, TEST_TEXTAREA_CLASS, nil)
+    end
+    yield app
+    close_test_app 
+  end
+  
+end

data/spec/win_gui/string_extensions_spec.rb

@@ -0,0 +1,61 @@
+require File.join(File.dirname(__FILE__), ".." , "spec_helper" )
+
+module GuiTest
+
+  describe String do
+    context '#snake_case' do
+      it 'transforms CamelCase strings' do
+        'GetCharWidth32'.snake_case.should == 'get_char_width_32'
+      end
+      
+      it 'leaves snake_case strings intact' do
+        'keybd_event'.snake_case.should == 'keybd_event'
+      end
+    end
+
+    context '#to_w' do
+      it 'transcodes string to utf-16LE' do
+        'GetCharWidth32'.to_w.encoding.name.should == 'UTF-16LE'
+      end
+      
+      it 'ensures that encoded string is null-terminated' do
+        'GetCharWidth32'.to_w.bytes.to_a[-2..-1].should == [0, 0]
+      end
+    end
+    
+    context '#to_vkeys' do
+      it 'transforms number char into [equivalent key code]' do
+       ('0'..'9').each {|char| char.to_vkeys.should == char.unpack('C')}
+      end
+      
+      it 'transforms uppercase letters into [shift, equivalent key code]' do
+       ('A'..'Z').each {|char| char.to_vkeys.should == [VK_SHIFT, *char.unpack('C')]}
+      end
+      
+      it 'transforms lowercase letters into [(upcase) key code]' do
+       ('a'..'z').each {|char| char.to_vkeys.should == char.upcase.unpack('C')}
+      end
+      
+      it 'transforms space into [equivalent key code]' do 
+        " ".to_vkeys.should == " ".unpack('C')
+      end
+      
+      it 'raises error if char is not implemented punctuation' do
+       ('!'..'/').each {|char| lambda {char.to_vkeys}.should raise_error TEST_ERROR_CONVERSION }
+       (':'..'@').each {|char| lambda {char.to_vkeys}.should raise_error TEST_ERROR_CONVERSION }
+       ('['..'`').each {|char| lambda {char.to_vkeys}.should raise_error TEST_ERROR_CONVERSION }
+       ('{'..'~').each {|char| lambda {char.to_vkeys}.should raise_error TEST_ERROR_CONVERSION }
+      end
+      
+      it 'raises error if char is non-printable or non-ascii' do
+        lambda {1.chr.to_vkeys}.should raise_error TEST_ERROR_CONVERSION
+        lambda {230.chr.to_vkeys}.should raise_error TEST_ERROR_CONVERSION
+      end
+      
+      it 'raises error if string is multi-char' do
+        lambda {'hello'.to_vkeys}.should raise_error TEST_ERROR_CONVERSION
+        lambda {'23'.to_vkeys}.should raise_error TEST_ERROR_CONVERSION
+      end  
+    end
+  end
+end