operawatir 0.3-jruby

data/spec/legacy_watirspec/p_spec.rb

@@ -0,0 +1,167 @@
+# encoding: utf-8
+require File.expand_path("../spec_helper", __FILE__)
+
+describe "P" do
+
+  before :each do
+    browser.goto(WatirSpec.files + "/non_control_elements.html")
+  end
+
+  # Exists method
+  describe "#exist?" do
+    it "returns true if the 'p' exists" do
+      browser.p(:id, "lead").should exist
+      browser.p(:id, /lead/).should exist
+      browser.p(:text, "Dubito, ergo cogito, ergo sum.").should exist
+      browser.p(:text, /Dubito, ergo cogito, ergo sum/).should exist
+      browser.p(:class, "lead").should exist
+      browser.p(:class, /lead/).should exist
+      browser.p(:index, 1).should exist
+      browser.p(:xpath, "//p[@id='lead']").should exist
+    end
+
+    it "returns true if the element exists (default how = :id)" do
+      browser.p("lead").should exist
+    end
+
+    it "returns the first p if given no args" do
+      browser.p.should exist
+    end
+
+    it "returns false if the 'p' doesn't exist" do
+      browser.p(:id, "no_such_id").should_not exist
+      browser.p(:id, /no_such_id/).should_not exist
+      browser.p(:text, "no_such_text").should_not exist
+      browser.p(:text, /no_such_text/).should_not exist
+      browser.p(:class, "no_such_class").should_not exist
+      browser.p(:class, /no_such_class/).should_not exist
+      browser.p(:index, 1337).should_not exist
+      browser.p(:xpath, "//p[@id='no_such_id']").should_not exist
+    end
+
+    it "raises TypeError when 'what' argument is invalid" do
+      lambda { browser.p(:id, 3.14).exists? }.should raise_error(TypeError)
+    end
+
+    it "raises MissingWayOfFindingObjectException when 'how' argument is invalid" do
+      lambda { browser.p(:no_such_how, 'some_value').exists? }.should raise_error(MissingWayOfFindingObjectException)
+    end
+  end
+
+  # Attribute methods
+  describe "#class_name" do
+    it "returns the class attribute" do
+      browser.p(:index, 1).class_name.should == 'lead'
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.p(:index, 3).class_name.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id, 'no_such_id').class_name }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#id" do
+    it "returns the id attribute" do
+      browser.p(:index, 1).id.should == "lead"
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.p(:index, 3).id.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id, "no_such_id").id }.should raise_error(UnknownObjectException)
+      lambda { browser.p(:index, 1337).id }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#name" do
+    it "returns the name attribute" do
+      browser.p(:index, 2).name.should == "invalid_attribute"
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.p(:index, 3).name.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id, "no_such_id").name }.should raise_error(UnknownObjectException)
+      lambda { browser.p(:index, 1337).name }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#title" do
+    it "returns the title attribute" do
+      browser.p(:index, 1).title.should == 'Lorem ipsum'
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.p(:index, 3).title.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id, 'no_such_id').title }.should raise_error( UnknownObjectException)
+      lambda { browser.p(:xpath, "//p[@id='no_such_id']").title }.should raise_error( UnknownObjectException)
+    end
+  end
+
+  describe "#text" do
+    it "returns the text of the p" do
+      browser.p(:index, 2).text.should == 'Sed pretium metus et quam. Nullam odio dolor, vestibulum non, tempor ut, vehicula sed, sapien. Vestibulum placerat ligula at quam. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.'
+    end
+
+    it "returns an empty string if the element doesn't contain any text" do
+      browser.p(:index, 5).text.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id, 'no_such_id').text }.should raise_error( UnknownObjectException)
+      lambda { browser.p(:xpath , "//p[@id='no_such_id']").text }.should raise_error( UnknownObjectException)
+    end
+  end
+
+  describe "#value" do
+    it "returns the value attribute" do
+      browser.p(:index, 2).value.should == "invalid_attribute"
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.p(:index, 3).value.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:id , "no_such_id").value }.should raise_error(UnknownObjectException)
+      lambda { browser.p(:index , 1337).value }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#respond_to?" do
+    it "returns true for all attribute methods" do
+      browser.p(:index, 1).should respond_to(:class_name)
+      browser.p(:index, 1).should respond_to(:id)
+      browser.p(:index, 1).should respond_to(:name)
+      browser.p(:index, 1).should respond_to(:title)
+      browser.p(:index, 1).should respond_to(:text)
+      browser.p(:index, 1).should respond_to(:value)
+    end
+  end
+
+  # Other
+  describe "#to_s" do
+    it "returns a human readable representation of the element" do
+      browser.p(:index, 1).to_s.should == "tag:          p\n" +
+                                      "  id:           lead\n" +
+                                      "  class:        lead\n" +
+                                      "  title:        Lorem ipsum\n" +
+                                      "  text:         Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Curabitur eu pede. Ut justo. Praesent feugiat, elit in feugiat iaculis, sem risus rutrum justo, eget fermentum dolor arcu non nunc."
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.p(:xpath, "//p[@id='no_such_id']").to_s }.should raise_error( UnknownObjectException)
+    end
+  end
+
+end

data/spec/legacy_watirspec/pre_spec.rb

@@ -0,0 +1,133 @@
+# encoding: utf-8
+require File.expand_path("../spec_helper", __FILE__)
+
+describe "Pre" do
+
+  before :each do
+    browser.goto(WatirSpec.files + "/non_control_elements.html")
+  end
+
+  # Exists method
+  describe "#exist?" do
+    it "returns true if the 'p' exists" do
+      browser.pre(:id, "rspec").should exist
+      browser.pre(:id, /rspec/).should exist
+      browser.pre(:text, 'browser.pre(:id, "rspec").should exist').should exist
+      browser.pre(:text, /browser\.pre/).should exist
+      browser.pre(:class, "ruby").should exist
+      browser.pre(:class, /ruby/).should exist
+      browser.pre(:index, 1).should exist
+      browser.pre(:xpath, "//pre[@id='rspec']").should exist
+    end
+
+    it "returns true if the element exists (default how = :id)" do
+      browser.pre("rspec").should exist
+    end
+
+    it "returns the first pre if given no args" do
+      browser.pre.should exist
+    end
+
+    it "returns false if the 'p' doesn't exist" do
+      browser.pre(:id, "no_such_id").should_not exist
+      browser.pre(:id, /no_such_id/).should_not exist
+      browser.pre(:text, "no_such_text").should_not exist
+      browser.pre(:text, /no_such_text/).should_not exist
+      browser.pre(:class, "no_such_class").should_not exist
+      browser.pre(:class, /no_such_class/).should_not exist
+      browser.pre(:index, 1337).should_not exist
+      browser.pre(:xpath, "//pre[@id='no_such_id']").should_not exist
+    end
+
+    it "raises TypeError when 'what' argument is invalid" do
+      lambda { browser.pre(:id, 3.14).exists? }.should raise_error(TypeError)
+    end
+
+    it "raises MissingWayOfFindingObjectException when 'how' argument is invalid" do
+      lambda { browser.pre(:no_such_how, 'some_value').exists? }.should raise_error(MissingWayOfFindingObjectException)
+    end
+  end
+
+  # Attribute methods
+  describe "#class_name" do
+    it "returns the class attribute" do
+      browser.pre(:id, 'rspec').class_name.should == 'ruby'
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.pre(:index, 1).class_name.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.pre(:id, 'no_such_id').class_name }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#id" do
+    it "returns the id attribute" do
+      browser.pre(:class, 'ruby').id.should == "rspec"
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.pre(:index, 1).id.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.pre(:id, "no_such_id").id }.should raise_error(UnknownObjectException)
+      lambda { browser.pre(:index, 1337).id }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#title" do
+    it "returns the title attribute" do
+      browser.pre(:class, 'brainfuck').title.should == 'The brainfuck language is an esoteric programming language noted for its extreme minimalism'
+    end
+
+    it "returns an empty string if the element exists and the attribute doesn't" do
+      browser.pre(:index, 1).title.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.pre(:id, 'no_such_id').title }.should raise_error( UnknownObjectException)
+      lambda { browser.pre(:xpath, "//pre[@id='no_such_id']").title }.should raise_error( UnknownObjectException)
+    end
+  end
+
+  describe "#text" do
+    it "returns the text of the p" do
+      browser.pre(:class, 'haskell').text.should == 'main = putStrLn "Hello World"'
+    end
+
+    it "returns an empty string if the element doesn't contain any text" do
+      browser.pre(:index, 1).text.should == ''
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.pre(:id, 'no_such_id').text }.should raise_error( UnknownObjectException)
+      lambda { browser.pre(:xpath , "//pre[@id='no_such_id']").text }.should raise_error( UnknownObjectException)
+    end
+  end
+
+  describe "#respond_to?" do
+    it "returns true for all attribute methods" do
+      browser.image(:index, 1).should respond_to(:class_name)
+      browser.image(:index, 1).should respond_to(:id)
+      browser.image(:index, 1).should respond_to(:title)
+      browser.image(:index, 1).should respond_to(:text)
+    end
+  end
+
+  # Other
+  describe "#to_s" do
+    bug "WTR-350", :watir do
+      it "returns a human readable representation of the element" do
+        browser.pre(:index, 1).to_s.should == "tag:          pre"
+      end
+    end
+
+    it "raises UnknownObjectException if the p doesn't exist" do
+      lambda { browser.pre(:xpath, "//pre[@id='no_such_id']").to_s }.should raise_error( UnknownObjectException)
+    end
+  end
+
+end

data/spec/legacy_watirspec/pres_spec.rb

@@ -0,0 +1,38 @@
+# encoding: utf-8
+require File.expand_path("../spec_helper", __FILE__)
+
+describe "Pres" do
+
+  before :each do
+    browser.goto(WatirSpec.files + "/non_control_elements.html")
+  end
+
+  describe "#length" do
+    it "returns the number of pres" do
+      browser.pres.length.should == 7
+    end
+  end
+
+  describe "#[]" do
+    it "returns the pre at the given index" do
+      browser.pres[2].id.should == "rspec"
+    end
+  end
+
+  describe "#each" do
+    it "iterates through pres correctly" do
+      count = 0
+
+      browser.pres.each_with_index do |p, index|
+        p.name.should == browser.pre(:index, index+1).name
+        p.id.should == browser.pre(:index, index+1).id
+        p.value.should == browser.pre(:index, index+1).value
+
+        count += 1
+      end
+
+      count.should > 0
+    end
+  end
+
+end

data/spec/legacy_watirspec/ps_spec.rb

@@ -0,0 +1,38 @@
+# encoding: utf-8
+require File.expand_path("../spec_helper", __FILE__)
+
+describe "Ps" do
+
+  before :each do
+    browser.goto(WatirSpec.files + "/non_control_elements.html")
+  end
+
+  describe "#length" do
+    it "returns the number of ps" do
+      browser.ps.length.should == 5
+    end
+  end
+
+  describe "#[]" do
+    it "returns the p at the given index" do
+      browser.ps[1].id.should == "lead"
+    end
+  end
+
+  describe "#each" do
+    it "iterates through ps correctly" do
+      count = 0
+
+      browser.ps.each_with_index do |p, index|
+        p.name.should == browser.p(:index, index+1).name
+        p.id.should == browser.p(:index, index+1).id
+        p.value.should == browser.p(:index, index+1).value
+
+        count += 1
+      end
+
+      count.should > 0
+    end
+  end
+
+end

data/spec/legacy_watirspec/radio_spec.rb

@@ -0,0 +1,286 @@
+# encoding: utf-8
+require File.expand_path("../spec_helper", __FILE__)
+
+describe "Radio" do
+
+  before :each do
+    browser.goto(WatirSpec.files + "/forms_with_input_elements.html")
+  end
+
+  # Exists method
+  describe "#exists?" do
+    it "returns true if the radio button exists" do
+      browser.radio(:id, "new_user_newsletter_yes").should exist
+      browser.radio(:id, /new_user_newsletter_yes/).should exist
+      browser.radio(:name, "new_user_newsletter").should exist
+      browser.radio(:name, /new_user_newsletter/).should exist
+      browser.radio(:value, "yes").should exist
+      browser.radio(:value, /yes/).should exist
+      # TODO: figure out what :text means for a radio button
+      # browser.radio(:text, "yes").should exist
+      # browser.radio(:text, /yes/).should exist
+      browser.radio(:class, "huge").should exist
+      browser.radio(:class, /huge/).should exist
+      browser.radio(:index, 1).should exist
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_yes']").should exist
+    end
+
+    it "returns the first radio if given no args" do
+      browser.radio.should exist
+    end
+
+    it "returns true if the element exists (default how = :name)" do
+      browser.radio("new_user_newsletter").should exist
+    end
+
+    it "returns true if the radio button exists (search by name and value)" do
+      browser.radio(:name, "new_user_newsletter", 'yes').should exist
+      browser.radio(:xpath, "//input[@name='new_user_newsletter' and @value='yes']").set
+    end
+
+    it "returns false if the radio button does not exist" do
+      browser.radio(:id, "no_such_id").should_not exist
+      browser.radio(:id, /no_such_id/).should_not exist
+      browser.radio(:name, "no_such_name").should_not exist
+      browser.radio(:name, /no_such_name/).should_not exist
+      browser.radio(:value, "no_such_value").should_not exist
+      browser.radio(:value, /no_such_value/).should_not exist
+      browser.radio(:text, "no_such_text").should_not exist
+      browser.radio(:text, /no_such_text/).should_not exist
+      browser.radio(:class, "no_such_class").should_not exist
+      browser.radio(:class, /no_such_class/).should_not exist
+      browser.radio(:index, 1337).should_not exist
+      browser.radio(:xpath, "input[@id='no_such_id']").should_not exist
+    end
+
+    it "returns false if the radio button does not exist (search by name and value)" do
+      browser.radio(:name, "new_user_newsletter", 'no_such_value').should_not exist
+      browser.radio(:xpath, "//input[@name='new_user_newsletter' and @value='no_such_value']").should_not exist
+      browser.radio(:name, "no_such_name", 'yes').should_not exist
+      browser.radio(:xpath, "//input[@name='no_such_name' and @value='yes']").should_not exist
+    end
+
+    it "returns true for radios with a string value" do
+      browser.radio(:name, 'new_user_newsletter', 'yes').should exist
+      browser.radio(:name, 'new_user_newsletter', 'no').should exist
+    end
+
+    it "raises TypeError when 'what' argument is invalid" do
+      lambda { browser.radio(:id, 3.14).exists? }.should raise_error(TypeError)
+    end
+
+    it "raises MissingWayOfFindingObjectException when 'how' argument is invalid" do
+      lambda { browser.radio(:no_such_how, 'some_value').exists? }.should raise_error(MissingWayOfFindingObjectException)
+    end
+  end
+
+  # Attribute methods
+  describe "#class_name" do
+    it "returns the class name if the radio exists and has an attribute" do
+      browser.radio(:id, "new_user_newsletter_yes").class_name.should == "huge"
+    end
+
+    it "returns an emptry string if the radio exists and the attribute doesn't" do
+      browser.radio(:id, "new_user_newsletter_no").class_name.should == ""
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:id, "no_such_id").class_name }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#id" do
+    it "returns the id attribute if the radio exists and has an attribute" do
+      browser.radio(:index, 1).id.should == "new_user_newsletter_yes"
+    end
+
+    it "returns an emptry string if the radio exists and the attribute doesn't" do
+      browser.radio(:index, 3).id.should == ""
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).id }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#name" do
+    it "returns the name attribute if the radio exists" do
+      browser.radio(:id, 'new_user_newsletter_yes').name.should == "new_user_newsletter"
+    end
+
+    it "returns an empty string if the radio exists and the attribute doesn't" do
+      browser.radio(:id, 'new_user_newsletter_absolutely').name.should == ""
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).name }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#title" do
+    it "returns the title attribute if the radio exists" do
+      browser.radio(:id, "new_user_newsletter_no").title.should == "Traitor!"
+    end
+
+    it "returns an emptry string if the radio exists and the attribute doesn't" do
+      browser.radio(:id, "new_user_newsletter_yes").title.should == ""
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).title }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#type" do
+    it "returns the type attribute if the radio exists" do
+      browser.radio(:index, 1).type.should == "radio"
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).type }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#value" do
+    it "returns the value attribute if the radio exists" do
+      browser.radio(:id, 'new_user_newsletter_yes').value.should == 'yes'
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).value}.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#respond_to?" do
+    it "returns true for all attribute methods" do
+      browser.radio(:index, 1).should respond_to(:class_name)
+      browser.radio(:index, 1).should respond_to(:id)
+      browser.radio(:index, 1).should respond_to(:name)
+      browser.radio(:index, 1).should respond_to(:title)
+      browser.radio(:index, 1).should respond_to(:type)
+      browser.radio(:index, 1).should respond_to(:value)
+    end
+  end
+
+  # Access methods
+  describe "#enabled?" do
+    it "returns true if the radio button is enabled" do
+      browser.radio(:id, "new_user_newsletter_yes").should be_enabled
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_yes']").should be_enabled
+    end
+
+    it "returns false if the radio button is disabled" do
+      browser.radio(:id, "new_user_newsletter_nah").should_not be_enabled
+      browser.radio(:xpath,"//input[@id='new_user_newsletter_nah']").should_not be_enabled
+    end
+
+    it "raises UnknownObjectException if the radio button doesn't exist" do
+      lambda { browser.radio(:id, "no_such_id").enabled?  }.should raise_error(UnknownObjectException)
+      lambda { browser.radio(:xpath, "//input[@id='no_such_id']").enabled?  }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  describe "#disabled?" do
+    it "returns true if the radio is disabled" do
+      browser.radio(:id, 'new_user_newsletter_nah').should be_disabled
+    end
+
+    it "returns false if the radio is enabled" do
+      browser.radio(:id, 'new_user_newsletter_yes').should_not be_disabled
+    end
+
+    it "raises UnknownObjectException if the radio doesn't exist" do
+      lambda { browser.radio(:index, 1337).disabled? }.should raise_error(UnknownObjectException)
+    end
+  end
+
+  # Manipulation methods
+  describe "#clear" do
+    it "clears the radio button if it is set" do
+      browser.radio(:id, "new_user_newsletter_yes").clear
+      browser.radio(:id, "new_user_newsletter_yes").should_not be_set
+    end
+
+    it "clears the radio button when found by :xpath" do
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_yes']").clear
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_yes']").should_not be_set
+    end
+
+    it "raises UnknownObjectException if the radio button doesn't exist" do
+      lambda { browser.radio(:name, "no_such_id").clear }.should raise_error(UnknownObjectException)
+      lambda { browser.radio(:xpath, "//input[@id='no_such_id']").clear  }.should raise_error(UnknownObjectException)
+    end
+
+    it "raises ObjectDisabledException if the radio is disabled" do
+      browser.radio(:id, "new_user_newsletter_nah").should_not be_set
+      lambda { browser.radio(:id, "new_user_newsletter_nah").clear }.should raise_error(ObjectDisabledException)
+      lambda { browser.radio(:xpath, "//input[@id='new_user_newsletter_nah']").clear }.should raise_error(ObjectDisabledException)
+    end
+  end
+
+  describe "#set" do
+    it "sets the radio button" do
+      browser.radio(:id, "new_user_newsletter_no").set
+      browser.radio(:id, "new_user_newsletter_no").should be_set
+    end
+
+    it "sets the radio button when found by :xpath" do
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_no']").set
+      browser.radio(:xpath, "//input[@id='new_user_newsletter_no']").should be_set
+    end
+
+    it "fires the onclick event" do
+      browser.radio(:id, "new_user_newsletter_no").set
+      browser.radio(:id, "new_user_newsletter_yes").set
+      messages.should == ["clicked: new_user_newsletter_no", "clicked: new_user_newsletter_yes"]
+    end
+
+    bug "WTR-337", :watir do
+      it "fires the onchange event" do
+        browser.radio(:value, 'certainly').set
+        messages.should == ["changed: new_user_newsletter"]
+
+        browser.radio(:value, 'certainly').set
+        messages.should == ["changed: new_user_newsletter"] # no event fired here - didn't change
+
+        browser.radio(:value, 'certainly').clear
+        messages.should == ["changed: new_user_newsletter", "changed: new_user_newsletter"]
+      end
+    end
+
+    it "raises UnknownObjectException if the radio button doesn't exist" do
+      lambda { browser.radio(:name, "no_such_name").set  }.should raise_error(UnknownObjectException)
+      lambda { browser.radio(:xpath, "//input[@name='no_such_name']").set  }.should raise_error(UnknownObjectException)
+    end
+
+    it "raises ObjectDisabledException if the radio is disabled" do
+      lambda { browser.radio(:id, "new_user_newsletter_nah").set  }.should raise_error(ObjectDisabledException)
+      lambda { browser.radio(:xpath, "//input[@id='new_user_newsletter_nah']").set  }.should raise_error(ObjectDisabledException )
+    end
+  end
+
+  # Other
+  describe '#set?' do
+    it "returns true if the radio button is set" do
+      browser.radio(:id, "new_user_newsletter_yes").should be_set
+    end
+
+    it "returns false if the radio button unset" do
+      browser.radio(:id, "new_user_newsletter_no").should_not be_set
+    end
+
+    it "returns the state for radios with string values" do
+      browser.radio(:name, "new_user_newsletter", 'no').should_not be_set
+      browser.radio(:name, "new_user_newsletter", 'no').set
+      browser.radio(:name, "new_user_newsletter", 'no').should be_set
+      browser.radio(:name, "new_user_newsletter", 'no').clear
+      browser.radio(:name, "new_user_newsletter", 'no').should_not be_set
+    end
+
+    it "raises UnknownObjectException if the radio button doesn't exist" do
+      lambda { browser.radio(:id, "no_such_id").set?  }.should raise_error(UnknownObjectException)
+      lambda { browser.radio(:xpath, "//input[@id='no_such_id']").set?  }.should raise_error(UnknownObjectException)
+    end
+  end
+
+end