bewildr 0.1

data/LICENSE

@@ -0,0 +1,28 @@
+Copyright (c) 2010, Nathaniel Ritmeyer
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice,
+this list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright
+notice, this list of conditions and the following disclaimer in the
+documentation and/or other materials provided with the distribution.
+
+3. Neither the name Nathaniel Ritmeyer nor the names of contributors to
+this software may be used to endorse or promote products derived from this
+software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
+IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

data/README

@@ -0,0 +1,8 @@
+== bewildr
+Test WPF apps in (iron) ruby!
+
+This is pre-alpha software - it has a way to go before being useable...
+
+Documentation is on the way...
+
+Nat Ritmeyer

data/Rakefile

@@ -0,0 +1,52 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/testtask'
+require 'spec/rake/spectask'
+require 'cucumber'
+require 'cucumber/rake/task'
+
+spec = Gem::Specification.new do |s|
+  s.name = 'bewildr'
+  s.version = '0.1'
+  s.has_rdoc = true
+  s.extra_rdoc_files = ['README', 'LICENSE']
+  s.summary = 'Test your WPF apps with (iron) ruby!'
+  s.description = s.summary
+  s.author = 'Nat Ritmeyer'
+  s.email = 'nat@natontesting.com'
+  s.homepage = 'http://github.com/natritmeyer/bewildr'
+  s.files = %w(LICENSE README Rakefile) + Dir.glob("{bin,lib}/**/*")
+  s.require_path = "lib"
+  s.bindir = "bin"
+end
+
+Rake::GemPackageTask.new(spec) do |p|
+  p.gem_spec = spec
+  p.need_tar = true
+  p.need_zip = true
+end
+
+Rake::RDocTask.new do |rdoc|
+  files =['README', 'LICENSE', 'lib/**/*.rb']
+  rdoc.rdoc_files.add(files)
+  rdoc.main = "README" # page to start on
+  rdoc.title = "bewildr Docs"
+  rdoc.rdoc_dir = 'doc/rdoc' # rdoc output folder
+  rdoc.options << '--line-numbers'
+end
+
+Rake::TestTask.new do |t|
+  t.test_files = FileList['test/**/*.rb']
+end
+
+Spec::Rake::SpecTask.new do |t|
+  t.spec_files = FileList['spec/**/*.rb']
+  t.libs << Dir["lib"]
+end
+
+Cucumber::Rake::Task.new(:features) do |t|
+  t.cucumber_opts = "features --format pretty --no-color"
+end

data/lib/bewildr.rb

@@ -0,0 +1,50 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+#don't load bewildr unless we're using ironruby
+#get rid of the following line and make sure that the gemspec sets it to be
+#iron ruby only: http://www.ironruby.net/documentation/real_ruby_applications/rubygems
+
+raise LoadError, "Bewildr only works under IronRuby" unless RUBY_ENGINE == "ironruby"
+
+#require the UI Automation dlls
+load_assembly 'UIAutomationClient, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'
+load_assembly 'UIAutomationTypes, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'
+load_assembly 'System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
+
+#require BewildrClickr - stopgap until the ffi gem works under ironruby
+require File.join(File.expand_path(File.dirname(__FILE__)), "bewildr", "ext", "BewildrClickr.dll")
+CLICKR = Bewildr::Clickr::Clickr.new
+
+#load plain old ruby libraries
+require 'timeout'
+
+#require bewildr classes
+require 'bewildr/exceptions'
+require 'bewildr/bewildr_helpers'
+require 'bewildr/control_type'
+require 'bewildr/finder'
+require 'bewildr/application'
+require 'bewildr/windows'
+require 'bewildr/element'
+
+require 'bewildr/control_patterns/window_pattern'
+require 'bewildr/control_patterns/invoke_pattern'
+require 'bewildr/control_patterns/value_pattern'
+require 'bewildr/control_patterns/toggle_pattern'
+require 'bewildr/control_patterns/selection_pattern'
+require 'bewildr/control_patterns/expand_collapse_pattern'
+require 'bewildr/control_patterns/selection_item_pattern'
+require 'bewildr/control_patterns/range_value_pattern'
+require 'bewildr/control_patterns/grid_pattern'
+require 'bewildr/control_patterns/table_pattern'
+
+require 'bewildr/control_type_additions/text_additions'
+require 'bewildr/control_type_additions/combo_box_additions'
+require 'bewildr/control_type_additions/window_additions'
+require 'bewildr/control_type_additions/menu_additions'
+require 'bewildr/control_type_additions/menu_item_additions'
+require 'bewildr/control_type_additions/tab_additions'
+require 'bewildr/control_type_additions/list_additions'
+require 'bewildr/control_type_additions/tree_additions'
+require 'bewildr/control_type_additions/tree_item_additions'
+require 'bewildr/control_type_additions/data_grid_additions'

data/lib/bewildr/application.rb

@@ -0,0 +1,95 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class Application
+    def initialize(proc)
+      @proc = proc
+      @proc.wait_for_input_idle(10)
+      @proc_id = proc.id
+    end
+    private :initialize
+
+    def kill
+      @proc.kill
+      Timeout::timeout(5) do
+        sleep 0.1 until @proc.has_exited
+      end
+    end
+
+    def running?
+      @proc.nil? ? false : !@proc.has_exited
+    end
+
+    def wait_for_termination
+      Timeout::timeout(30) do
+        sleep 0.2 while running?
+      end
+    end
+
+    def get_windows
+      Bewildr::Windows.windows_by_process_id(@proc_id)
+    end
+
+    def get_window_by_name(input)
+      case input
+      when String then return get_windows.select{|window| window.name.strip == input.strip}.first
+      when Regexp then return get_windows.select{|window| input.match(window.name.strip).nil? == false}.first
+      else
+        raise ArgumentError, "input not a string or regexp but a #{input.class}"
+      end
+    end
+    alias :get_window :get_window_by_name
+
+    def wait_for_window(input, wait_time = 30)
+      begin
+      Timeout::timeout(wait_time) do
+        begin
+          my_window = get_window(input)
+          raise if my_window.nil?
+          return my_window
+        rescue
+          sleep 0.2
+          retry
+        end
+      end
+      rescue Timeout::Error
+        raise ElementDoesntExist
+      end
+    end
+
+    def window_count
+      get_windows.size
+    end
+
+    #takes name or full path of exe to start
+    def self.start(process_name)
+      Bewildr::Application.new(System::Diagnostics::Process.start(process_name))
+    end
+
+    def self.start_with_settings(settings_hash)
+      #TODO
+    end
+
+    def self.attach_to_process_name(process_name)
+      Bewildr::Application.new(System::Diagnostics::Process.get_processes_by_name(process_name).first)
+    end
+
+    def self.attach_to_process(process)
+      Bewildr::Application.new(process)
+    end
+
+    def self.start_app_and_wait_for_window(path, window_name)
+      app = Bewildr::Application.start(path)
+      window = app.wait_for_window(window_name)
+      return app, window
+    end
+
+    def self.kill_all_processes_with_name(input)
+      System::Diagnostics::Process.get_processes_by_name(input).each {|p| p.kill}
+    end
+
+    def self.processes_with_name(input)
+      System::Diagnostics::Process.get_processes_by_name(input).collect {|p| Bewildr::Application.attach_to_process(p) }
+    end
+  end
+end

data/lib/bewildr/bewildr_helpers.rb

@@ -0,0 +1,17 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module BewildrHelpers
+    def r_array_to_cs_array_of_strings(args)
+      System::Array[System::String].new(args.map {|arg| arg.to_s.to_clr_string})
+    end
+
+    def r_array_to_cs_array_of_conditions(args)
+      System::Array[System::Windows::Automation::Condition].new(args)
+    end
+
+    def r_string_to_c_string(r_string)
+      System::String.new(r_string)
+    end
+  end
+end

data/lib/bewildr/control_patterns/expand_collapse_pattern.rb

@@ -0,0 +1,24 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module ExpandCollapsePattern
+      def expand
+        @automation_element.get_current_pattern(System::Windows::Automation::ExpandCollapsePattern.pattern).expand unless expand_state == :expanded or expand_state == :leaf
+      end
+
+      def collapse
+        @automation_element.get_current_pattern(System::Windows::Automation::ExpandCollapsePattern.pattern).collapse unless expand_state == :collapsed or expand_state == :leaf
+      end
+
+      def expand_state
+        case @automation_element.get_current_pattern(System::Windows::Automation::ExpandCollapsePattern.pattern).current.expand_collapse_state
+        when System::Windows::Automation::ExpandCollapseState.collapsed           then return :collapsed
+        when System::Windows::Automation::ExpandCollapseState.expanded            then return :expanded
+        when System::Windows::Automation::ExpandCollapseState.partially_expanded  then return :partially_expanded
+        when System::Windows::Automation::ExpandCollapseState.leaf_node           then return :leaf
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/grid_pattern.rb

@@ -0,0 +1,15 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module GridPattern
+      def row_count
+        @automation_element.get_current_pattern(System::Windows::Automation::GridPattern.pattern).current.row_count
+      end
+
+      def column_count
+        @automation_element.get_current_pattern(System::Windows::Automation::GridPattern.pattern).current.column_count
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/invoke_pattern.rb

@@ -0,0 +1,11 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module InvokePattern
+      def click
+         @automation_element.get_current_pattern(System::Windows::Automation::InvokePattern.pattern).invoke
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/range_value_pattern.rb

@@ -0,0 +1,19 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module RangeValuePattern
+      def value
+        @automation_element.get_current_pattern(System::Windows::Automation::RangeValuePattern.pattern).current.value
+      end
+
+      def maximum
+        @automation_element.get_current_pattern(System::Windows::Automation::RangeValuePattern.pattern).current.maximum
+      end
+
+      def minimum
+        @automation_element.get_current_pattern(System::Windows::Automation::RangeValuePattern.pattern).current.minimum
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/selection_item_pattern.rb

@@ -0,0 +1,24 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+module Bewildr
+  module ControlPatterns
+    module SelectionItemPattern
+      def select
+        @automation_element.get_current_pattern(System::Windows::Automation::SelectionItemPattern.pattern).select
+      end
+
+      def is_selected?
+        @automation_element.get_current_pattern(System::Windows::Automation::SelectionItemPattern.pattern).current.is_selected
+      end
+
+      def selected?
+        is_selected?
+      end
+
+      def unselected?
+        !is_selected?
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/selection_pattern.rb

@@ -0,0 +1,28 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module SelectionPattern
+      def get_selection
+        my_selected_items = @automation_element.get_current_pattern(System::Windows::Automation::SelectionPattern.pattern).current.get_selection
+
+        c_array_list = System::Collections::ArrayList.new(my_selected_items)
+        item_array = c_array_list.to_array.to_a
+
+        return [] if item_array.size == 0
+        item_array.to_a.collect {|item| Bewildr::Element.new(item)}
+      end
+
+      def can_select_multiple?
+        @automation_element.get_current_pattern(System::Windows::Automation::SelectionPattern.pattern).current.can_select_multiple
+      end
+
+      def selected
+        case can_select_multiple?
+        when true then get_selection
+        when false then get_selection.first
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/table_pattern.rb

@@ -0,0 +1,17 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module TablePattern
+      def column_headers
+        @automation_element.get_current_pattern(System::Windows::Automation::TablePattern.pattern).current.get_column_headers.collect do |header|
+          Bewildr::Element.new(header)
+        end
+      end
+
+      def column_header_names
+        column_headers.collect {|header| header.name }
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/toggle_pattern.rb

@@ -0,0 +1,70 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module TogglePattern
+
+      def self.extended(base)
+        base.instance_eval do
+          case @control_type
+          when :check_box
+            def check
+              set_state_to :on
+            end
+
+            def uncheck
+              set_state_to :off
+            end
+
+            def checked?
+              state == :on
+            end
+
+            def unchecked?
+              state == :off
+            end
+
+            def checked_state
+              state
+            end
+          when :button
+            def toggle(value)
+              set_state_to(value)
+            end
+
+            def toggle_state
+              state
+            end
+
+            def toggle
+              flip_state
+            end
+          end
+        end
+      end
+
+      private
+
+      def set_state_to(value)
+        raise ElementNotEnabled unless enabled?
+        case value
+        when :on  then flip_state while state != :on
+        when :off then flip_state while state != :off
+        else raise ArgumentError, "Didn't receive :on or :off"
+        end
+      end
+
+      def state
+        case @automation_element.get_current_pattern(System::Windows::Automation::TogglePattern.pattern).current.toggle_state
+        when System::Windows::Automation::ToggleState.Off then return :off
+        when System::Windows::Automation::ToggleState.On then return :on
+        when System::Windows::Automation::ToggleState.Indeterminate then return :indeterminate
+        end
+      end
+
+      def flip_state
+        @automation_element.get_current_pattern(System::Windows::Automation::TogglePattern.pattern).toggle
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/value_pattern.rb

@@ -0,0 +1,20 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module ValuePattern
+      def is_password_field?
+        @automation_element.current.class_name.to_s == "PasswordBox" ? true : false
+      end
+
+      def text
+        raise PasswordFieldReadAttempt, "You can't get the text of a password field" if is_password_field?
+        @automation_element.get_current_pattern(System::Windows::Automation::ValuePattern.pattern).current.value.to_s
+      end
+
+      def text=(input)
+        @automation_element.get_current_pattern(System::Windows::Automation::ValuePattern.pattern).set_value(input)
+      end
+    end
+  end
+end

data/lib/bewildr/control_patterns/window_pattern.rb

@@ -0,0 +1,31 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlPatterns
+    module WindowPattern
+      def close
+        @automation_element.get_current_pattern(System::Windows::Automation::WindowPattern.pattern).close
+      end
+
+      def minimize
+        @automation_element.get_current_pattern(System::Windows::Automation::WindowPattern.pattern).set_window_visual_state(System::Windows::Automation::WindowVisualState.minimized)
+      end
+
+      def maximize
+        @automation_element.get_current_pattern(System::Windows::Automation::WindowPattern.pattern).set_window_visual_state(System::Windows::Automation::WindowVisualState.maximized)
+      end
+
+      def restore
+        @automation_element.get_current_pattern(System::Windows::Automation::WindowPattern.pattern).set_window_visual_state(System::Windows::Automation::WindowVisualState.normal)
+      end
+
+      def visual_state
+        case @automation_element.get_current_pattern(System::Windows::Automation::WindowPattern.pattern).current.window_visual_state
+        when System::Windows::Automation::WindowVisualState.maximized then return :maximized
+        when System::Windows::Automation::WindowVisualState.minimized then return :minimized
+        when System::Windows::Automation::WindowVisualState.normal    then return :normal
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type.rb

@@ -0,0 +1,59 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class ControlType
+    class << self
+      def symbol_for_enum(input_control_type_enum)
+        raise "Unknown control type: #{input_control_type_enum}" unless @@control_type_map.value?(input_control_type_enum)
+        @@control_type_map.index(input_control_type_enum)
+      end
+
+      def class_for_symbol(input_symbol)
+        raise "Unknown control type: #{input_symbol}" unless @@control_type_map.key?(input_symbol)
+        @@control_type_map[input_symbol]
+      end
+    end
+
+    @@control_type_map = {
+      :button =>          System::Windows::Automation::ControlType.Button,
+      :calendar =>        System::Windows::Automation::ControlType.Calendar,
+      :check_box =>       System::Windows::Automation::ControlType.CheckBox,
+      :combo_box =>       System::Windows::Automation::ControlType.ComboBox,
+      :custom =>          System::Windows::Automation::ControlType.Custom,
+      :data_grid =>       System::Windows::Automation::ControlType.DataGrid,
+      :data_item =>       System::Windows::Automation::ControlType.DataItem,
+      :document =>        System::Windows::Automation::ControlType.Document,
+      :edit =>            System::Windows::Automation::ControlType.Edit,
+      :group =>           System::Windows::Automation::ControlType.Group,
+      :header =>          System::Windows::Automation::ControlType.Header,
+      :header_item =>     System::Windows::Automation::ControlType.HeaderItem,
+      :hyperlink =>       System::Windows::Automation::ControlType.Hyperlink,
+      :image =>           System::Windows::Automation::ControlType.Image,
+      :list =>            System::Windows::Automation::ControlType.List,
+      :list_item =>       System::Windows::Automation::ControlType.ListItem,
+      :menu =>            System::Windows::Automation::ControlType.Menu,
+      :menu_bar =>        System::Windows::Automation::ControlType.MenuBar,
+      :menu_item =>       System::Windows::Automation::ControlType.MenuItem,
+      :pane =>            System::Windows::Automation::ControlType.Pane,
+      :progress_bar =>    System::Windows::Automation::ControlType.ProgressBar,
+      :radio_button =>    System::Windows::Automation::ControlType.RadioButton,
+      :scroll_bar =>      System::Windows::Automation::ControlType.ScrollBar,
+      :seperator =>       System::Windows::Automation::ControlType.Separator,
+      :slider =>          System::Windows::Automation::ControlType.Slider,
+      :spinner =>         System::Windows::Automation::ControlType.Spinner,
+      :split_button =>    System::Windows::Automation::ControlType.SplitButton,
+      :status_bar =>      System::Windows::Automation::ControlType.StatusBar,
+      :tab =>             System::Windows::Automation::ControlType.Tab,
+      :tab_item =>        System::Windows::Automation::ControlType.TabItem,
+      :table =>           System::Windows::Automation::ControlType.Table,
+      :text =>            System::Windows::Automation::ControlType.Text,
+      :thumb =>           System::Windows::Automation::ControlType.Thumb,
+      :title_bar =>       System::Windows::Automation::ControlType.TitleBar,
+      :tool_bar =>        System::Windows::Automation::ControlType.ToolBar,
+      :tool_tip =>        System::Windows::Automation::ControlType.ToolTip,
+      :tree =>            System::Windows::Automation::ControlType.Tree,
+      :tree_item =>       System::Windows::Automation::ControlType.TreeItem,
+      :window =>          System::Windows::Automation::ControlType.Window
+    }
+  end
+end

data/lib/bewildr/control_type_additions/combo_box_additions.rb

@@ -0,0 +1,87 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module ComboBoxAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
+        base.extend Bewildr::ControlPatterns::SelectionPattern
+        base.extend Bewildr::ControlPatterns::SelectionItemPattern
+
+        base.instance_eval do
+          def items
+            my_list_items = list_items
+            return nil if my_list_items.nil?
+            my_list_items.collect {|item| item.name}
+          end
+
+          def list_items
+            begin
+              expand_combo
+              bewildr_list_items = get(:type => :list_item, :scope => :children)
+              bewildr_list_items.nil? ? nil : bewildr_list_items
+            ensure
+              collapse_combo
+            end
+          end
+
+          def count
+            my_items = items
+            my_items.nil? ? 0 : my_items.size
+          end
+
+          def select(input)
+            case input
+            when String then select_by_name(input)
+            when Integer then select_by_index(input)
+            else raise ArgumentError, "Select by name or by index"
+            end
+          end
+
+          def select_by_name(input)
+            begin
+              expand_combo
+              my_item = list_items.find {|item| item.name == input}
+              raise NoSuchItemInComboBox if my_item.nil?
+              my_item.select
+            ensure
+              collapse_combo
+            end
+          end
+
+          def select_by_index(input)
+            raise "Index must be 0 or greater" if input < 0
+            begin
+              expand_combo
+              my_item = list_items[input].select
+            ensure
+              collapse_combo
+            end
+          end
+
+          def selected
+            #TODO: find a way to not need to expand and collapse before getting the selected item
+            expand_combo
+            collapse_combo
+            #get_selection.first
+            get_selection.first.name
+          end
+
+          def expand_combo
+            expand
+            Timeout.timeout(30) do
+              sleep 0.2 until expand_state == :expanded
+            end
+          end
+
+          def collapse_combo
+            collapse
+            Timeout.timeout(30) do
+              sleep 0.2 until expand_state == :collapsed
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/data_grid_additions.rb

@@ -0,0 +1,16 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module DataGridAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::GridPattern
+        base.extend Bewildr::ControlPatterns::TablePattern
+
+        base.instance_eval do
+
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/list_additions.rb

@@ -0,0 +1,18 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module ListAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::SelectionPattern
+
+        base.instance_eval do
+          def select(input)
+            selectable_elements = get(:type => :list_item, :scope => :children)
+            selectable_elements.find {|selectable_element| selectable_element.name == input}.select
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/menu_additions.rb

@@ -0,0 +1,60 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module MenuAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
+        base.extend Bewildr::ControlPatterns::SelectionPattern
+        base.extend Bewildr::ControlPatterns::SelectionItemPattern
+
+        base.instance_eval do
+          def root_menu_items
+            get(:type =>:menu_item, :scope => :children)
+          end
+          
+          def select_menu(path)
+             menu_item(path).click
+          end
+
+          def select_node(path)
+            node(path).select
+          end
+
+          def menu_item(path)
+            current_menu_items = root_menu_items
+            matching_menu_item = nil
+            path.each_with_index do |target_menu_item, index|
+              case current_menu_items
+              when Array
+                matching_menu_item = current_menu_items.find {|node| node.name == target_menu_item} #TODO: make this work with regexes as well as strings...
+                raise ElementDoesntExist if matching_menu_item.nil?
+              when Bewildr::Element
+                if current_menu_items.name == target_menu_item #TODO: make this work with regexes as well as strings...
+                  matching_menu_item = current_menu_items
+                else
+                  raise ElementDoesntExist
+                end
+              end
+              raise ElementDoesntExist if matching_menu_item.nil?
+              if path.size != index + 1
+                matching_menu_item.expand
+                current_menu_items = matching_menu_item.sub_menus
+              end
+            end
+            return matching_menu_item
+          end
+
+          def contains_menu_item?(path)
+            begin
+              menu_item(path)
+              return true
+            rescue ElementDoesntExist => e
+              return false
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/menu_item_additions.rb

@@ -0,0 +1,18 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module MenuItemAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
+        base.extend Bewildr::ControlPatterns::InvokePattern
+
+        base.instance_eval do
+          def sub_menus
+            get(:type => :menu_item, :scope => :children)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/tab_additions.rb

@@ -0,0 +1,18 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module TabAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::SelectionPattern
+
+        base.instance_eval do
+          def select(input)
+            selectable_elements = get(:type => :tab_item, :scope => :children)
+            selectable_elements.find {|selectable_element| selectable_element.name == input}.select
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/text_additions.rb

@@ -0,0 +1,16 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module TextAdditions
+      def self.extended(base)
+        base.instance_eval do
+          def text
+            existence_check
+            name
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/tree_additions.rb

@@ -0,0 +1,59 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module TreeAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
+        base.extend Bewildr::ControlPatterns::SelectionPattern
+        
+        base.instance_eval do
+          def root_nodes
+            get(:type => :tree_item, :scope => :children)
+          end
+
+          def root_node
+            root_nodes.first
+          end
+
+          def select_node(path)
+            node(path).select
+          end
+
+          def node(path)
+            current_nodes = root_nodes
+            matching_node = nil
+            path.each_with_index do |target_node, index|
+              case current_nodes
+              when Array
+                matching_node = current_nodes.find {|node| node.name == target_node} #TODO: make this work with regexes as well as strings...
+                raise ElementDoesntExist if matching_node.nil?
+              when Bewildr::Element
+                if current_nodes.name == target_node #TODO: make this work with regexes as well as strings...
+                  matching_node = current_nodes
+                else
+                  raise ElementDoesntExist
+                end
+              end
+              raise ElementDoesntExist if matching_node.nil?
+              if path.size != index + 1
+                matching_node.expand
+                current_nodes = matching_node.child_nodes
+              end
+            end
+            return matching_node
+          end
+
+          def contains_node?(path)
+            begin
+              node(path)
+              return true
+            rescue ElementDoesntExist => e
+              return false
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/tree_item_additions.rb

@@ -0,0 +1,18 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module TreeItemAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::ExpandCollapsePattern
+        base.extend Bewildr::ControlPatterns::SelectionItemPattern
+
+        base.instance_eval do
+          def child_nodes
+            get(:type => :tree_item, :scope => :children)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/control_type_additions/window_additions.rb

@@ -0,0 +1,23 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  module ControlTypeAdditions
+    module WindowAdditions
+      def self.extended(base)
+        base.extend Bewildr::ControlPatterns::WindowPattern
+
+        base.instance_eval do
+          def open?
+            exists?
+          end
+
+          def wait_for_close
+            Timeout::timeout(30) do
+              sleep 0.2 while open?
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bewildr/element.rb

@@ -0,0 +1,171 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class Element
+    attr_reader :automation_element
+    attr_reader :control_type
+    
+    def initialize(input)
+      @automation_element = input
+      case input
+      when System::Windows::Automation::AutomationElement
+        set_control_type
+        build_element
+      when nil then @control_type = :non_existent
+      else raise BewildrInternalError, "Can only initialize an element with a nil or a Sys::Win::Auto::AE[C], not a #{input.class}"
+      end
+    end
+
+    def name
+      existence_check
+      @automation_element.current.name.to_s
+    end
+
+    def id
+      existence_check
+      @automation_element.current.automation_id.to_s
+    end
+
+    def exists?
+      return false if @control_type == :non_existent
+      begin
+        @automation_element.current.bounding_rectangle
+        return true
+      rescue System::Windows::Automation::ElementNotAvailableException, TypeError => e
+        return false
+      end
+    end
+    alias :exist? :exists?
+
+    def contains?(condition_hash)
+      get(condition_hash).exists?
+    end
+    alias :contain? :contains?
+
+    def existence_check
+      raise ElementDoesntExist unless exists?
+    end
+    private :existence_check
+
+    def enabled?
+      existence_check
+      @automation_element.current.is_enabled
+    end
+
+    #:id => "id"
+    #:name => "bob"
+    #:type => :button
+    #:scope => :children / :descendants
+    #:how_many => :first / :all
+    def get(condition_hash)
+      existence_check
+      condition = Finder.condition_for(condition_hash)
+      scope = Finder.scope_for(condition_hash)
+      how_many = Finder.how_many_for(condition_hash)
+      
+      result = @automation_element.send how_many, scope, condition
+      case result
+      when System::Windows::Automation::AutomationElement, nil then return Bewildr::Element.new(result)
+      when System::Windows::Automation::AutomationElementCollection
+        c_array_list = System::Collections::ArrayList.new(result)
+        element_array = c_array_list.to_array.to_a
+        case
+        when element_array.size == 0 then return Bewildr::Element.new(nil)
+        when element_array.size == 1 then return Bewildr::Element.new(element_array.first)
+        when element_array.size  > 1 then return element_array.collect {|element| Bewildr::Element.new(element) }
+        end
+      end
+    end
+
+    #add "children/child" and "descendants/descendant" methods
+
+    def children
+      get({:scope => :children}).collect {|element| Bewildr::Element.new(element)}
+    end
+
+    def click
+      CLICKR.click(clickable_point)
+    end
+
+    def double_click
+      CLICKR.double_click(clickable_point)
+    end
+
+    def right_click
+      CLICKR.right_click(clickable_point)
+    end
+
+    def clickable_point
+      existence_check
+      @automation_element.get_clickable_point
+    end
+
+    private
+
+    def set_control_type
+      @control_type = Bewildr::ControlType.symbol_for_enum(@automation_element.current.control_type)
+    end
+
+    #list of control types comes from http://msdn.microsoft.com/en-us/library/ms750574.aspx
+    def build_element
+      case @control_type
+      when :button
+      when :calendar
+      when :check_box
+        extend Bewildr::ControlPatterns::TogglePattern
+      when :combo_box
+        extend Bewildr::ControlTypeAdditions::ComboBoxAdditions
+      when :custom
+      when :data_grid
+        extend Bewildr::ControlTypeAdditions::DataGridAdditions
+      when :data_item
+      when :document
+      when :edit
+        extend Bewildr::ControlPatterns::ValuePattern
+      when :group
+      when :header
+      when :header_item
+      when :hyperlink
+        extend Bewildr::ControlTypeAdditions::TextAdditions
+      when :image
+      when :list
+        extend Bewildr::ControlTypeAdditions::ListAdditions
+      when :list_item
+        extend Bewildr::ControlPatterns::SelectionItemPattern
+      when :menu
+        extend Bewildr::ControlTypeAdditions::MenuAdditions
+      when :menu_bar
+      when :menu_item
+        extend Bewildr::ControlTypeAdditions::MenuItemAdditions
+      when :pane
+      when :progress_bar
+        extend Bewildr::ControlPatterns::RangeValuePattern
+      when :radio_button
+        extend Bewildr::ControlPatterns::SelectionItemPattern
+      when :scroll_bar
+      when :seperator
+      when :slider
+      when :spinner
+      when :split_button
+      when :status_bar
+      when :tab
+        extend Bewildr::ControlTypeAdditions::TabAdditions
+      when :tab_item
+        extend Bewildr::ControlPatterns::SelectionItemPattern
+      when :table
+      when :text
+        extend Bewildr::ControlTypeAdditions::TextAdditions
+      when :thumb
+      when :title_bar
+      when :tool_bar
+      when :tool_tip
+      when :tree
+        extend Bewildr::ControlTypeAdditions::TreeAdditions
+      when :tree_item
+        extend Bewildr::ControlTypeAdditions::TreeItemAdditions
+      when :window
+        extend Bewildr::ControlTypeAdditions::WindowAdditions
+      end
+    end
+  end
+end

data/lib/bewildr/exceptions.rb

@@ -0,0 +1,8 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+class ElementNotEnabled < StandardError; end
+class ElementDoesntExist < StandardError; end
+class PasswordFieldReadAttempt < StandardError; end
+class NoSuchItemInComboBox < StandardError; end
+
+class BewildrInternalError < StandardError; end

data/lib/bewildr/finder.rb

@@ -0,0 +1,66 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class Finder
+    extend Bewildr::BewildrHelpers
+    
+    class << self
+      def condition_for(condition_hash)
+        conditions = condition_hash.select {|key, value| [:id, :name, :type].include?(key) }
+        conditions = Hash[*conditions.flatten]
+        case
+        when conditions.length == 0 then raise "Condition needs to include at least an :id, a :name or a :type"
+        when conditions.length == 1 then return single_condition(conditions)
+        when conditions.length > 1  then return multiple_conditions(conditions)
+        end
+      end
+
+      def scope_for(condition_hash)
+        case condition_hash[:scope]
+        when :children          then System::Windows::Automation::TreeScope.Children
+        when :descendants, nil  then System::Windows::Automation::TreeScope.Descendants
+        end
+      end
+
+      #returns the method to call
+      def how_many_for(condition_hash)
+        case condition_hash[:how_many]
+        when :first     then :find_first
+        when :all, nil  then :find_all
+        else raise "Invalid number of elements to look for. Use ':first' or ':all'"
+        end
+      end
+
+      private
+
+      def multiple_conditions(condition_hash)
+        condition_array = []
+        condition_hash.keys.each {|key| condition_array << single_condition({key => condition_hash[key]}) }
+        System::Windows::Automation::AndCondition.new(r_array_to_cs_array_of_conditions(condition_array))
+      end
+
+      def single_condition(condition_hash)
+        case condition_hash.keys.first
+        when :id    then id_condition(condition_hash)
+        when :name  then name_condition(condition_hash)
+        when :type  then type_condition(condition_hash)
+        end
+      end
+
+      def id_condition(condition_hash)
+        value = r_string_to_c_string(condition_hash[:id].to_s)
+        System::Windows::Automation::PropertyCondition.new(System::Windows::Automation::AutomationElement.automation_id_property, value)
+      end
+
+      def name_condition(condition_hash)
+        value = r_string_to_c_string(condition_hash[:name])
+        System::Windows::Automation::PropertyCondition.new(System::Windows::Automation::AutomationElement.name_property, value)
+      end
+
+      def type_condition(condition_hash)
+        value = Bewildr::ControlType.class_for_symbol(condition_hash[:type])
+        System::Windows::Automation::PropertyCondition.new(System::Windows::Automation::AutomationElement.control_type_property, value)
+      end
+    end
+  end
+end

data/lib/bewildr/windows.rb

@@ -0,0 +1,23 @@
+#Copyright (c) 2010, Nathaniel Ritmeyer. All rights reserved.
+
+module Bewildr
+  class Windows
+    def self.windows_by_process_id(process_id)
+      #find top level windows
+      window_scope = System::Windows::Automation::TreeScope.Children
+      process_id_property = System::Windows::Automation::PropertyCondition.new(System::Windows::Automation::AutomationElement.process_id_property, process_id.to_i)
+      top_level_windows = System::Windows::Automation::AutomationElement.root_element.find_all(window_scope, process_id_property).to_a
+
+      all_windows = []
+      all_windows << top_level_windows
+
+      #loop through the top level windows looking for child windows
+      top_level_windows.each do |top_level_window|
+        control_type_property = System::Windows::Automation::PropertyCondition.new(System::Windows::Automation::AutomationElement.control_type_property, System::Windows::Automation::ControlType.Window)
+        all_windows << top_level_window.find_all(window_scope, control_type_property).to_a
+      end
+      
+      all_windows.flatten.collect {|window| Bewildr::Element.new(window)}
+    end
+  end
+end

metadata

@@ -0,0 +1,93 @@
+--- !ruby/object:Gem::Specification 
+name: bewildr
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  version: "0.1"
+platform: ruby
+authors: 
+- Nat Ritmeyer
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-04-20 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: Test your WPF apps with (iron) ruby!
+email: nat@natontesting.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- LICENSE
+files: 
+- LICENSE
+- README
+- Rakefile
+- lib/bewildr/application.rb
+- lib/bewildr/bewildr_helpers.rb
+- lib/bewildr/control_patterns/expand_collapse_pattern.rb
+- lib/bewildr/control_patterns/grid_pattern.rb
+- lib/bewildr/control_patterns/invoke_pattern.rb
+- lib/bewildr/control_patterns/range_value_pattern.rb
+- lib/bewildr/control_patterns/selection_item_pattern.rb
+- lib/bewildr/control_patterns/selection_pattern.rb
+- lib/bewildr/control_patterns/table_pattern.rb
+- lib/bewildr/control_patterns/toggle_pattern.rb
+- lib/bewildr/control_patterns/value_pattern.rb
+- lib/bewildr/control_patterns/window_pattern.rb
+- lib/bewildr/control_type.rb
+- lib/bewildr/control_type_additions/combo_box_additions.rb
+- lib/bewildr/control_type_additions/data_grid_additions.rb
+- lib/bewildr/control_type_additions/list_additions.rb
+- lib/bewildr/control_type_additions/menu_additions.rb
+- lib/bewildr/control_type_additions/menu_item_additions.rb
+- lib/bewildr/control_type_additions/tab_additions.rb
+- lib/bewildr/control_type_additions/text_additions.rb
+- lib/bewildr/control_type_additions/tree_additions.rb
+- lib/bewildr/control_type_additions/tree_item_additions.rb
+- lib/bewildr/control_type_additions/window_additions.rb
+- lib/bewildr/element.rb
+- lib/bewildr/exceptions.rb
+- lib/bewildr/ext/BewildrClickr.dll
+- lib/bewildr/finder.rb
+- lib/bewildr/windows.rb
+- lib/bewildr.rb
+has_rdoc: true
+homepage: http://github.com/natritmeyer/bewildr
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Test your WPF apps with (iron) ruby!
+test_files: []
+