rautomation 2.0.1-x64-mingw32

data/spec/adapter/ms_uia/listbox_spec.rb

@@ -0,0 +1,73 @@
+require 'spec_helper'
+
+describe "MsUia::ListBox", if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: "MainFormWindow") }
+  let(:label) { window.label(id: "fruitsLabel") }
+  let(:list_box) { window.list_box(id: "FruitListBox") }
+
+  it "#exists" do
+    expect(list_box.exist?).to be true
+  end
+
+  it "checks for ListBox class" do
+    expect(window.list_box(id: "textField").exist?).to_not be true
+    expect(list_box.exist?).to be true
+  end
+
+  it "counts items" do
+    expect(list_box.count).to be == 3
+  end
+
+  it "lists items" do
+    expect(list_box.items[0].value).to be == "Apple"
+    expect(list_box.items[1].value).to be == "Orange"
+    expect(list_box.items[2].value).to be == "Mango"
+  end
+
+  it "returns a value" do
+    expect(list_box.value).to be == ""
+    list_box.select(0)
+    expect(list_box.value).to be == "Apple"
+    list_box.select(1)
+    expect(list_box.value).to be == "Orange"
+    list_box.select(2)
+    expect(list_box.value).to be == "Mango"
+  end
+
+  it "#selected?" do
+    expect(list_box.selected?(2)).to be false
+    list_box.select(2)
+    expect(list_box.selected?(2)).to be true
+  end
+
+  it "#select" do
+    list_box.select(1)
+    expect(list_box.selected?(1)).to be true
+
+    list_box.select(0)
+    expect(list_box.selected?(0)).to be true
+
+    list_box.select(2)
+    expect(list_box.selected?(2)).to be true
+  end
+
+  it "#strings" do
+    expect(list_box.strings).to be == ["Apple", "Orange", "Mango"]
+  end
+
+  it "fires events when the index changes" do
+    ['Apple', 'Orange', 'Mango'].each_with_index do |value, index|
+      list_box.select(index)
+      expect(label.value).to eq(value)
+    end
+  end
+
+  it 'fires events even when the item is not in the current view' do
+    window.menu(text: 'File').menu(text: 'Add Some Fruits').open
+
+    list_box.strings.each_with_index do |value, index|
+      list_box.select(index)
+      expect(label.value).to eq(value)
+    end
+  end
+end

data/spec/adapter/ms_uia/radio_spec.rb

@@ -0,0 +1,39 @@
+require 'spec_helper'
+
+describe "MsUia::RadioButton", if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: "MainFormWindow") }
+  it "#exist?" do
+    expect(window.radio(value: "Option 1").exist?).to be true
+
+    RAutomation::Window.wait_timeout = 0.1
+    expect {RAutomation::Window.new(title: "non-existent-window").
+            radio(value: "Option 1")}.
+            to raise_exception(RAutomation::UnknownWindowException)
+  end
+
+  it "check for radio class" do
+    expect(window.radio(id: "textField").exist?).to_not be true
+    expect(window.radio(id: "radioButton2").exist?).to be true
+  end
+
+
+  it "#set? & #set" do
+    radio = window.radio(value: "Option 1")
+    expect(radio.set?).to_not be true
+
+    radio.set
+    expect(radio.set?).to be true
+  end
+
+  it "enabled/disabled" do
+    expect(window.radio(value: "Option 1").enabled?).to be true
+    expect(window.radio(value: "Option 1").disabled?).to_not be true
+
+    expect(window.radio(value: "Option Disabled").enabled?).to_not be true
+    expect(window.radio(value: "Option Disabled").disabled?).to be true
+  end
+
+  it "cannot set a disabled radio button" do
+    expect { window.radio(value: "Option Disabled").set }.to raise_error(RuntimeError)
+  end
+end

data/spec/adapter/ms_uia/select_list_spec.rb

@@ -0,0 +1,118 @@
+require 'spec_helper'
+
+describe 'MsUia::SelectList', if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: 'MainFormWindow') }
+  let(:fruits_combo) { window.select_list(id: 'FruitsComboBox') }
+  let(:fruits_list) { window.select_list(id: 'FruitListBox') }
+  let(:fruit_label) { window.label(id: 'fruitsLabel') }
+  let(:disabled_combo) { window.select_list(id: 'comboBoxDisabled') }
+  let(:about) do
+    window.button(value: 'About').click { true }
+    about = RAutomation::Window.new(title: 'About')
+  end
+  let(:multi_fruits) do
+    about.tab_control(id: 'tabControl').set 'Multi-Select ListBox'
+    about.select_list(id: 'multiFruitListBox')
+  end
+
+  it '#select_list' do
+    expect(fruits_combo.exist?).to be true
+
+    RAutomation::Window.wait_timeout = 0.1
+    expect {RAutomation::Window.new(title: 'non-existent-window').
+            select_list(class: /COMBOBOX/i)}.
+            to raise_exception(RAutomation::UnknownWindowException)
+  end
+
+  it 'check for select list class' do
+    expect(window.select_list(id: 'textField').exist?).to_not be true
+    expect(fruits_combo.exist?).to be true
+  end
+
+  context 'SelectListOption' do
+    it '#selected? & #select' do
+      expect(fruits_combo.options(text: 'Apple')[0].selected?).to_not be true
+      expect(fruits_combo.options(text: 'Apple')[0].select).to be true
+      expect(fruits_combo.options(text: 'Apple')[0].selected?).to be true
+    end
+
+    it '#value' do
+
+      #default empty state
+      expect(fruits_combo.value).to be == ''
+
+      fruits_combo.options(text: 'Apple')[0].select
+      expect(fruits_combo.value).to be == 'Apple'
+
+      fruits_combo.options(text: 'Caimito')[0].select
+      expect(fruits_combo.value).to be == 'Caimito'
+    end
+
+    it 'enabled/disabled' do
+      expect(fruits_combo.enabled?).to be true
+      expect(fruits_combo.disabled?).to_not be true
+
+      expect(disabled_combo.enabled?).to_not be true
+      expect(disabled_combo.disabled?).to be true
+    end
+  end
+
+  it '#select' do
+    multi_fruits.select text: /ng/
+    expect(multi_fruits.values).to eq(['Orange', 'Mango'])
+  end
+
+  it '#clear' do
+    multi_fruits.select # select all
+    multi_fruits.clear text: 'Orange'
+    expect(multi_fruits.values).to eq(['Apple', 'Mango'])
+  end
+
+  it '#values' do
+    expect(multi_fruits.values).to eq([]) # => empty state
+
+    ['Apple', 'Mango'].each do |value|
+      multi_fruits.option(text: value).select
+    end
+    expect(multi_fruits.values).to eq(['Apple', 'Mango'])
+  end
+
+  it '#option' do
+    expect(fruits_combo.option(text: 'Apple').selected?).to_not be true
+    fruits_combo.option(index: 0).set
+    expect(fruits_combo.option(text: 'Apple').selected?).to be true
+  end
+
+  it '#options' do
+    expect(fruits_combo.options.size).to be == 5
+    expect(fruits_combo.options.map(&:text)).to eq(['Apple', 'Caimito', 'Coconut', 'Orange', 'Passion Fruit'])
+
+    expect(fruits_combo.options(text: 'Apple').map(&:text)).to eq ['Apple']
+    expect(fruits_combo.options(text: /Ap{2}le/).map(&:text)).to eq ['Apple']
+    expect(fruits_combo.options(index: 0).map(&:text)).to eq ['Apple']
+  end
+
+  it 'cannot select anything on a disabled select list' do
+    expect { disabled_combo.option(text: 'Apple').set }.to raise_error(RuntimeError)
+  end
+
+  it 'fires change event when the value is set' do
+    apple_option = fruits_combo.option(text: 'Apple')
+    expect(apple_option.selected?).to_not be true
+    apple_option.select
+    expect(apple_option.selected?).to be true
+
+    RAutomation::WaitHelper.wait_until { fruit_label.exist? }
+    expect(fruit_label.value).to be == 'Apple'
+  end
+
+  it 'fires change event when the index changes' do
+    fruits_combo.options[4].select
+    expect(fruits_combo.option(text: 'Passion Fruit').selected?).to be true
+    expect(fruit_label.value).to be == 'Passion Fruit'
+
+    fruits_combo.options[3].select
+    expect(fruits_combo.option(text: 'Orange').selected?).to be true
+    expect(fruit_label.value).to be == 'Orange'
+  end
+end

data/spec/adapter/ms_uia/spinner_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+
+include RAutomation::Adapter
+
+describe MsUia::Spinner, if: SpecHelper.adapter == :ms_uia  do
+  let(:main_window) { RAutomation::Window.new(title: 'MainFormWindow') }
+  let(:data_entry) { main_window.button(value: 'Data Entry Form').click { window.exist? } }
+  let(:window) { RAutomation::Window.new(title: 'DataEntryForm') }
+
+  subject { window.spinner(id: 'numericUpDown1') }
+
+  before(:each) do
+    data_entry
+  end
+
+  it { should exist }
+
+  it '#set' do
+    subject.set 4.0
+    expect(subject.value).to eq(4.0)
+  end
+
+  it '#minimum' do
+     expect(subject.minimum).to eq(-100.0)
+  end
+
+  it '#maximum' do
+     expect(subject.maximum).to eq(100.0)
+  end
+
+  it 'likes for values to be within range' do
+    expect { subject.set(1000.0) }.to raise_error(RuntimeError)
+  end
+
+  it '#increment' do
+    subject.set 5.0
+    expect(subject.increment).to eq(6.0)
+  end
+
+  it '#decrement' do
+    subject.set 5.0
+    expect(subject.decrement).to eq(4.0)
+  end
+end

data/spec/adapter/ms_uia/tab_control_spec.rb

@@ -0,0 +1,53 @@
+require 'spec_helper'
+
+include RAutomation::Adapter
+
+describe MsUia::TabControl, if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: 'MainFormWindow') }
+  let(:about) { RAutomation::Window.new(title: 'About') }
+  subject { about.tab_control(id: 'tabControl') }
+
+  before(:each) do
+    window.button(value: 'About').click { true }
+  end
+
+  it { should exist }
+
+  it '#select' do
+    subject.select(1)
+    expect(subject.value).to eq('More Info')
+  end
+
+  it '#set' do
+    subject.set 'More Info'
+    expect(subject.value).to eq('More Info')
+  end
+
+  it 'has tab items' do
+    expect(subject.items.count).to eq(3)
+  end
+
+  it 'knows the current tab' do
+    expect(subject.value).to eq('Info')
+  end
+
+  context('#items') do
+    it 'has text' do
+      expect(subject.items.map(&:text)).to eq(['Info', 'More Info', 'Multi-Select ListBox'])
+    end
+
+    it 'has indices' do
+       expect(subject.items.map(&:index)).to eq([0, 1, 2])
+    end
+
+    it 'can be selected' do
+      subject.items.find {|t| t.text == 'More Info'}.select
+      expect(subject.value).to eq('More Info')
+    end
+
+    it 'knows if it is selected' do
+      expect(subject.items.first.selected?).to be true
+      expect(subject.items.last.selected?).to_not be true
+    end
+  end
+end

data/spec/adapter/ms_uia/table_spec.rb

@@ -0,0 +1,197 @@
+require 'spec_helper'
+
+describe 'MsUia::Table', if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: "MainFormWindow") }
+  let(:data_entry) { RAutomation::Window.new(title: "DataEntryForm") }
+  let(:data_grid_view) { window.button(value: 'Data Grid View').click {true}; RAutomation::Window.new(title: /DataGridView/) }
+  let(:large_grid) { data_entry.close; data_grid_view.table(id: 'dataGridView1') }
+  let(:table) { data_entry.table(id: "personListView") }
+  let(:toggle_multi_select) { data_entry.button(value: 'Toggle Multi').click { true } }
+
+  before :each do
+    window.button(value: "Data Entry Form").click { RAutomation::Window.new(title: "DataEntryForm").exists? }
+  end
+
+  it "#table" do
+    expect(table.exist?).to be true
+    
+    RAutomation::Window.wait_timeout = 0.1
+    expect {RAutomation::Window.new(title: "non-existent-window").
+            table(class: /SysListView32/i)}.
+            to raise_exception(RAutomation::UnknownWindowException)
+  end
+
+  it "check for table class" do
+    expect(RAutomation::Window.new(title: "DataEntryForm").table(id: "deleteItemButton").exist?).to_not be true
+  end
+
+  it "#strings" do
+    table = RAutomation::Window.new(title: "MainFormWindow").table(id: "FruitListBox")
+
+    expect(table.strings).to be == ["Apple", "Orange", "Mango"]
+  end
+
+  it "#strings with nested elements" do
+
+    expect(table.strings).to be == [
+        ["Name", "Date of birth", "State"],
+        ["John Doe", "12/15/1967", "FL"],
+        ["Anna Doe", "3/4/1975", ""]
+    ]
+  end
+
+  it "#row_count" do
+     expect(table.row_count).to eq(2)
+  end
+
+  it '#select' do
+    large_grid.select(value: /^FirstName[1-9]$/)
+    first_nine = large_grid.rows.take(9)
+    expect(first_nine.count).to eq(9)
+    expect(first_nine.all?(&:selected?)).to be true
+  end
+
+  it '#clear' do
+    first_three = large_grid.rows.take(3)
+    next_six = large_grid.rows.take_while { |r| r.index.between?(3, 9) }
+    large_grid.select(value: /^FirstName[1-9]$/)
+
+    large_grid.clear(value: /^FirstName[1-3]$/)
+
+    expect(first_three.all?(&:selected?)).to be false
+    expect(next_six.all?(&:selected?)).to be true
+  end
+
+  it '#selected_rows' do
+    large_grid.select(value: /^FirstName[1-5]$/)
+    expect(large_grid.selected_rows.map(&:index)).to eq([0, 1, 2, 3, 4])
+  end
+
+  context "#rows" do
+    it "has rows" do
+      expect(table.rows.size).to eq(2)
+    end
+
+    it 'are quick to find' do
+      expect(large_grid.row_count).to eq(51)
+
+      start = Time.now
+      expect(large_grid.row(index: 50).exists?).to be true
+      expect((Time.now - start)).to be < 1.5
+    end
+
+    it "have values" do
+      expect(table.rows.map(&:value)).to eq(["John Doe", "Anna Doe"])
+    end
+
+    it "values are also text" do
+      expect(table.rows.map(&:text)).to eq(["John Doe", "Anna Doe"])
+    end
+
+    it "can be selected" do
+      row = table.row(index: 1)
+      row.select
+      expect(row.selected?).to be true
+    end
+
+    it "can be cleared" do
+      row = table.row(index: 1)
+      row.select
+
+      row.clear
+      expect(row.selected?).to_not be true
+    end
+
+    it "can select multiple rows" do
+      table.rows.each(&:select)
+      expect(table.rows.all?(&:selected?)).to be true
+    end
+
+    it "plays nice if the table does not support multiple selections" do
+      toggle_multi_select
+
+      first_row = table.rows.first
+      last_row = table.rows.last
+
+      first_row.select
+      last_row.select
+
+      expect(first_row.selected?).to_not be true
+      expect(last_row.selected?).to be true
+    end
+
+    context "locators" do
+      it "can locate by text" do
+        expect(table.rows(text: "Anna Doe").size).to eq(1)
+      end
+
+      it "can locate by regex" do
+        expect(table.rows(text: /Doe/).size).to eq(2)
+      end
+
+      it "can locate by index" do
+        expect(table.rows(index: 1).first.text).to eq("Anna Doe")
+      end
+
+      it "an index is also a row" do
+        expect(table.rows(row: 1).first.text).to eq("Anna Doe")
+      end
+    end
+
+    context "singular row" do
+      it "grabs the first by default" do
+        expect(table.row.text).to eq("John Doe")
+      end
+
+      it "can haz locators too" do
+        expect(table.row(text: "Anna Doe").text).to eq("Anna Doe")
+      end
+    end
+
+    context "Row#cells" do
+      let(:row) { table.row }
+
+      it "has cells" do
+        expect(row.cells.size).to eq(3)
+      end
+      
+      it "cells have values" do
+        expect(row.cells.map(&:value)).to eq(["John Doe", "12/15/1967", "FL"])
+      end
+
+      it "values are also text" do
+        expect(row.cells.map(&:text)).to eq(["John Doe", "12/15/1967", "FL"])
+      end
+
+      context "locators" do
+        it "can locate by text" do
+           expect(row.cells(text: "FL").size).to eq(1)
+        end
+
+        it "can locate by regex" do
+          expect(row.cells(text: /[JF]/).size).to eq(2)
+        end
+
+        it "can locate by index" do
+          expect(row.cells(index: 1).first.text).to eq("12/15/1967")
+        end
+
+        it "an index is also a column" do
+          expect(row.cells(column: 1).first.text).to eq("12/15/1967")
+        end
+      end
+
+      context "singular cell" do
+        it "grabs the first by default" do
+          expect(row.cell.text).to eq("John Doe")
+        end
+
+        it "can haz locators too" do
+          expect(row.cell(text: "FL").text).to eq("FL")
+        end
+      end
+    end
+  end
+
+end
+

data/spec/adapter/ms_uia/text_field_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+describe "MsUia::TextField", if: SpecHelper.adapter == :ms_uia do
+  let(:main_form) { RAutomation::Window.new(title: "MainFormWindow") }
+
+  it "check for text field class" do
+    expect(main_form.text_field(id: "checkBox").exist?).to_not be true
+    expect(main_form.text_field(id: "textField").exist?).to be true
+  end
+
+  it "enabled/disabled" do
+    expect(main_form.text_field(id: "textField").enabled?).to be true
+    expect(main_form.text_field(id: "textField").disabled?).to_not be true
+
+    expect(main_form.text_field(id: "textBoxDisabled").enabled?).to_not be true
+    expect(main_form.text_field(id: "textBoxDisabled").disabled?).to be true
+  end
+
+  it "cannot set a value to a disabled text field" do
+    expect { main_form.text_field(id: "textBoxDisabled").set "abc" }.to raise_error(RuntimeError)
+
+    expect { main_form.text_field(id: "textBoxDisabled").clear }.to raise_error(RuntimeError)
+  end
+
+  it "considers a document control type a text field as well" do
+    # cause the .NET framework to be loaded into the process (required to make this fail)
+    main_form.select_list(id: "treeView").expand(0)
+    expect(main_form.text_field(id: "multiLineTextField").exist?).to be true
+  end
+
+  it "can set the value of a multi line text field" do
+    text_field = main_form.text_field(id: "multiLineTextField")
+
+    # initial
+    text_field.set("some dater'")
+    expect(text_field.value).to eq("some dater'")
+
+    # overwrite
+    text_field.set("overwrite with this dater'")
+    expect(text_field.value).to eq("overwrite with this dater'")
+  end
+
+end

data/spec/adapter/ms_uia/value_control_spec.rb

@@ -0,0 +1,11 @@
+require 'spec_helper'
+
+describe "MsUia::ValueControl", if: SpecHelper.adapter == :ms_uia do
+  let(:window) { RAutomation::Window.new(title: /MainFormWindow/) }
+  let(:value_control) { window.value_control(id: "automatableMonthCalendar1") }
+
+  it "can set and get values" do
+    value_control.set('12/25/2012')
+    expect(value_control.value).to eq('12/25/2012')
+  end
+end

data/spec/adapter/ms_uia/window_spec.rb

@@ -0,0 +1,81 @@
+require "spec_helper"
+
+describe "MsUia::Window", if: SpecHelper.adapter == :ms_uia do
+  let(:window) {RAutomation::Window.new(title: /MainFormWindow/i)}
+
+  it "move and click" do
+    window.maximize
+    window.move_mouse(62,46)
+    sleep 1
+    window.click_mouse
+    sleep 1
+  end
+
+  context "#send_keys" do
+    it "send tab keystrokes to move focus between elements" do
+      window.button(value: "About").focus
+      expect(window.button(value: "About").focused?).to be true
+
+      window.send_keys(:tab, :tab, :tab)
+      button = window.button(value: "Close")
+      expect(button.exist?).to be true
+      expect(button.focused?).to be true
+    end
+
+    it "send arbitrary characters and control keys" do
+      text_field = window.text_field(index: 2)
+      text_field.focus
+      window.send_keys("abc123ABChiHI!")
+      expect(text_field.value).to be == "abc123ABChiHI!"
+
+      window.send_keys(:space, "X")
+      expect(text_field.value).to be == "abc123ABChiHI! X"
+
+      window.send_keys([:control, "a"], :backspace)
+      expect(text_field.value.empty?).to be true
+    end
+  end
+
+  context "#control" do
+    it "by name" do
+      expect(window.control(name: "checkBox").exist?).to be true
+    end
+  end
+
+  context "menu items" do
+    let(:about_box) { RAutomation::Window.new title: "About" }
+
+    it "can select menu items" do
+      window.menu(text: "File").menu(text: "About").open
+      RAutomation::WaitHelper.wait_until { about_box.present? }
+    end
+
+    it "can select deep menu items" do
+      window.menu(text: "File")
+            .menu(text: "Roundabout Way")
+            .menu(text: "About").open
+      RAutomation::WaitHelper.wait_until { about_box.present? }
+    end
+
+    it "raises when errors occur" do
+      expect { window.menu(text: "File").menu(text: "Does Not Exist").open}.to raise_error(RuntimeError)
+    end
+
+    it "indicates if the menu item does not exist" do
+      begin
+        window.menu(text: "File").menu(text: "Should Not Exist").open
+        fail "Should have failed to find the menu item"
+      rescue Exception => e
+         expect(e.message).to match(/MenuItem with the text "Should Not Exist" does not exist/)
+      end
+    end
+
+    it "knows when menu items exist" do
+      expect(window.menu(text: "File").menu(text: "About").exists?).to be true
+    end
+
+    it "knows when menu items do not exist" do
+      expect(window.menu(text: "File").menu(text: "Missing").exists?).to_not be true
+    end
+  end
+end

data/spec/adapter/win_32/button_spec.rb

@@ -0,0 +1,31 @@
+require 'spec_helper'
+
+describe "Win32::Button", if: SpecHelper.adapter == :win_32 do
+  it "enabled/disabled" do
+    window = RAutomation::Window.new(title: SpecHelper::DATA[:window1_title])
+
+    expect(window.button(value: "Enabled").enabled?).to be true
+    expect(window.button(value: "Enabled").disabled?).to be false
+
+    expect(window.button(value: "Disabled").enabled?).to be false
+    expect(window.button(value: "Disabled").disabled?).to be true
+  end
+
+  it "#focus" do
+    button = RAutomation::Window.new(title: SpecHelper::DATA[:window1_title]).button(value: "Enabled")
+    expect(button.focused?).to be false
+    button.focus
+    expect(button.focused?).to be true
+  end
+
+  it "cannot click disabled button" do
+    window = RAutomation::Window.new(title: SpecHelper::DATA[:window1_title])
+    expect { window.button(value: "Disabled").click }.to raise_error(RuntimeError)
+  end
+
+  it "cannot set focus to disabled button" do
+    window = RAutomation::Window.new(title: SpecHelper::DATA[:window1_title])
+    expect{ window.button(value: "Disabled").focus }.to raise_error(RuntimeError)
+  end
+
+end