symbiont 0.1.9 → 0.2.0

data/spec/symbiont/generators/checkbox_generators_spec.rb

@@ -1,75 +1,79 @@
-require 'spec_helper'
-
-describe Symbiont::Generators do
-  let(:watir_browser) { mock_browser_for_watir }
-  let(:watir_definition) { DefinitionTest.new(watir_browser) }
-  
-  describe "checkbox web objects" do
-    context "when declared in a definition" do
-      it "should generate methods for referencing the checkbox" do
-        watir_definition.should respond_to(:apply_tax_checkbox)
-        watir_definition.should respond_to(:apply_tax_object)
-      end
-      
-      it "should generate methods for interacting with the checkbox" do
-        watir_definition.should respond_to(:apply_tax_exists?)
-        watir_definition.should respond_to(:apply_tax_visible?)
-        watir_definition.should respond_to(:apply_tax_enabled?)
-        watir_definition.should respond_to(:apply_tax?)
-        watir_definition.should respond_to(:apply_tax_?)
-        watir_definition.should respond_to(:apply_tax!)
-        watir_definition.should respond_to(:apply_tax_checked?)
-        watir_definition.should respond_to(:check_apply_tax)
-        watir_definition.should respond_to(:uncheck_apply_tax)
-      end
-    end
-    
-    context "when used by the watir platform" do
-      it "should locate the checkbox" do
-        watir_browser.should_receive(:checkbox).and_return(watir_browser)
-        web_object = watir_definition.apply_tax_object
-        web_object.should_not be_nil
-        web_object.should be_instance_of Symbiont::WebObjects::CheckBox
-      end
-      
-      it "should determine if a checkbox exists" do
-        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
-        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
-        watir_definition.apply_tax_exists?.should be_true
-        watir_definition.apply_tax?.should be_true
-      end
-      
-      it "should determine if a checkbox is visible" do
-        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
-        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
-        watir_definition.apply_tax_visible?.should be_true
-        watir_definition.apply_tax_?.should be_true
-      end
-      
-      it "should determine if a checkbox is enabled" do
-        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
-        watir_browser.should_receive(:enabled?).twice.and_return(watir_browser)
-        watir_definition.apply_tax_enabled?.should be_true
-        watir_definition.apply_tax!.should be_true
-      end
-      
-      it "should determine if a checkbox is checked" do
-        watir_browser.should_receive(:checkbox).and_return(watir_browser)
-        watir_browser.should_receive(:set?).and_return(true)
-        watir_definition.apply_tax_checked?.should be_true
-      end
-      
-      it "should be able to check a checkbox" do
-        watir_browser.should_receive(:checkbox).and_return(watir_browser)
-        watir_browser.should_receive(:set)
-        watir_definition.check_apply_tax
-      end
-      
-      it "should be able to uncheck a checkbox" do
-        watir_browser.should_receive(:checkbox).and_return(watir_browser)
-        watir_browser.should_receive(:clear)
-        watir_definition.uncheck_apply_tax
-      end
-    end
-  end
-end
+require 'spec_helper'
+
+describe Symbiont::Generators do
+  let(:watir_browser)    { mock_browser_for_watir }
+  let(:watir_definition) { DefinitionTest.new(watir_browser) }
+
+  describe "checkbox generators" do
+    context "when declared on a page definition" do
+      it "should generate methods for referencing the checkbox" do
+        watir_definition.should respond_to(:apply_tax_checkbox)
+        watir_definition.should respond_to(:apply_tax_object)
+      end
+
+      it "should generate methods for interacting with the checkbox" do
+        watir_definition.should respond_to(:apply_tax_exists?)
+        watir_definition.should respond_to(:apply_tax_visible?)
+        watir_definition.should respond_to(:apply_tax_enabled?)
+        watir_definition.should respond_to(:apply_tax?)
+        watir_definition.should respond_to(:apply_tax_?)
+        watir_definition.should respond_to(:apply_tax!)
+        watir_definition.should respond_to(:apply_tax_checked?)
+        watir_definition.should respond_to(:check_apply_tax)
+        watir_definition.should respond_to(:uncheck_apply_tax)
+      end
+    end
+
+    context "when used by the watir platform" do
+      it "should locate the checkbox" do
+        watir_browser.should_receive(:checkbox).and_return(watir_browser)
+        web_object = watir_definition.apply_tax_object
+        web_object.should_not be_nil
+        web_object.should be_instance_of Symbiont::WebObjects::CheckBox
+      end
+
+      it "should determine if a checkbox exists" do
+        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
+        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
+        watir_definition.apply_tax_exists?.should be_true
+        watir_definition.apply_tax?.should be_true
+      end
+
+      it "should determine if a checkbox is visible" do
+        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
+        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
+        watir_definition.apply_tax_visible?.should be_true
+        watir_definition.apply_tax_?.should be_true
+      end
+
+      it "should determine if a checkbox is enabled" do
+        watir_browser.should_receive(:checkbox).twice.and_return(watir_browser)
+        watir_browser.should_receive(:enabled?).twice.and_return(watir_browser)
+        watir_definition.apply_tax_enabled?.should be_true
+        watir_definition.apply_tax!.should be_true
+      end
+
+      it "should determine if a checkbox is checked" do
+        watir_browser.should_receive(:checkbox).and_return(watir_browser)
+        watir_browser.should_receive(:set?).and_return(true)
+        watir_definition.apply_tax_checked?.should be_true
+      end
+
+      it "should be able to check a checkbox" do
+        watir_browser.should_receive(:checkbox).and_return(watir_browser)
+        watir_browser.should_receive(:set)
+        watir_definition.check_apply_tax
+      end
+
+      it "should be able to uncheck a checkbox" do
+        watir_browser.should_receive(:checkbox).and_return(watir_browser)
+        watir_browser.should_receive(:clear)
+        watir_definition.uncheck_apply_tax
+      end
+
+      it "should call a block on the checkbox if specified" do
+        watir_definition.apply_fee_object.should == "apply_fee"
+      end
+    end
+  end
+end

data/spec/symbiont/generators/div_generators_spec.rb

@@ -1,52 +1,56 @@
-require 'spec_helper'
-
-describe Symbiont::Generators do
-  let(:watir_browser) { mock_browser_for_watir }
-  let(:watir_definition) { DefinitionTest.new(watir_browser) }
-  
-  describe "div web objects" do
-    context "when declared in a definition" do
-      it "should generate methods for referencing the div" do
-        watir_definition.should respond_to(:section_div)
-        watir_definition.should respond_to(:section_object)
-      end
-      
-      it "should generate methods for interacting with the div" do
-        watir_definition.should respond_to(:section_exists?)
-        watir_definition.should respond_to(:section_visible?)
-        watir_definition.should respond_to(:section?)
-        watir_definition.should respond_to(:section_?)
-        watir_definition.should respond_to(:section)
-      end
-    end
-    
-    context "when used by the watir platform" do
-      it "should locate the div" do
-        watir_browser.should_receive(:div).and_return(watir_browser)
-        web_object = watir_definition.section_div
-        web_object.should_not be_nil
-        web_object.should be_instance_of Symbiont::WebObjects::Div
-      end
-      
-      it "should determine if a div exists" do
-        watir_browser.should_receive(:div).twice.and_return(watir_browser)
-        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
-        watir_definition.section_exists?.should be_true
-        watir_definition.section?.should be_true
-      end
-      
-      it "should determine if a div is visible" do
-        watir_browser.should_receive(:div).twice.and_return(watir_browser)
-        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
-        watir_definition.section_visible?.should be_true
-        watir_definition.section_?.should be_true
-      end
-      
-      it "should return the text of a div" do
-        watir_browser.should_receive(:div).and_return(watir_browser)
-        watir_browser.should_receive(:text).and_return("testing")
-        watir_definition.section.should == "testing"
-      end
-    end
-  end
-end
+require 'spec_helper'
+
+describe Symbiont::Generators do
+  let(:watir_browser)    { mock_browser_for_watir }
+  let(:watir_definition) { DefinitionTest.new(watir_browser) }
+
+  describe "div generators" do
+    context "when declared on a page definition" do
+      it "should generate methods for referencing the div" do
+        watir_definition.should respond_to(:section_div)
+        watir_definition.should respond_to(:section_object)
+      end
+
+      it "should generate methods for interacting with the div" do
+        watir_definition.should respond_to(:section_exists?)
+        watir_definition.should respond_to(:section_visible?)
+        watir_definition.should respond_to(:section?)
+        watir_definition.should respond_to(:section_?)
+        watir_definition.should respond_to(:section)
+      end
+    end
+
+    context "when used by the watir platform" do
+      it "should locate the div" do
+        watir_browser.should_receive(:div).and_return(watir_browser)
+        web_object = watir_definition.section_div
+        web_object.should_not be_nil
+        web_object.should be_instance_of Symbiont::WebObjects::Div
+      end
+
+      it "should determine if a div exists" do
+        watir_browser.should_receive(:div).twice.and_return(watir_browser)
+        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
+        watir_definition.section_exists?.should be_true
+        watir_definition.section?.should be_true
+      end
+
+      it "should determine if a div is visible" do
+        watir_browser.should_receive(:div).twice.and_return(watir_browser)
+        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
+        watir_definition.section_visible?.should be_true
+        watir_definition.section_?.should be_true
+      end
+
+      it "should return the text of a div" do
+        watir_browser.should_receive(:div).and_return(watir_browser)
+        watir_browser.should_receive(:text).and_return("testing")
+        watir_definition.section.should == "testing"
+      end
+
+      it "should call a block on the div if specified" do
+        watir_definition.aside_object.should == "aside"
+      end
+    end
+  end
+end

data/spec/symbiont/generators/hidden_field_generators_spec.rb

@@ -0,0 +1,65 @@
+require 'spec_helper'
+
+describe Symbiont::Generators do
+  let(:watir_browser)    { mock_browser_for_watir }
+  let(:watir_definition) { DefinitionTest.new(watir_browser) }
+
+  describe "hidden field generators" do
+    context "when declared on a page definition" do
+      it "should generate methods for referencing the hidden field" do
+        watir_definition.should respond_to(:ssn_hidden_field)
+        watir_definition.should respond_to(:ssn_object)
+      end
+
+      it "should generate methods for interacting with the hidden field" do
+        watir_definition.should respond_to(:ssn)
+        watir_definition.should respond_to(:ssn_exists?)
+        watir_definition.should respond_to(:ssn_visible?)
+        watir_definition.should respond_to(:ssn_enabled?)
+        watir_definition.should respond_to(:ssn?)
+        watir_definition.should respond_to(:ssn_?)
+        watir_definition.should respond_to(:ssn!)
+      end
+    end
+
+    context "when used by the watir platform" do
+      it "should locate the hidden field" do
+        watir_browser.should_receive(:hidden).and_return(watir_browser)
+        web_object = watir_definition.ssn_object
+        web_object.should_not be_nil
+        web_object.should be_instance_of Symbiont::WebObjects::HiddenField
+      end
+
+      it "should retrieve text from the text field" do
+        watir_browser.should_receive(:hidden).and_return(watir_browser)
+        watir_browser.should_receive(:value).and_return("testing")
+        watir_definition.ssn.should == "testing"
+      end
+
+      it "should determine if a hidden field exists" do
+        watir_browser.should_receive(:hidden).twice.and_return(watir_browser)
+        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
+        watir_definition.ssn_exists?.should be_true
+        watir_definition.ssn?.should be_true
+      end
+
+      it "should determine if a hidden field is visible" do
+        watir_browser.should_receive(:hidden).twice.and_return(watir_browser)
+        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
+        watir_definition.ssn_visible?.should be_true
+        watir_definition.ssn_?.should be_true
+      end
+
+      it "should determine if a hidden field is enabled" do
+        watir_browser.should_receive(:hidden).twice.and_return(watir_browser)
+        watir_browser.should_receive(:enabled?).twice.and_return(watir_browser)
+        watir_definition.ssn_enabled?.should be_true
+        watir_definition.ssn!.should be_true
+      end
+
+      it "should call a block on the hidden field if specified" do
+        watir_definition.visa_object.should == "visa"
+      end
+    end
+  end
+end

data/spec/symbiont/generators/link_generators_spec.rb

@@ -1,59 +1,62 @@
 require 'spec_helper'
 
 describe Symbiont::Generators do
-  let(:watir_browser) { mock_browser_for_watir }
+  let(:watir_browser)    { mock_browser_for_watir }
   let(:watir_definition) { DefinitionTest.new(watir_browser) }
 
-  describe "link web objects" do
-    context "when declared in a definition" do
+  describe "link generators" do
+    context "when declared on a page definition" do
       it "should generate methods for referencing the link" do
-        watir_definition.should respond_to(:reset_password_object)
-        watir_definition.should respond_to(:reset_password_link)
+        watir_definition.should respond_to(:welcome_object)
+        watir_definition.should respond_to(:welcome_link)
       end
 
       it "should generate methods for interacting with the link" do
-        watir_definition.should respond_to(:reset_password)
-        watir_definition.should respond_to(:reset_password_text)
-        watir_definition.should respond_to(:reset_password_exists?)
-        watir_definition.should respond_to(:reset_password_visible?)
-        watir_definition.should respond_to(:reset_password?)
-        watir_definition.should respond_to(:reset_password_?)
+        watir_definition.should respond_to(:welcome)
+        watir_definition.should respond_to(:welcome_text)
+        watir_definition.should respond_to(:welcome_exists?)
+        watir_definition.should respond_to(:welcome_visible?)
+        watir_definition.should respond_to(:welcome?)
+        watir_definition.should respond_to(:welcome_?)
       end
     end
 
     context "when used by the watir platform" do
+      it "should click the link" do
+        watir_browser.stub_chain(:link, :click)
+        watir_definition.welcome
+      end
+
       it "should locate the link" do
         watir_browser.should_receive(:link).and_return(watir_browser)
-        web_object = watir_definition.reset_password_object
+        web_object = watir_definition.welcome_object
         web_object.should_not be_nil
         web_object.should be_instance_of Symbiont::WebObjects::Link
       end
 
-      it "should return the text of the link" do
+      it "should retrieve text from the link" do
         watir_browser.should_receive(:link).and_return(watir_browser)
-        watir_browser.should_receive(:text).and_return('Reset Password')
-        watir_definition.reset_password_text.should == "Reset Password"
-      end
-      
-      it "should click the link" do
-        watir_browser.stub_chain(:link, :click)
-        watir_definition.reset_password
+        watir_browser.should_receive(:text).and_return('Welcome')
+        watir_definition.welcome_text.should == "Welcome"
       end
 
       it "should determine if a link exists" do
         watir_browser.should_receive(:link).twice.and_return(watir_browser)
         watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
-        watir_definition.reset_password_exists?.should be_true
-        watir_definition.reset_password?.should be_true
+        watir_definition.welcome_exists?.should be_true
+        watir_definition.welcome?.should be_true
       end
-      
+
       it "should determine if a link is visible" do
         watir_browser.should_receive(:link).twice.and_return(watir_browser)
         watir_browser.should_receive(:present?).twice.and_return(watir_browser)
-        watir_definition.reset_password_visible?.should be_true
-        watir_definition.reset_password_?.should be_true
+        watir_definition.welcome_visible?.should be_true
+        watir_definition.welcome_?.should be_true
       end
-    end
 
+      it "should call a block on the link if specified" do
+        watir_definition.greetings_object.should == "greetings"
+      end
+    end
   end
-end
+end

data/spec/symbiont/generators/paragraph_generators_spec.rb

@@ -1,29 +1,30 @@
 require 'spec_helper'
 
 describe Symbiont::Generators do
-  let(:watir_browser) { mock_browser_for_watir }
+  let(:watir_browser)    { mock_browser_for_watir }
   let(:watir_definition) { DefinitionTest.new(watir_browser) }
 
-  describe "paragraph web objects" do
-    context "when declared in a definition" do
+  describe "paragraph generators" do
+    context "when declared on a page definition" do
       it "should generate methods for referencing the paragraph" do
-        watir_definition.should respond_to(:intro_paragraph)
-        watir_definition.should respond_to(:intro_object)
+        watir_definition.should respond_to(:first_paragraph)
+        watir_definition.should respond_to(:first_object)
+        watir_definition.should respond_to(:last_paragraph)
       end
 
       it "should generate methods for interacting with the paragraph" do
-        watir_definition.should respond_to(:intro_exists?)
-        watir_definition.should respond_to(:intro_visible?)
-        watir_definition.should respond_to(:intro?)
-        watir_definition.should respond_to(:intro_?)
-        watir_definition.should respond_to(:intro)
+        watir_definition.should respond_to(:first_exists?)
+        watir_definition.should respond_to(:first_visible?)
+        watir_definition.should respond_to(:first?)
+        watir_definition.should respond_to(:first_?)
+        watir_definition.should respond_to(:first)
       end
     end
 
     context "when used by the watir platform" do
       it "should locate the paragraph" do
         watir_browser.should_receive(:p).and_return(watir_browser)
-        web_object = watir_definition.intro_paragraph
+        web_object = watir_definition.first_paragraph
         web_object.should_not be_nil
         web_object.should be_instance_of Symbiont::WebObjects::Paragraph
       end
@@ -31,22 +32,26 @@ describe Symbiont::Generators do
       it "should determine if a paragraph exists" do
         watir_browser.should_receive(:p).twice.and_return(watir_browser)
         watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
-        watir_definition.intro_exists?.should be_true
-        watir_definition.intro?.should be_true
+        watir_definition.first_exists?.should be_true
+        watir_definition.first?.should be_true
       end
 
       it "should determine if a paragraph is visible" do
         watir_browser.should_receive(:p).twice.and_return(watir_browser)
         watir_browser.should_receive(:present?).twice.and_return(watir_browser)
-        watir_definition.intro_visible?.should be_true
-        watir_definition.intro_?.should be_true
+        watir_definition.first_visible?.should be_true
+        watir_definition.first_?.should be_true
       end
 
       it "should return the text of a paragraph" do
         watir_browser.should_receive(:p).and_return(watir_browser)
         watir_browser.should_receive(:text).and_return("testing")
-        watir_definition.intro.should == "testing"
+        watir_definition.first.should == "testing"
+      end
+
+      it "should call a block on the paragraph if specified" do
+        watir_definition.middle_object.should == "middle"
       end
     end
   end
-end
+end

data/spec/symbiont/generators/radio_generators_spec.rb

@@ -1,77 +1,76 @@
-require 'spec_helper'
-
-describe Symbiont::Generators do
-  let(:watir_browser) { mock_browser_for_watir }
-  let(:watir_definition) { DefinitionTest.new(watir_browser) }
-  
-  describe "radio web objects" do
-    context "when declared in a definition" do
-      it "should generate methods for referencing the radio" do
-        watir_definition.should respond_to(:include_tax_radio)
-        watir_definition.should respond_to(:include_tax_object)
-      end
-      
-      it "should generate methods for interacting with the radio" do
-        watir_definition.should respond_to(:include_tax_exists?)
-        watir_definition.should respond_to(:include_tax_visible?)
-        watir_definition.should respond_to(:include_tax_enabled?)
-        watir_definition.should respond_to(:include_tax?)
-        watir_definition.should respond_to(:include_tax_?)
-        watir_definition.should respond_to(:include_tax!)
-        watir_definition.should respond_to(:include_tax_selected?)
-        watir_definition.should respond_to(:include_tax_set?)
-        watir_definition.should respond_to(:set_include_tax)
-      end
-    end
-    
-    context "when used by the watir platform" do
-      it "should locate the radio" do
-        watir_browser.should_receive(:radio).and_return(watir_browser)
-        web_object = watir_definition.include_tax_radio
-        web_object.should_not be_nil
-        web_object.should be_instance_of Symbiont::WebObjects::Radio
-      end
-      
-      it "should determine if a radio exists" do
-        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
-        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
-        watir_definition.include_tax_exists?.should be_true
-        watir_definition.include_tax?.should be_true
-      end
-      
-      it "should determine if a radio is visible" do
-        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
-        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
-        watir_definition.include_tax_visible?.should be_true
-        watir_definition.include_tax_?.should be_true
-      end
-      
-      it "should determine if a radio is enabled" do
-        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
-        watir_browser.should_receive(:enabled?).twice.and_return(watir_browser)
-        watir_definition.include_tax_enabled?.should be_true
-        watir_definition.include_tax!.should be_true
-      end
-      
-      it "should determine if a radio is set" do
-        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
-        watir_browser.should_receive(:set?).twice.and_return(watir_browser)
-        watir_definition.include_tax_selected?.should be_true
-        watir_definition.include_tax_set?.should be_true
-      end
-      
-      it "should set a radio" do
-        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
-        watir_browser.should_receive(:set).twice.and_return(watir_browser)
-        watir_definition.select_include_tax
-        watir_definition.set_include_tax
-      end
-      
-      #it "should clear a radio" do
-      #  watir_browser.should_receive(:radio).and_return(watir_browser)
-      #  watir_browser.should_receive(:clear).and_return(watir_browser)
-      #  watir_definition.clear_include_tax
-      #end
-    end
-  end
-end
+require 'spec_helper'
+
+describe Symbiont::Generators do
+  let(:watir_browser)    { mock_browser_for_watir }
+  let(:watir_definition) { DefinitionTest.new(watir_browser) }
+
+  describe "radio web objects" do
+    context "when declared on a page definition" do
+      it "should generate methods for referencing the radio" do
+        watir_definition.should respond_to(:include_tax_radio)
+        watir_definition.should respond_to(:include_tax_object)
+      end
+
+      it "should generate methods for interacting with the radio" do
+        watir_definition.should respond_to(:include_tax_exists?)
+        watir_definition.should respond_to(:include_tax_visible?)
+        watir_definition.should respond_to(:include_tax_enabled?)
+        watir_definition.should respond_to(:include_tax?)
+        watir_definition.should respond_to(:include_tax_?)
+        watir_definition.should respond_to(:include_tax!)
+        watir_definition.should respond_to(:include_tax_selected?)
+        watir_definition.should respond_to(:include_tax_set?)
+        watir_definition.should respond_to(:set_include_tax)
+      end
+    end
+
+    context "when used by the watir platform" do
+      it "should locate the radio" do
+        watir_browser.should_receive(:radio).and_return(watir_browser)
+        web_object = watir_definition.include_tax_radio
+        web_object.should_not be_nil
+        web_object.should be_instance_of Symbiont::WebObjects::Radio
+      end
+
+      it "should determine if a radio exists" do
+        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
+        watir_browser.should_receive(:exists?).twice.and_return(watir_browser)
+        watir_definition.include_tax_exists?.should be_true
+        watir_definition.include_tax?.should be_true
+      end
+
+      it "should determine if a radio is visible" do
+        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
+        watir_browser.should_receive(:present?).twice.and_return(watir_browser)
+        watir_definition.include_tax_visible?.should be_true
+        watir_definition.include_tax_?.should be_true
+      end
+
+      it "should determine if a radio is enabled" do
+        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
+        watir_browser.should_receive(:enabled?).twice.and_return(watir_browser)
+        watir_definition.include_tax_enabled?.should be_true
+        watir_definition.include_tax!.should be_true
+      end
+
+      it "should determine if a radio is set" do
+        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
+        watir_browser.should_receive(:set?).twice.and_return(watir_browser)
+        watir_definition.include_tax_selected?.should be_true
+        watir_definition.include_tax_set?.should be_true
+      end
+
+      it "should set a radio" do
+        watir_browser.should_receive(:radio).twice.and_return(watir_browser)
+        watir_browser.should_receive(:set).twice.and_return(watir_browser)
+        watir_definition.select_include_tax
+        watir_definition.set_include_tax
+      end
+
+      it "should call a block on the radio if specified" do
+        watir_definition.include_fee_object.should == "include_fee"
+      end
+    end
+
+  end
+end