rsel 0.1.1 → 0.1.2

data/spec/st_set_fields_among_spec.rb

@@ -0,0 +1,74 @@
+require 'spec/st_spec_helper'
+
+describe "#set_fields_among" do
+  before(:each) do
+    @st.visit("/form").should be_true
+  end
+
+  context "passes when" do
+    context "text fields with labels" do
+      it "sets one field" do
+        @st.set_fields_among({"First name" => "Marcus"}).should be_true
+        @st.field_contains("First name", "Marcus").should be_true
+      end
+
+      it "sets one field with string ids" do
+        @st.set_fields_among({"First name" => "Marcus"}, "").should be_true
+        @st.field_contains("First name", "Marcus").should be_true
+      end
+
+      it "does nothing, but has ids" do
+        @st.set_fields_among("", {"First name" => "Marcus"}).should be_true
+      end
+
+      it "sets several fields" do
+        @st.set_fields_among({"First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot."})
+        @st.field_contains("First name", "Ken").should be_true
+        @st.field_contains("Last name", "Brazier").should be_true
+        @st.field_contains("Life story", "story: I get testy").should be_true
+      end
+    end
+    context "text fields with labels in a hash" do
+      it "sets one field from a hash" do
+        @st.set_fields_among({"Faust name" => "Marcus"}, {"Faust Name" => "First name", "LOST name" => "Last name"}).should be_true
+        @st.field_contains("First name", "Marcus").should be_true
+      end
+
+      it "sets many fields, some from a hash" do
+        @st.set_fields_among({"Faust\\;name" => "Ken", :Lost => "Brazier", "Life story" => "I get testy a lot."},
+                             {"Faust\\;Name" => "First name", :LOST => "Last name"}).should be_true
+        @st.field_contains("First name", "Ken").should be_true
+        @st.field_contains("Last name", "Brazier").should be_true
+        @st.field_contains("Life story", "testy").should be_true
+      end
+    end
+    it "clears a field" do
+      @st.set_fields_among({"message" => ""},"").should be_true
+      @st.field_contains("message", "").should be_true
+    end
+  end
+
+  context "fails when" do
+    context "text fields with labels" do
+      it "cant find the first field" do
+        @st.set_fields_among({"Faust name" => "Ken", "Last name" => "Brazier"}).should be_false
+      end
+
+      it "cant find the last field" do
+        @st.set_fields_among({"First name" => "Ken", "Lost name" => "Brazier"}).should be_false
+      end
+    end
+    context "text fields with labels in a hash" do
+      it "cant find the first field" do
+        @st.set_fields_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                             {"Faust Name" => "Lost name", "Lost name" => "Last name"}).should be_false
+      end
+
+      it "cant find the last field" do
+        @st.set_fields_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                             {"Faust Name" => "First name", "Lost name" => "Faust name"}).should be_false
+      end
+    end
+  end
+end # set_fields_among
+

data/spec/st_set_fields_spec.rb

@@ -0,0 +1,97 @@
+require 'spec/st_spec_helper'
+
+describe "#set_fields" do
+  context "without studying" do
+    before(:each) do
+      @st.visit("/form").should be_true
+    end
+
+    context "passes when" do
+      context "text fields with labels" do
+        it "sets one field" do
+          @st.set_fields("First name" => "Marcus").should be_true
+          @st.field_contains("First name", "Marcus").should be_true
+        end
+
+        it "sets zero fields" do
+          @st.set_fields("").should be_true
+        end
+
+        it "sets several fields" do
+          @st.set_fields("First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot.").should be_true
+          @st.field_contains("First name", "Ken").should be_true
+          @st.field_contains("Last name", "Brazier").should be_true
+          @st.field_contains("Life story", "story: I get testy").should be_true
+        end
+
+        it "clears a field" do
+          @st.set_fields("message" => "").should be_true
+          @st.field_contains("message", "").should be_true
+        end
+      end
+    end
+
+    context "fails when" do
+      context "text fields with labels" do
+        it "cant find the first field" do
+          @st.set_fields("Faust name" => "Ken", "Last name" => "Brazier").should be_false
+        end
+
+        it "cant find the last field" do
+          @st.set_fields("First name" => "Ken", "Lost name" => "Brazier").should be_false
+        end
+      end
+    end
+  end # set_fields
+
+
+  context "with studying" do
+    before(:all) do
+      @st.set_fields_study_min('always')
+    end
+    before(:each) do
+      @st.visit("/form").should be_true
+    end
+
+    context "passes when" do
+      context "text fields with labels" do
+        it "sets one field" do
+          @st.set_fields("First name" => "Marcus").should be_true
+          @st.field_contains("First name", "Marcus").should be_true
+        end
+
+        it "sets zero fields" do
+          @st.set_fields("").should be_true
+        end
+
+        it "sets several fields" do
+          @st.set_fields("First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot.").should be_true
+          @st.field_contains("First name", "Ken").should be_true
+          @st.field_contains("Last name", "Brazier").should be_true
+          @st.field_contains("Life story", "story: I get testy").should be_true
+        end
+
+        it "clears a field" do
+          @st.set_fields("message" => "").should be_true
+          @st.field_contains("message", "").should be_true
+        end
+      end
+    end
+
+    context "fails when" do
+      context "text fields with labels" do
+        it "cant find the first field" do
+          @st.set_fields("Faust name" => "Ken", "Last name" => "Brazier").should be_false
+        end
+
+        it "cant find the last field" do
+          @st.set_fields("First name" => "Ken", "Lost name" => "Brazier").should be_false
+        end
+      end
+    end
+    after(:all) do
+      @st.set_fields_study_min('default')
+    end
+  end
+end # set_fields
+

data/spec/st_spec_helper.rb

@@ -0,0 +1,43 @@
+# This file includes RSpec configuration that is only needed when testing the
+# SeleniumTest class. Include this file in your spec test if you need to use
+# a SeleniumTest browser session (@st).
+
+require 'spec/spec_helper'
+
+RSpec.configure do |config|
+  config.before(:suite) do
+    # For some reason, RSpec runs this twice; work around possible duplicate
+    # browser windows by only intializing @@st if it hasn't been already
+    @@st ||= Rsel::SeleniumTest.new('http://localhost:8070')
+    @@st.open_browser
+  end
+
+  config.after(:suite) do
+    @@st.close_browser('without showing errors')
+  end
+
+  config.before(:all) do
+    @st = @@st
+  end
+end
+
+# Monkeypatch the Selenium::Client::Protocol module,
+# to prevent http_post from spewing out a bunch of `puts`es on failure.
+# (It's really distracting when running spec tests)
+module Selenium
+  module Client
+    module Protocol
+      def http_post(data)
+        start = Time.now
+        called_from = caller.detect{|line| line !~ /(selenium-client|vendor|usr\/lib\/ruby|\(eval\))/i}
+        http = Net::HTTP.new(@host, @port)
+        http.open_timeout = default_timeout_in_seconds
+        http.read_timeout = default_timeout_in_seconds
+        response = http.post('/selenium-server/driver/', data, HTTP_HEADERS)
+        # <-- Here is where all the puts statements were -->
+        [ response.body[0..1], response.body ]
+      end
+    end
+  end
+end
+

data/spec/st_stop_on_failure_spec.rb

@@ -0,0 +1,199 @@
+require 'spec/st_spec_helper'
+
+describe 'stop on failure' do
+  before(:each) do
+    @st.visit("/").should be_true
+    @st.stop_on_failure = true
+    @st.found_failure = false
+  end
+
+  after(:each) do
+    @st.stop_on_failure = false
+  end
+
+  context "causes subsequent steps to fail" do
+    it "when #see fails" do
+      @st.see("Nonexistent").should be_false
+      # Would pass, but previous step failed
+      @st.see("Welcome").should be_false
+    end
+
+    it "when #do_not_see fails" do
+      @st.do_not_see("Welcome").should be_false
+      # Would pass, but previous step failed
+      @st.do_not_see("Nonexistent").should be_false
+    end
+
+    it "when #see_title fails" do
+      @st.errors # clear errors
+      @st.see_title("Wrong Title").should be_false
+      # Would pass, but previous step failed
+      @st.see_title("Rsel Test Site").should be_false
+      # Should see one and only one error.
+      @st.errors.should eq("Page title is 'Rsel Test Site', not 'Wrong Title'")
+    end
+
+    it "when #do_not_see_title fails" do
+      @st.do_not_see_title("Rsel Test Site").should be_false
+      # Would pass, but previous step failed
+      @st.do_not_see_title("Wrong title").should be_false
+    end
+
+    it "when #link_exists fails" do
+      @st.link_exists("Bogus Link").should be_false
+      # Would pass, but previous step failed
+      @st.link_exists("About this site").should be_false
+    end
+
+    it "when #button_exists fails" do
+      @st.visit("/form").should be_true
+      @st.button_exists("Bogus Button").should be_false
+      # Would pass, but previous step failed
+      @st.button_exists("Submit person form").should be_false
+    end
+
+    it "when #row_exists fails" do
+      @st.visit("/table").should be_true
+      @st.row_exists("No, Such, Row").should be_false
+      # Would pass, but previous step failed
+      @st.row_exists("First name, Last name, Email").should be_false
+    end
+
+    it "when #type_into_field fails" do
+      @st.visit("/form").should be_true
+      @st.type_into_field("Hello", "Bad Field").should be_false
+      # Would pass, but previous step failed
+      @st.type_into_field("Eric", "First name").should be_false
+    end
+
+    it "when #field_contains fails" do
+      @st.visit("/form").should be_true
+      @st.field_contains("Bad Field", "Hello").should be_false
+      # Would pass, but previous step failed
+      @st.field_contains("First name", "Marcus").should be_false
+    end
+
+    it "when #field_equals fails" do
+      @st.visit("/form").should be_true
+      @st.fill_in_with("First name", "Ken")
+      @st.field_equals("First name", "Eric").should be_false
+      # Would pass, but previous step failed
+      @st.field_equals("First name", "Ken").should be_false
+    end
+
+    it "when #click fails" do
+      @st.click("No Such Link").should be_false
+      # Would pass, but previous step failed
+      @st.click("About this site").should be_false
+    end
+
+    it "when #click_link fails" do
+      @st.click_link("No Such Link").should be_false
+      # Would pass, but previous step failed
+      @st.click_link("About this site").should be_false
+    end
+
+    it "when #click_button fails" do
+      @st.visit("/form").should be_true
+      @st.click_button("No Such Link").should be_false
+      # Would pass, but previous step failed
+      @st.click_button("Submit person form").should be_false
+    end
+
+    it "when #enable_checkbox fails" do
+      @st.visit("/form").should be_true
+      @st.enable_checkbox("No Such Checkbox").should be_false
+      # Would pass, but previous step failed
+      @st.enable_checkbox("I like cheese").should be_false
+    end
+
+    it "when #disable_checkbox fails" do
+      @st.visit("/form").should be_true
+      @st.disable_checkbox("No Such Checkbox").should be_false
+      # Would pass, but previous step failed
+      @st.disable_checkbox("I like cheese").should be_false
+    end
+
+    it "when #checkbox_is_enabled fails" do
+      @st.visit("/form").should be_true
+      @st.enable_checkbox("I like cheese").should be_true
+      @st.checkbox_is_enabled("No Such Checkbox").should be_false
+      # Would pass, but previous step failed
+      @st.checkbox_is_enabled("I like cheese").should be_false
+    end
+
+    it "when #checkbox_is_disabled fails" do
+      @st.visit("/form").should be_true
+      @st.checkbox_is_disabled("No Such Checkbox").should be_false
+      # Would pass, but previous step failed
+      @st.checkbox_is_disabled("I like cheese").should be_false
+    end
+
+    it "when #radio_is_enabled fails" do
+      @st.visit("/form").should be_true
+      @st.select_radio("Briefs").should be_true
+      @st.radio_is_enabled("No Such Radio").should be_false
+      # Would pass, but previous step failed
+      @st.radio_is_enabled("Briefs").should be_false
+    end
+
+    it "when #radio_is_disabled fails" do
+      @st.visit("/form").should be_true
+      @st.select_radio("Boxers").should be_true
+      @st.radio_is_disabled("No Such Radio").should be_false
+      # Would pass, but previous step failed
+      @st.radio_is_disabled("Briefs").should be_false
+    end
+
+    it "when #select_radio fails" do
+      @st.visit("/form").should be_true
+      @st.select_radio("No Such Radio").should be_false
+      # Would pass, but previous step failed
+      @st.select_radio("Boxers").should be_false
+    end
+
+    it "when #select_from_dropdown fails" do
+      @st.visit("/form").should be_true
+      @st.select_from_dropdown("Junk", "No Such Dropdown").should be_false
+      # Would pass, but previous step failed
+      @st.select_from_dropdown("Tall", "Height").should be_false
+    end
+
+    it "when #dropdown_includes fails" do
+      @st.visit("/form").should be_true
+      @st.dropdown_includes("No Such Dropdown", "Junk").should be_false
+      # Would pass, but previous step failed
+      @st.dropdown_includes("Height", "Tall").should be_false
+    end
+
+    it "when #dropdown_equals fails" do
+      @st.visit("/form").should be_true
+      @st.select_from_dropdown("Tall", "Height").should be_true
+      @st.dropdown_equals("No Such Dropdown", "Junk").should be_false
+      # Would pass, but previous step failed
+      @st.dropdown_equals("Tall", "Height").should be_false
+    end
+  end
+
+  context "can be reset with #begin_scenario" do
+    it "when #see fails" do
+      @st.see("Nonexistent").should be_false
+      # Would pass, but previous step failed
+      @st.see("Welcome").should be_false
+      # Starting a new scenario allows #see to pass
+      @st.begin_scenario
+      @st.see("Welcome").should be_true
+    end
+
+    it "when #do_not_see fails" do
+      @st.do_not_see("Welcome").should be_false
+      # Would pass, but previous step failed
+      @st.do_not_see("Nonexistent").should be_false
+      # Starting a new scenario allows #do_not_see to pass
+      @st.begin_scenario
+      @st.do_not_see("Nonexistent").should be_true
+    end
+  end
+
+end
+

data/spec/st_tables_spec.rb

@@ -0,0 +1,42 @@
+require 'spec/st_spec_helper'
+
+describe 'tables' do
+  before(:each) do
+    @st.visit("/table").should be_true
+  end
+
+  describe "#row_exists" do
+    context "passes when" do
+      it "full row of headings exists" do
+        @st.row_exists("First name, Last name, Email").should be_true
+      end
+
+      it "partial row of headings exists" do
+        @st.row_exists("First name, Last name").should be_true
+        @st.row_exists("Last name, Email").should be_true
+      end
+
+      it "full row of cells exists" do
+        @st.row_exists("Eric, Pierce, epierce@example.com").should be_true
+      end
+
+      it "partial row of cells exists" do
+        @st.row_exists("Eric, Pierce").should be_true
+        @st.row_exists("Pierce, epierce@example.com").should be_true
+      end
+
+      it "cell values are not consecutive" do
+        @st.row_exists("First name, Email").should be_true
+        @st.row_exists("Eric, epierce@example.com").should be_true
+      end
+    end
+
+    context "fails when" do
+      it "no row exists" do
+        @st.row_exists("Middle name, Maiden name, Email").should be_false
+      end
+    end
+  end
+
+end
+