marekj-watirloo 0.0.3 → 0.0.5

data/lib/watirloo/reflector.rb

@@ -1,137 +0,0 @@
-=begin rdoc
-Look Ma!, I can Has Reflect The Browser
-
-Watir::Reflector module added to watir. 
-Run the script to reflect watir elements. reflections create wrapper methods 
-with suggested semantic naming based on id, name, value or combination. 
-the intention is to create a scaffolding for Watirloo::Page elements.
-author: marekj
-works with IE class and DOM elements.
-=end
-module Watir
-  
-  # Watirloo::Page objects scaffold creation. Talks to the current page and reflects
-  # the watir elements to be used for semantic test objects tests.
-  module Reflector
-    
-    @@reflectable_list = [
-      :text_fields, 
-      :radios, 
-      :checkboxes, 
-      :select_lists
-    ]
-    
-    #cleanup the def name for some kind of semantic name
-    def suggest_def_name(how)
-      how.gsub!(/_+/,'_') # double underscores to one
-      how.gsub!(/^_/, '') # if it begins with undrscore kill it.
-      how.gsub!(/\s+/, '_') # kill spaces if for some strange reason exist
-      how = how[0,1].downcase << how[1,how.size] #downcase firs char
-    end
-
-    #   glean(:text_fields, [:id, :name, :value]
-    #   glean(:radios, [:id, :name, :value])
-    # glean and make a map of types and attributes needed for reflection
-    # this should be private I think
-    def glean(types, attribs)
-      result = []
-      send(types).each do |el|
-        subresult = {}
-        attribs.each do |key|
-          v = el.attribute_value key.to_s
-          subresult.update key => v
-        end
-        result << subresult
-      end
-      return result
-    end
-    
-    # example make_reflection(:checkboxes) # => [ defs, setters, faces]
-    # returns array of def wrappers, setters for elements and face definitions configs.
-    def make_reflection(types)
-      attribs = [:id, :name, :value]
-      faces = glean(types, attribs)
-      watir_method = types.id2name.chop
-      if watir_method == 'checkboxe'
-        watir_method = 'checkbox' #ooopps ... irregular plural
-      end
-      def_results = "# #{types.id2name.upcase}: def wrappers with suggested semantic names for elements\n" #holds definition wrappers 
-      set_results = "# #{types.id2name.upcase}: setters calling def wrappers with captured values\n" #holds setters with gleaned values
-      face_results = "# #{types.id2name.upcase}: face definitions\n" #holds faces 
-      
-      faces.each do |face|
-        id, name, value = face[:id], face[:name], face[:value]
-        
-        if id != ''
-          how, how_s = id, :id
-        elsif name != ''
-          how, how_s = name, :name
-        elsif value != ''
-          how, how_s = value, :value
-        end
-        
-        def_name = suggest_def_name(how)
-        
-        case types
-        when :checkboxes, :radios
-          extra_value = ", '#{value}'" #for checkboxes and radios
-          def_value = "_#{value}" #for checkboxes and radios
-          def_results << "\ndef #{def_name}#{def_value}\n\s\s@b.#{watir_method}(:#{how_s}, '#{how}'#{extra_value})\nend\n"
-          set_results << "#{def_name}#{def_value}.set\n"
-          face_results << ":#{def_name}#{def_value} => [:#{watir_method}, :#{how_s}, '#{how}'#{extra_value}]\n"
-
-        when :select_lists
-          # round trip back to browser for items and contents
-          value = eval("select_list(:#{how_s}, '#{how}').getSelectedItems")
-          items = eval("select_list(:#{how_s}, '#{how}').getAllContents")
-          
-          def_results << "def #{def_name}\n\s\s@b.select_list(:#{how_s}, '#{how}')\nend\n"
-          set_results << "@@#{def_name}_items=#{items.inspect}\n" #class vars for values collections
-          set_results << "#{def_name}.set #{value.inspect}\n"
-          face_results << "#:#{def_name} => [:select_list, :#{how_s}, '#{name}}']\n"
-
-        else
-          def_results << "\ndef #{def_name}#{def_value}\n\s\s@b.#{watir_method}(:#{how_s}, '#{how}'#{extra_value})\nend\n"
-          set_results << "#{def_name}#{def_value}.set\n"
-          face_results << "\n#:#{def_name}#{def_value} = [:#{watir_method}, :#{how_s}, '#{how}#{extra_value}']\n"
-
-        end
-
-      end
-      
-      return [def_results, set_results, face_results]
-    end
-    private :suggest_def_name, :glean, :make_reflection
-
-    # public interface for Reflector. 
-    # ie.reflect(:all) # => returns object definitions for entire dom using ie as container
-    # ie.frame('main').reflect(:select_lists) # => returns definitions for select_lists only contained by the frame
-    # ie.div(:id, 'main').div(:id, 'content').reflect(:all) # => definitions for all supported elements contained by a div 'content' inside div 'main'
-    # you can be as granular as needed
-    def reflect(watir_types=:all)
-      results = []
-      case watir_types
-      when :all
-        @@reflectable_list.each do |types|
-          results << make_reflection(types)
-        end
-      else
-        unless @@reflectable_list.include?(watir_types)
-          raise ArgumentError, "reflect method does not respond to this argument: #{watir_method}" 
-        end
-        results << make_reflection(watir_types)
-      end
-      return results
-    end
-  end
-
-  # ducktape IE container and include the Reflector.
-  class IE
-    include Reflector
-  end
-  
-  module Container
-    include Reflector
-  end
-  
-end

data/test/checkbox_group_test.rb

@@ -1,83 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper'
-
-describe 'checkbox_group access for browser' do
-  before :each do
-    page = Watirloo::Page.new
-    @browser = page.browser
-    @browser.goto testfile('checkbox_group1.html')
-  end
-  
-  it 'browser responds to checkbox_group' do
-    @browser.respond_to?(:checkbox_group).should == true
-  end
-  
-  it 'returns group object and its values from the page' do
-    cbg = @browser.checkbox_group('pets')
-    cbg.size.should == 5
-    cbg.values.should == %w[cat dog zook zebra wumpa]
-  end
-end
-
-describe 'CheckboxGroup class access with page interface' do 
-
-  class CheckboxGroupPage < Watirloo::Page
-    # semantic wrapper for the radio group object
-    face :pets => [:checkbox_group, 'pets']
-  end
-  
-  before do
-    @page = CheckboxGroupPage.new
-    @page.b.goto testfile('checkbox_group1.html')
-  end
-
-  # let's check explicitly for test purpose what Class is we are dealing with
-  # if IE then Watir::CheckboxGroup
-  # if FF then FireWatir::CheckboxGroup
-  it 'checkbox_group container method returns CheckboxGroup class' do
-    if @page.b.kind_of?(FireWatir::Firefox)
-      @page.pets.kind_of?(FireWatir::CheckboxGroup).should == true
-      
-    elsif  @page.b.kind_of?(Watir::IE)
-      @page.pets.kind_of?(Watir::CheckboxGroup).should == true
-    end
-  end
-  
-  it 'size retuns checkboxes as items count in a group' do
-    @page.pets.size.should == 5
-  end
-  
-  it 'values returns array of value attributes for each checkbox in a group' do
-    @page.pets.values.should == ["cat", "dog", "zook", "zebra", "wumpa"]
-  end
-  
-  it 'selected_values returns array of value attributes of each selected checkbox' do
-    @page.pets.selected.should == nil
-    @page.pets.selected_value.should == nil
-    @page.pets.selected_values.should == []
-  end
-  
-  it 'set String checks the checkbox in a group where value is String' do
-    @page.pets.set 'dog'
-    @page.pets.selected.should == 'dog'
-    @page.pets.selected_value.should == 'dog'
-    @page.pets.selected_values.should == ['dog']
-  end
-  
-  it 'set String array checks each checkbox by hidden value String' do
-    @page.pets.set ['dog', 'zebra', 'cat'] # not in order
-    @page.pets.selected.should == ['cat', 'dog', 'zebra']
-    @page.pets.selected_value.should == ['cat', 'dog', 'zebra'] # bypass filter
-    @page.pets.selected_values.should == ['cat', 'dog', 'zebra']
-  end
-  
-  it 'set Fixnum checks checkbox by position in a group. Position is 1 based' do
-    @page.pets.set 3
-    @page.pets.selected_values.should == ['zook']
-  end
-  
-  it 'set array of Fixnums checks each checkbox by position' do
-    @page.pets.set [4,1,2] # not in order
-    @page.pets.selected_values.should == ["cat", "dog", "zebra"]
-  end
-  
-end

data/test/checkboxes_value_test.rb

@@ -1,50 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper'
-
-describe 'setting and getting values for individual checkboxes with value attributes in face definitions' do
-  
-  before do
-    @page = Watirloo::Page.new
-    @page.browser.goto testfile('checkbox_group1.html')
-    
-    # instance method page.face adds defintion but only to the current instance of the page
-    # in watir you have to access each checkbox. 
-    # in Watirloo you can access CheckboxGroup as shortcut using
-    # :pets => [:checkbox_group, 'pets']
-    @page.face(
-      :pets_cat => [:checkbox, :name, 'pets', 'cat'],
-      :pets_dog => [:checkbox, :name, 'pets', 'dog'],
-      :pets_zook => [:checkbox, :name, 'pets', 'zook'],
-      :pets_zebra => [:checkbox, :name, 'pets', 'zebra'],
-      :pets_wumpa => [:checkbox, :name, 'pets', 'wumpa'])
-  end
-  
-  it 'semantic name accesses individual CheckBox' do
-    if @page.b.kind_of?(FireWatir::Firefox)
-      @page.pets_cat.kind_of?(FireWatir::CheckBox).should == true
-      
-    elsif @page.b.kind_of?(Watir::IE)
-      @page.pets_cat.kind_of?(Watir::CheckBox).should == true
-    end
-  end
-  
-  it 'set individual checkbox does not set other checkboxes sharing the same name' do
-    @page.pets_dog.checked?.should == false
-    @page.pets_dog.set
-    @page.pets_dog.checked?.should == true
-    @page.pets_cat.checked?.should == false
-  end
-  
-  it 'by default all are false. set each unchecked checkbox should have checked? true' do
-    @page.interfaces.keys.each do |key|
-      @page.get_face(key).checked?.should == false
-    end
-
-    @page.interfaces.keys.each do |key|
-      @page.get_face(key).set
-    end
-    
-    @page.interfaces.keys.each do |key|
-      @page.get_face(key).checked?.should.be true
-    end
-  end
-end

data/test/html/checkbox_group1.html

@@ -1,20 +0,0 @@
-<!-- 
-    Document   : checbox_group
--->
-<!DOCtype HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-  <head>
-    <title></title>
-    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-  </head>
-  <body>
-    <h3>Pets CheckboxGroup. Each has value. Acts like MultiSelectList. none, one ore more items can be checked.</h3>
-    <input name="pets" type="checkbox" value="cat">cat<br />
-    <input name="pets" type="checkbox" value="dog">dog<br />
-    <input name="pets" type="checkbox" value="zook">zook<br />
-    <input name="pets" type="checkbox" value="zebra">zebra<br />
-    <input name="pets" type="checkbox" value="wumpa">wumpa<br />
-    <h3>Single CheckboxToggle Only. Acts like RadioGroup on/off switch.</h3>
-    <input name="singleIndicator" type="checkbox">ToggleMe<br /> 
-  </body>
-</html>

data/test/html/labels.html

@@ -1,32 +0,0 @@
-<!-- 
-    Document   : labels
-    http://www.w3.org/TR/html401/interact/forms.html#edef-LABEL
--->
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-  <head>
-    <title></title>
-    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-  </head>
-  <body>
-    
-    <h3>Implicit label wraps text_field without for attribute. Click does not transfer focus to control</h3>
-    <form id="wrap_without_for"action="" method="get">
-      <p>
-        <label>First Name<INPUT type="text" name="fn"></label>
-      </p>
-      <p>
-        <label><INPUT type="text" name="ln">Last Name</label>
-      </p>
-    </form>
-    
-    <h3>Explicit Label For Item with Id. Click transfers focus to control associated by id</h3>
-    <form id="label_for_id"action="" method="get">
-      <p>
-        <label for="first_nm">FirstName For</label><INPUT type="text" name="firstname" id="first_nm">
-        <INPUT type="text" name="lastname" id="last_nm"><label for="last_nm">LastName For</label>
-      </p>
-    </form>
-    
-  </body>
-</html>

data/test/html/radio_group.html

@@ -1,41 +0,0 @@
-<!-- 
-    Document   : radio_group
--->
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html>
-  <head>
-    <title>radio_groups</title>
-    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-  </head>
-  <body>
-    <h3>wanna eat what?</h3>
-    <TABLE border="0">
-      <TBODY>
-        <TR>
-          <TD>
-            <INPUT type="radio" name="food" value="hotdog" /> 
-          </TD>
-          <TD>
-            Hothund
-          </TD>
-        </TR>
-        <TR>
-          <TD>
-            <INPUT type="radio" name="food" value="burger" checked /> 
-          </TD>
-          <TD>
-            Burgier
-	    </TD>
-        </TR>
-        <TR>
-          <TD>
-            <INPUT type="radio" name="food" value="tofu" /> 
-          </TD>
-          <TD>
-            Tofoo
-          </TD>
-        </TR>
-      </TBODY>
-    </TABLE>
-  </body>
-</html>

data/test/interfaces_test.rb

@@ -1,79 +0,0 @@
-require File.dirname(__FILE__) + '/test_helper'
-
-
-describe "SuperPage" do
-
-  class SuperPage < Watirloo::Page
-    face 'name' => 'vname'
-  end
-  
-  it 'class interface' do
-    SuperPage.interfaces.keys.should == ['name']
-  end
-  
-  it 'instance initialized from class interface' do
-    SuperPage.new.interfaces.keys.should == ['name']
-  end
-  
-  it 'adding interface to instance adds interface to initialize' do
-    page = SuperPage.new
-    page.face 'sub' => 'sub' # add new face to instance
-    page.interfaces.keys.sort.should == %w[name sub] # instnace has now two
-  end
-  
-  it 'but not to class' do
-    page = SuperPage.new
-    page.face 'sub' => 'sub'
-    page.interfaces.keys.sort.should == %w[name sub]
-    SuperPage.interfaces.keys.should == ['name'] # but the class has still only one
-  end
-  
-  it 'class interface can be updated' do
-    SuperPage.interfaces.update 'update' => 'vupdate'
-    SuperPage.interfaces.keys.sort.should == %w[name update]
-  end
-  
-  it 'instance gets interfaces from class but does not get them after updating class' do
-    page = SuperPage.new
-    page.interfaces.keys.sort.should == %w[name update] #previous example altered it
-    SuperPage.interfaces.update 'muddy' => 'vmuddy'
-    page.interfaces.keys.sort.should == %w[name update] #previous example altered it
-  end
-end
-
-describe "SuperPage and SubPage" do
-  
-  class Page0 < Watirloo::Page
-    face 'higher' => 'vhigher'
-  end
-  class Page1 < Page0
-    face 'lower' => 'vlower'
-  end
-  class Page2 < Page1
-    face 'lowest' => 'vlowest'
-  end
-  
-  it 'Subpage inherits from Super its interfaces' do
-    p1 = Page1.new
-    p1.interfaces.keys.sort.should == %w[higher lower]
-  end
-  
-  it "Super retains its interfaces and is not affected by Subpages" do
-    p0 = Page0.new
-    p0.face 'supinst' => 'vsupinst'
-    p0.interfaces.keys.sort.should == %w[higher supinst]
-    Page0.interfaces.keys.sort.should == ['higher']
-    
-    p1 = Page1.new
-    p1.face 'subinst' => 'vsubinst'
-    p1.interfaces.keys.sort.should == %w[higher lower subinst]
-    Page1.interfaces.keys.sort.should == %w[higher lower]
-    
-    # extra checks
-    p0.interfaces.keys.sort.should == %w[higher supinst] #super not affected by Sub
-    Page0.interfaces.keys.sort.should == ['higher'] #not affected by P1.instance face
-    Page2.interfaces.keys.sort.should == %w[higher lower lowest]
-  end
-  
-  
-end