watir 1.4.1 → 7.3.0

data/spec/watirspec/elements/option_spec.rb

@@ -0,0 +1,113 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe Option do
+    before do
+      browser.goto(WatirSpec.url_for('forms_with_input_elements.html'))
+    end
+
+    describe '#exists?' do
+      it 'returns true if the element exists (page context)' do
+        expect(browser.option(id: 'nor')).to exist
+        expect(browser.option(id: /nor/)).to exist
+        expect(browser.option(value: '2')).to exist
+        expect(browser.option(value: /2/)).to exist
+        expect(browser.option(text: 'Norway')).to exist
+        expect(browser.option(text: /Norway/)).to exist
+        expect(browser.option(class: 'scandinavia')).to exist
+        expect(browser.option(index: 1)).to exist
+        expect(browser.option(xpath: "//option[@id='nor']")).to exist
+      end
+
+      it 'returns the first option if given no args' do
+        expect(browser.option).to exist
+      end
+
+      it 'returns true if the element exists (select_list context)' do
+        expect(browser.select_list(name: 'new_user_country').option(id: 'nor')).to exist
+        expect(browser.select_list(name: 'new_user_country').option(id: /nor/)).to exist
+        expect(browser.select_list(name: 'new_user_country').option(value: '2')).to exist
+        expect(browser.select_list(name: 'new_user_country').option(value: /2/)).to exist
+        expect(browser.select_list(name: 'new_user_country').option(text: 'Norway')).to exist
+        expect(browser.select_list(name: 'new_user_country').option(text: /Norway/)).to exist
+        expect(browser.select_list(name: 'new_user_country').option(class: 'scandinavia')).to exist
+        expect(browser.select_list(name: 'new_user_country').option(index: 1)).to exist
+        expect(browser.select_list(name: 'new_user_country').option(xpath: "//option[@id='nor']")).to exist
+        expect(browser.select_list(name: 'new_user_country').option(label: 'Germany')).to exist
+      end
+
+      it 'returns false if the element does not exist (page context)' do
+        expect(browser.option(id: 'no_such_id')).not_to exist
+        expect(browser.option(id: /no_such_id/)).not_to exist
+        expect(browser.option(value: 'no_such_value')).not_to exist
+        expect(browser.option(value: /no_such_value/)).not_to exist
+        expect(browser.option(text: 'no_such_text')).not_to exist
+        expect(browser.option(text: /no_such_text/)).not_to exist
+        expect(browser.option(class: 'no_such_class')).not_to exist
+        expect(browser.option(index: 1337)).not_to exist
+        expect(browser.option(xpath: "//option[@id='no_such_id']")).not_to exist
+      end
+
+      it 'returns false if the element does not exist (select_list context)' do
+        expect(browser.select_list(name: 'new_user_country').option(id: 'no_such_id')).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(id: /no_such_id/)).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(value: 'no_such_value')).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(value: /no_such_value/)).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(text: 'no_such_text')).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(text: /no_such_text/)).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(class: 'no_such_class')).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(index: 1337)).not_to exist
+        expect(browser.select_list(name: 'new_user_country').option(xpath: "//option[@id='no_such_id']")).not_to exist
+      end
+
+      it "raises TypeError when 'what' argument is invalid" do
+        expect { browser.option(id: 3.14).exists? }.to raise_error(TypeError)
+        expect { browser.select_list(name: 'new_user_country').option(id: 3.14).exists? }.to raise_error(TypeError)
+      end
+    end
+
+    describe '#select' do
+      it 'selects the chosen option (page context)' do
+        browser.option(text: 'Denmark').select
+        expect(browser.select_list(name: 'new_user_country').selected_options.map(&:text)).to eq ['Denmark']
+      end
+
+      it 'selects the chosen option (select_list context)' do
+        browser.select_list(name: 'new_user_country').option(text: 'Denmark').select
+        expect(browser.select_list(name: 'new_user_country').selected_options.map(&:text)).to eq ['Denmark']
+      end
+
+      it 'selects the option when found by text (page context)' do
+        browser.option(text: 'Sweden').select
+        expect(browser.option(text: 'Sweden')).to be_selected
+      end
+
+      it 'selects the option when found by text (select_list context)' do
+        browser.select_list(name: 'new_user_country').option(text: 'Sweden').select
+        expect(browser.select_list(name: 'new_user_country').option(text: 'Sweden')).to be_selected
+      end
+
+      it 'raises UnknownObjectException if the option does not exist (page context)' do
+        expect { browser.option(text: 'no_such_text').select }.to raise_unknown_object_exception
+        expect { browser.option(text: /missing/).select }.to raise_unknown_object_exception
+      end
+
+      it 'raises UnknownObjectException if the option does not exist (select_list context)' do
+        expect { browser.select_list(name: 'new_user_country').option(text: 'no_such_text').select }
+          .to raise_unknown_object_exception
+        expect { browser.select_list(name: 'new_user_country').option(text: /missing/).select }
+          .to raise_unknown_object_exception
+      end
+    end
+
+    describe '#respond_to?' do
+      it 'returns true for all attribute methods' do
+        expect(browser.select_list(name: 'new_user_country').option(text: 'Sweden')).to respond_to(:class_name)
+        expect(browser.select_list(name: 'new_user_country').option(text: 'Sweden')).to respond_to(:id)
+        expect(browser.select_list(name: 'new_user_country').option(text: 'Sweden')).to respond_to(:text)
+      end
+    end
+  end
+end

data/spec/watirspec/elements/p_spec.rb

@@ -0,0 +1,102 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe Paragraph do
+    before do
+      browser.goto(WatirSpec.url_for('non_control_elements.html'))
+    end
+
+    # Exists method
+    describe '#exist?' do
+      it "returns true if the 'p' exists" do
+        expect(browser.p(id: 'lead')).to exist
+        expect(browser.p(id: /lead/)).to exist
+        expect(browser.p(text: 'Dubito, ergo cogito, ergo sum.')).to exist
+        expect(browser.p(text: /Dubito, ergo cogito, ergo sum/)).to exist
+        expect(browser.p(class: 'lead')).to exist
+        expect(browser.p(class: /lead/)).to exist
+        expect(browser.p(index: 0)).to exist
+        expect(browser.p(xpath: "//p[@id='lead']")).to exist
+      end
+
+      it 'returns the first p if given no args' do
+        expect(browser.p).to exist
+      end
+
+      it "returns false if the 'p' doesn't exist" do
+        expect(browser.p(id: 'no_such_id')).not_to exist
+        expect(browser.p(id: /no_such_id/)).not_to exist
+        expect(browser.p(text: 'no_such_text')).not_to exist
+        expect(browser.p(text: /no_such_text/)).not_to exist
+        expect(browser.p(class: 'no_such_class')).not_to exist
+        expect(browser.p(class: /no_such_class/)).not_to exist
+        expect(browser.p(index: 1337)).not_to exist
+        expect(browser.p(xpath: "//p[@id='no_such_id']")).not_to exist
+      end
+
+      it "raises TypeError when 'what' argument is invalid" do
+        expect { browser.p(id: 3.14).exists? }.to raise_error(TypeError)
+      end
+    end
+
+    # Attribute methods
+    describe '#id' do
+      it 'returns the id attribute' do
+        expect(browser.p(index: 0).id).to eq 'lead'
+      end
+
+      it "returns an empty string if the element exists and the attribute doesn't" do
+        expect(browser.p(index: 2).id).to eq ''
+      end
+
+      it "raises UnknownObjectException if the p doesn't exist" do
+        expect { browser.p(id: 'no_such_id').id }.to raise_unknown_object_exception
+        expect { browser.p(index: 1337).id }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#title' do
+      it 'returns the title attribute' do
+        expect(browser.p(index: 0).title).to eq 'Lorem ipsum'
+      end
+
+      it "returns an empty string if the element exists and the attribute doesn't" do
+        expect(browser.p(index: 2).title).to eq ''
+      end
+
+      it "raises UnknownObjectException if the p doesn't exist" do
+        expect { browser.p(id: 'no_such_id').title }.to raise_unknown_object_exception
+        expect { browser.p(xpath: "//p[@id='no_such_id']").title }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#text' do
+      it 'returns the text of the p' do
+        msg = '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.'
+        expect(browser.p(index: 1).text).to eq msg
+      end
+
+      it "returns an empty string if the element doesn't contain any text" do
+        expect(browser.p(index: 4).text).to eq ''
+      end
+
+      it "raises UnknownObjectException if the p doesn't exist" do
+        expect { browser.p(id: 'no_such_id').text }.to raise_unknown_object_exception
+        expect { browser.p(xpath: "//p[@id='no_such_id']").text }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#respond_to?' do
+      it 'returns true for all attribute methods' do
+        expect(browser.p(index: 0)).to respond_to(:class_name)
+        expect(browser.p(index: 0)).to respond_to(:id)
+        expect(browser.p(index: 0)).to respond_to(:title)
+        expect(browser.p(index: 0)).to respond_to(:text)
+      end
+    end
+  end
+end

data/spec/watirspec/elements/pre_spec.rb

@@ -0,0 +1,100 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe Pre do
+    before do
+      browser.goto(WatirSpec.url_for('non_control_elements.html'))
+    end
+
+    # Exists method
+    describe '#exist?' do
+      it "returns true if the 'p' exists" do
+        expect(browser.pre(id: 'rspec')).to exist
+        expect(browser.pre(id: /rspec/)).to exist
+        expect(browser.pre(text: 'browser.pre(id: "rspec").should exist')).to exist
+        expect(browser.pre(text: /browser\.pre/)).to exist
+        expect(browser.pre(class: 'ruby')).to exist
+        expect(browser.pre(class: /ruby/)).to exist
+        expect(browser.pre(index: 0)).to exist
+        expect(browser.pre(xpath: "//pre[@id='rspec']")).to exist
+      end
+
+      it 'returns the first pre if given no args' do
+        expect(browser.pre).to exist
+      end
+
+      it "returns false if the 'p' doesn't exist" do
+        expect(browser.pre(id: 'no_such_id')).not_to exist
+        expect(browser.pre(id: /no_such_id/)).not_to exist
+        expect(browser.pre(text: 'no_such_text')).not_to exist
+        expect(browser.pre(text: /no_such_text/)).not_to exist
+        expect(browser.pre(class: 'no_such_class')).not_to exist
+        expect(browser.pre(class: /no_such_class/)).not_to exist
+        expect(browser.pre(index: 1337)).not_to exist
+        expect(browser.pre(xpath: "//pre[@id='no_such_id']")).not_to exist
+      end
+
+      it "raises TypeError when 'what' argument is invalid" do
+        expect { browser.pre(id: 3.14).exists? }.to raise_error(TypeError)
+      end
+    end
+
+    # Attribute methods
+    describe '#id' do
+      it 'returns the id attribute' do
+        expect(browser.pre(class: 'ruby').id).to eq 'rspec'
+      end
+
+      it "returns an empty string if the element exists and the attribute doesn't" do
+        expect(browser.pre(index: 0).id).to eq ''
+      end
+
+      it "raises UnknownObjectException if the pre doesn't exist" do
+        expect { browser.pre(id: 'no_such_id').id }.to raise_unknown_object_exception
+        expect { browser.pre(index: 1337).id }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#title' do
+      it 'returns the title attribute' do
+        title = 'The brainfuck language is an esoteric programming language noted for its extreme minimalism'
+        expect(browser.pre(class: 'brainfuck').title).to eq title
+      end
+
+      it "returns an empty string if the element exists and the attribute doesn't" do
+        expect(browser.pre(index: 0).title).to eq ''
+      end
+
+      it "raises UnknownObjectException if the pre doesn't exist" do
+        expect { browser.pre(id: 'no_such_id').title }.to raise_unknown_object_exception
+        expect { browser.pre(xpath: "//pre[@id='no_such_id']").title }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#text' do
+      it 'returns the text of the pre' do
+        expect(browser.pre(class: 'haskell').text).to eq 'main = putStrLn "Hello World"'
+      end
+
+      it "returns an empty string if the element doesn't contain any text" do
+        expect(browser.pre(index: 0).text).to eq ''
+      end
+
+      it "raises UnknownObjectException if the pre doesn't exist" do
+        expect { browser.pre(id: 'no_such_id').text }.to raise_unknown_object_exception
+        expect { browser.pre(xpath: "//pre[@id='no_such_id']").text }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#respond_to?' do
+      it 'returns true for all attribute methods' do
+        expect(browser.image(index: 0)).to respond_to(:class_name)
+        expect(browser.image(index: 0)).to respond_to(:id)
+        expect(browser.image(index: 0)).to respond_to(:title)
+        expect(browser.image(index: 0)).to respond_to(:text)
+      end
+    end
+  end
+end

data/spec/watirspec/elements/pres_spec.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe PreCollection do
+    before do
+      browser.goto(WatirSpec.url_for('non_control_elements.html'))
+    end
+
+    describe 'with selectors' do
+      it 'returns the matching elements' do
+        expect(browser.pres(class: 'c-plus-plus').to_a).to eq [browser.pre(class: 'c-plus-plus')]
+      end
+    end
+
+    describe '#length' do
+      it 'returns the number of pres' do
+        expect(browser.pres.length).to eq 7
+      end
+    end
+
+    describe '#[]' do
+      it 'returns the pre at the given index' do
+        expect(browser.pres[1].id).to eq 'rspec'
+      end
+    end
+
+    describe '#each' do
+      it 'iterates through pres correctly' do
+        count = 0
+
+        browser.pres.each_with_index do |p, index|
+          expect(p.id).to eq browser.pre(index: index).id
+          count += 1
+        end
+
+        expect(count).to be > 0
+      end
+    end
+  end
+end

data/spec/watirspec/elements/ps_spec.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe ParagraphCollection do
+    before do
+      browser.goto(WatirSpec.url_for('non_control_elements.html'))
+    end
+
+    describe 'with selectors' do
+      it 'returns the matching elements' do
+        expect(browser.ps(class: 'lead').to_a).to eq [browser.p(class: 'lead')]
+      end
+    end
+
+    describe '#length' do
+      it 'returns the number of ps' do
+        expect(browser.ps.length).to eq 5
+      end
+    end
+
+    describe '#[]' do
+      it 'returns the p at the given index' do
+        expect(browser.ps[0].id).to eq 'lead'
+      end
+    end
+
+    describe '#each' do
+      it 'iterates through ps correctly' do
+        count = 0
+
+        browser.ps.each_with_index do |p, index|
+          expect(p.id).to eq browser.p(index: index).id
+          count += 1
+        end
+
+        expect(count).to be > 0
+      end
+    end
+  end
+end

data/spec/watirspec/elements/radio_spec.rb

@@ -0,0 +1,259 @@
+# frozen_string_literal: true
+
+require 'watirspec_helper'
+
+module Watir
+  describe Radio do
+    before do
+      browser.goto(WatirSpec.url_for('forms_with_input_elements.html'))
+    end
+
+    # Exists method
+    describe '#exists?' do
+      it 'returns true if the radio button exists' do
+        expect(browser.radio(id: 'new_user_newsletter_yes')).to exist
+        expect(browser.radio(id: /new_user_newsletter_yes/)).to exist
+        expect(browser.radio(name: 'new_user_newsletter')).to exist
+        expect(browser.radio(name: /new_user_newsletter/)).to exist
+        expect(browser.radio(value: 'yes')).to exist
+        expect(browser.radio(value: /yes/)).to exist
+        expect(browser.radio(text: 'Yes')).to exist
+        expect(browser.radio(text: /Yes/)).to exist
+        expect(browser.radio(class: 'huge')).to exist
+        expect(browser.radio(class: /huge/)).to exist
+        expect(browser.radio(index: 0)).to exist
+        expect(browser.radio(xpath: "//input[@id='new_user_newsletter_yes']")).to exist
+      end
+
+      it 'returns the first radio if given no args' do
+        expect(browser.radio).to exist
+      end
+
+      it 'returns true if the radio button exists (search by name and value)' do
+        expect(browser.radio(name: 'new_user_newsletter', value: 'yes')).to exist
+        browser.radio(xpath: "//input[@name='new_user_newsletter' and @value='yes']").set
+      end
+
+      it 'returns true for element with upper case type' do
+        expect(browser.radio(id: 'new_user_newsletter_probably')).to exist
+      end
+
+      it 'returns false if the radio button does not exist' do
+        expect(browser.radio(id: 'no_such_id')).not_to exist
+        expect(browser.radio(id: /no_such_id/)).not_to exist
+        expect(browser.radio(name: 'no_such_name')).not_to exist
+        expect(browser.radio(name: /no_such_name/)).not_to exist
+        expect(browser.radio(value: 'no_such_value')).not_to exist
+        expect(browser.radio(value: /no_such_value/)).not_to exist
+        expect(browser.radio(text: 'no_such_text')).not_to exist
+        expect(browser.radio(text: /no_such_text/)).not_to exist
+        expect(browser.radio(class: 'no_such_class')).not_to exist
+        expect(browser.radio(class: /no_such_class/)).not_to exist
+        expect(browser.radio(index: 1337)).not_to exist
+        expect(browser.radio(xpath: "input[@id='no_such_id']")).not_to exist
+      end
+
+      it 'returns false if the radio button does not exist (search by name and value)' do
+        expect(browser.radio(name: 'new_user_newsletter', value: 'no_such_value')).not_to exist
+        expect(browser.radio(xpath: "//input[@name='new_user_newsletter' and @value='no_such_value']")).not_to exist
+        expect(browser.radio(name: 'no_such_name', value: 'yes')).not_to exist
+        expect(browser.radio(xpath: "//input[@name='no_such_name' and @value='yes']")).not_to exist
+      end
+
+      it 'returns true for radios with a string value' do
+        expect(browser.radio(name: 'new_user_newsletter', value: 'yes')).to exist
+        expect(browser.radio(name: 'new_user_newsletter', value: 'no')).to exist
+      end
+
+      it "raises TypeError when 'what' argument is invalid" do
+        expect { browser.radio(id: 3.14).exists? }.to raise_error(TypeError)
+      end
+    end
+
+    # Attribute methods
+    describe '#id' do
+      it 'returns the id attribute if the radio exists and has an attribute' do
+        expect(browser.radio(index: 0).id).to eq 'new_user_newsletter_yes'
+      end
+
+      it "returns an empty string if the radio exists and the attribute doesn't" do
+        expect(browser.radio(index: 2).id).to eq ''
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).id }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#name' do
+      it 'returns the name attribute if the radio exists' do
+        expect(browser.radio(id: 'new_user_newsletter_yes').name).to eq 'new_user_newsletter'
+      end
+
+      it "returns an empty string if the radio exists and the attribute doesn't" do
+        expect(browser.radio(id: 'new_user_newsletter_absolutely').name).to eq ''
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).name }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#text' do
+      it 'returns the text if the radio exists' do
+        expect(browser.radio(id: 'new_user_newsletter_yes').text).to eq 'Yes'
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).text }.to raise_unknown_object_exception
+      end
+
+      it 'returns empty string when there is no label' do
+        form = browser.form(id: 'new_user')
+        expect(form.radio(index: 2).text).to eq ''
+      end
+    end
+
+    describe '#title' do
+      it 'returns the title attribute if the radio exists' do
+        expect(browser.radio(id: 'new_user_newsletter_no').title).to eq 'Traitor!'
+      end
+
+      it "returns an empty string if the radio exists and the attribute doesn't" do
+        expect(browser.radio(id: 'new_user_newsletter_yes').title).to eq ''
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).title }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#type' do
+      it 'returns the type attribute if the radio exists' do
+        expect(browser.radio(index: 0).type).to eq 'radio'
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).type }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#value' do
+      it 'returns the value attribute if the radio exists' do
+        expect(browser.radio(id: 'new_user_newsletter_yes').value).to eq 'yes'
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).value }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#respond_to?' do
+      it 'returns true for all attribute methods' do
+        expect(browser.radio(index: 0)).to respond_to(:class_name)
+        expect(browser.radio(index: 0)).to respond_to(:id)
+        expect(browser.radio(index: 0)).to respond_to(:name)
+        expect(browser.radio(index: 0)).to respond_to(:title)
+        expect(browser.radio(index: 0)).to respond_to(:type)
+        expect(browser.radio(index: 0)).to respond_to(:value)
+      end
+    end
+
+    # Access methods
+    describe '#enabled?' do
+      it 'returns true if the radio button is enabled' do
+        expect(browser.radio(id: 'new_user_newsletter_yes')).to be_enabled
+        expect(browser.radio(xpath: "//input[@id='new_user_newsletter_yes']")).to be_enabled
+      end
+
+      it 'returns false if the radio button is disabled' do
+        expect(browser.radio(id: 'new_user_newsletter_nah')).not_to be_enabled
+        expect(browser.radio(xpath: "//input[@id='new_user_newsletter_nah']")).not_to be_enabled
+      end
+
+      it "raises UnknownObjectException if the radio button doesn't exist" do
+        expect { browser.radio(id: 'no_such_id').enabled? }.to raise_unknown_object_exception
+        expect { browser.radio(xpath: "//input[@id='no_such_id']").enabled? }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#disabled?' do
+      it 'returns true if the radio is disabled' do
+        expect(browser.radio(id: 'new_user_newsletter_nah')).to be_disabled
+      end
+
+      it 'returns false if the radio is enabled' do
+        expect(browser.radio(id: 'new_user_newsletter_yes')).not_to be_disabled
+      end
+
+      it "raises UnknownObjectException if the radio doesn't exist" do
+        expect { browser.radio(index: 1337).disabled? }.to raise_unknown_object_exception
+      end
+    end
+
+    describe '#set' do
+      it 'sets the radio button' do
+        browser.radio(id: 'new_user_newsletter_no').set
+        expect(browser.radio(id: 'new_user_newsletter_no')).to be_set
+      end
+
+      it 'sets the radio button when found by :xpath' do
+        browser.radio(xpath: "//input[@id='new_user_newsletter_no']").set
+        expect(browser.radio(xpath: "//input[@id='new_user_newsletter_no']")).to 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
+        expect(messages).to eq ['clicked: new_user_newsletter_no', 'clicked: new_user_newsletter_yes']
+      end
+
+      it 'fires the onchange event' do
+        browser.radio(value: 'certainly').set
+        expect(messages).to eq ['changed: new_user_newsletter']
+
+        browser.radio(value: 'certainly').set
+        expect(messages).to eq ['changed: new_user_newsletter'] # no event fired here - didn't change
+
+        browser.radio(value: 'yes').set
+        browser.radio(value: 'certainly').set
+        list = ['changed: new_user_newsletter', 'clicked: new_user_newsletter_yes', 'changed: new_user_newsletter']
+        expect(messages).to eq list
+      end
+
+      it "raises UnknownObjectException if the radio button doesn't exist" do
+        expect { browser.radio(name: 'no_such_name').set }.to raise_unknown_object_exception
+        expect { browser.radio(xpath: "//input[@name='no_such_name']").set }.to raise_unknown_object_exception
+      end
+
+      it 'raises ObjectDisabledException if the radio is disabled' do
+        expect { browser.radio(id: 'new_user_newsletter_nah').set  }.to raise_object_disabled_exception
+        expect { browser.radio(xpath: "//input[@id='new_user_newsletter_nah']").set }.to raise_object_disabled_exception
+      end
+    end
+
+    # Other
+    describe '#set?' do
+      it 'returns true if the radio button is set' do
+        expect(browser.radio(id: 'new_user_newsletter_yes')).to be_set
+      end
+
+      it 'returns false if the radio button unset' do
+        expect(browser.radio(id: 'new_user_newsletter_no')).not_to be_set
+      end
+
+      it 'returns the state for radios with string values' do
+        expect(browser.radio(name: 'new_user_newsletter', value: 'no')).not_to be_set
+        browser.radio(name: 'new_user_newsletter', value: 'no').set
+        expect(browser.radio(name: 'new_user_newsletter', value: 'no')).to be_set
+        browser.radio(name: 'new_user_newsletter', value: 'yes').set
+        expect(browser.radio(name: 'new_user_newsletter', value: 'no')).not_to be_set
+      end
+
+      it "raises UnknownObjectException if the radio button doesn't exist" do
+        expect { browser.radio(id: 'no_such_id').set? }.to raise_unknown_object_exception
+        expect { browser.radio(xpath: "//input[@id='no_such_id']").set? }.to raise_unknown_object_exception
+      end
+    end
+  end
+end