kelp 0.1.1 → 0.1.2

data/spec/field_spec.rb

@@ -0,0 +1,290 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Kelp::Field, "field_should_be_empty" do
+  before(:each) do
+    visit('/form')
+  end
+
+  context "passes when" do
+    context "field with id" do
+      it "is empty" do
+        field_should_be_empty "first_name"
+        field_should_be_empty "last_name"
+      end
+    end
+
+    context "field with label" do
+      it "is empty" do
+        field_should_be_empty "First name"
+        field_should_be_empty "Last name"
+      end
+    end
+  end
+
+  context "fails when" do
+    context "field with id" do
+      it "has a value" do
+        fill_in "first_name", :with => "Brian"
+        lambda do
+          field_should_be_empty "first_name"
+        end.should raise_error(RuntimeError)
+      end
+    end
+
+    context "field with label" do
+      it "has a value" do
+        fill_in "First name", :with => "Brian"
+        lambda do
+          field_should_be_empty "First name"
+        end.should raise_error(RuntimeError)
+      end
+    end
+  end
+end
+
+
+describe Kelp::Field, "field_should_contain" do
+  before(:each) do
+    visit('/form')
+  end
+
+  context "passes when" do
+    context "field with id" do
+      it "has the given value" do
+        fill_in "first_name", :with => "Brian"
+        field_should_contain "first_name", "Brian"
+      end
+    end
+
+    context "field with label" do
+      it "has the given value" do
+        fill_in "First name", :with => "Brian"
+        field_should_contain "First name", "Brian"
+      end
+    end
+  end
+
+  context "fails when" do
+    context "field with id" do
+      it "is empty" do
+        lambda do
+          field_should_contain "first_name", "Brian"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "has a different value" do
+        fill_in "first_name", :with => "Judith"
+        lambda do
+          field_should_contain "first_name", "Brian"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    context "field with label" do
+      it "is empty" do
+        lambda do
+          field_should_contain "First name", "Brian"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "has a different value" do
+        fill_in "First name", :with => "Judith"
+        lambda do
+          field_should_contain "First name", "Brian"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+  end
+
+end
+
+
+describe Kelp::Field, "fields_should_contain" do
+  before(:each) do
+    visit('/form')
+  end
+
+  context "passes when" do
+    context "fields with ids" do
+      it "all match" do
+        fill_in "first_name", :with => "Terry"
+        fill_in "last_name", :with => "Jones"
+        fields_should_contain "first_name" => "Terry", "last_name" => "Jones"
+      end
+
+      it "all match with some empty" do
+        fill_in "first_name", :with => "Terry"
+        fields_should_contain "first_name" => "Terry", "last_name" => ""
+      end
+
+      it "all match with some dropdowns" do
+        fill_in "first_name", :with => "Terry"
+        fill_in "last_name", :with => "Jones"
+        select "Average", :from => "height"
+        fields_should_contain "first_name" => "Terry", "last_name" => "Jones", "height" => "Average"
+      end
+    end
+
+    context "fields with labels" do
+      it "all match" do
+        fill_in "First name", :with => "Terry"
+        fill_in "Last name", :with => "Jones"
+        fields_should_contain "First name" => "Terry", "Last name" => "Jones"
+      end
+
+      it "all match with some empty" do
+        fill_in "First name", :with => "Terry"
+        fields_should_contain "First name" => "Terry", "Last name" => ""
+      end
+
+      it "all match with some dropdowns" do
+        fill_in "First name", :with => "Terry"
+        fill_in "Last name", :with => "Jones"
+        select "Average", :from => "Height"
+        fields_should_contain "First name" => "Terry", "Last name" => "Jones", "Height" => "Average"
+      end
+    end
+  end
+
+  context "fails when" do
+    context "fields with ids" do
+      it "are empty" do
+        lambda do
+          fields_should_contain "first_name" => "Terry", "last_name" => "Jones"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "do not all match" do
+        fill_in "first_name", :with => "Terry"
+        fill_in "last_name", :with => "Gilliam"
+        lambda do
+          fields_should_contain "first_name" => "Terry", "last_name" => "Jones"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    context "fields with labels" do
+      it "are empty" do
+        lambda do
+          fields_should_contain "First name" => "Terry", "Last name" => "Jones"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "do not all match" do
+        fill_in "First name", :with => "Terry"
+        fill_in "Last name", :with => "Gilliam"
+        lambda do
+          fields_should_contain "First name" => "Terry", "Last name" => "Jones"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+  end
+
+end
+
+
+describe Kelp::Field, "fill_in_field" do
+  before(:each) do
+    visit('/form')
+  end
+
+  context "passes when" do
+    it "filling a single field by id" do
+      fill_in_field "first_name", "Mel"
+      field_should_contain "first_name", "Mel"
+    end
+
+    it "filling a single field by label" do
+      fill_in_field "First name", "Mel"
+      field_should_contain "First name", "Mel"
+    end
+
+    it "filling a single field by id within a scope" do
+      fill_in_field_within "#person_form", "first_name", "Mel"
+      field_should_contain_within "#person_form", "first_name", "Mel"
+    end
+  end
+
+  context "fails when" do
+    it "filling a nonexistent field" do
+      lambda do
+        fill_in_field "Middle name", "Kaminsky"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+
+    it "filling a field in the wrong scope" do
+      lambda do
+        fill_in_field_within "#other_form", "First name", "Mel"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+  end
+end
+
+
+describe Kelp::Field, "fill_in_fields" do
+  before(:each) do
+    visit('/form')
+  end
+
+  context "passes when" do
+    it "filling a single field by id" do
+      fill_in_fields "first_name" => "Mel"
+      field_should_contain "first_name", "Mel"
+    end
+
+    it "filling a single field by label" do
+      fill_in_fields "First name" => "Mel"
+      field_should_contain "First name", "Mel"
+    end
+
+    it "filling multiple fields by id" do
+      fill_in_fields \
+        "first_name" => "Mel",
+        "last_name" => "Brooks"
+      field_should_contain "first_name", "Mel"
+      field_should_contain "last_name", "Brooks"
+    end
+
+    it "filling multiple fields by label" do
+      fill_in_fields \
+        "First name" => "Mel",
+        "Last name" => "Brooks"
+      field_should_contain "First name", "Mel"
+      field_should_contain "Last name", "Brooks"
+    end
+
+    it "filling a single field by id within a scope" do
+      fill_in_fields_within "#person_form", "first_name" => "Mel"
+      field_should_contain "first_name", "Mel", :within => "#person_form"
+    end
+
+    it "filling multiple fields by id within a scope" do
+      fill_in_fields_within "#person_form",
+        "first_name" => "Mel",
+        "last_name" => "Brooks"
+      fields_should_contain_within "#person_form",
+        "first_name" => "Mel",
+        "last_name" => "Brooks"
+    end
+  end
+
+  context "fails when" do
+    it "filling a nonexistent field" do
+      lambda do
+        fill_in_fields "Middle name" => "Kaminsky"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+
+    it "filling a field in the wrong scope" do
+      lambda do
+        fill_in_fields_within "#other_form",
+          "First name" => "Mel"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+  end
+
+end
+
+

data/spec/navigation_spec.rb

@@ -0,0 +1,89 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Kelp::Navigation, "follow" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    it "link exists" do
+      follow "About Us"
+      should_see "We're a small company with an even smaller webpage"
+    end
+
+    it "link is within the scope" do
+      follow "About Us", :within => "#links"
+      should_see "We're a small company with an even smaller webpage"
+    end
+  end
+
+  context "fails when" do
+    it "link does not exist" do
+      lambda do
+        follow "About Them"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+
+    it "link is not within the scope" do
+      lambda do
+        follow "About Us", :within => "#invalid_scope"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+  end
+
+end
+
+
+describe Kelp::Navigation, "press" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    it "button exists" do
+      press "Submit"
+    end
+
+    it "button exists within the scope" do
+      press "Submit", :within => "#fields"
+    end
+  end
+
+  context "fails when" do
+    it "button does not exist" do
+      lambda do
+        press "Poke"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+
+    it "button exists but is not within the scope" do
+      lambda do
+        press "Submit", :within => "#greeting"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+  end
+end
+
+
+describe Kelp::Navigation, "click_link_in_row" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    it "link exists in the row" do
+      click_link_in_row "Edit", "Eric"
+      should_see "You are editing record 1"
+    end
+  end
+
+  context "fails when" do
+    it "link does not exist in the row" do
+      lambda do
+        click_link_in_row "Frob", "Eric"
+      end.should raise_error(Capybara::ElementNotFound)
+    end
+  end
+end
+
+

data/spec/{capybara/spec_helper.rb → spec_helper.rb}

@@ -1,14 +1,18 @@
 require 'rspec'
 require 'capybara'
 require 'capybara/dsl'
-require File.expand_path(File.dirname(__FILE__) + '/../test_app/test_app')
-require File.expand_path(File.dirname(__FILE__) + '/../../lib/kelp/capybara/web_helper')
-require File.expand_path(File.dirname(__FILE__) + '/../../lib/kelp/capybara/form_helper')
+require 'kelp'
+require File.expand_path(File.dirname(__FILE__) + '/test_app/test_app')
 
 RSpec.configure do |config|
   config.include Capybara
-  config.include WebHelper
-  config.include FormHelper
+  config.include Kelp::Attribute
+  config.include Kelp::Checkbox
+  config.include Kelp::Dropdown
+  config.include Kelp::Field
+  config.include Kelp::Navigation
+  config.include Kelp::Scoping
+  config.include Kelp::Visibility
   config.after do
     Capybara.reset_sessions!
     Capybara.use_default_driver

data/spec/test_app/views/form.erb

@@ -21,6 +21,30 @@
           <option value="3" >Tall</option>
         </select>
       </p>
+      <p>
+        <label for="weight">Weight</label>
+        <select id="weight">
+          <option value="1">Light</option>
+          <option value="2">Medium</option>
+          <option value="3">Heavy</option>
+        </select>
+      </p>
+      <p>
+        <label for="favorite_colors">Favorite Colors</label>
+        <select id="favorite_colors" multiple="multiple">
+          <option value="r">Red</option>
+          <option value="g">Green</option>
+          <option value="b">Blue</option>
+        </select>
+      </p>
+      <p>
+        <label for="like_cheese">I like cheese</label>
+        <input id="like_cheese" type="checkbox" checked="checked"/>
+      </p>
+      <p>
+        <label for="like_salami">I like salami</label>
+        <input id="like_salami" type="checkbox" />
+      </p>
       <p><input type="submit" value="Submit" /></p>
     </form>
   </div>

data/spec/visibility_spec.rb

@@ -0,0 +1,315 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Kelp::Visibility, "should_see" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    context "String" do
+      it "exists" do
+        should_see "Hello world"
+        should_see "Goodbye world"
+      end
+
+      it "multiple exist" do
+        should_see [
+          "Hello world",
+          "Goodbye world"
+        ]
+      end
+
+      it "is within the scope" do
+        should_see "Hello world", :within => "#greeting"
+      end
+    end
+
+    context "Regexp" do
+      it "matches" do
+        should_see /(Hello|Goodbye) world/
+      end
+
+      it "matches within the scope" do
+        should_see /(Hello|Goodbye) world/, :within => "#greeting"
+        should_see /(Hello|Goodbye) world/, :within => "#farewell"
+      end
+    end
+  end
+
+  context "fails when" do
+    context "String" do
+      it "does not exist" do
+        lambda do
+          should_see "Goodbye cruel world"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "any of several do not exist" do
+        lambda do
+          should_see [
+            "Hello world",
+            "Goodbye world",
+            "Hello, nurse!"
+          ]
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "is not within the scope" do
+        lambda do
+          should_see "Goodbye world", :within => "#greeting"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    context "Regexp" do
+      it "does not match" do
+        lambda do
+          should_see /(Yo|Wazzup) world/
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "matches but is not within the scope" do
+        lambda do
+          should_see /Goodbye world/, :within => "#greeting"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+  end
+
+end
+
+
+describe Kelp::Visibility, "should_not_see" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    context "String" do
+      it "does not exist" do
+        should_not_see "Goodbye cruel world"
+      end
+
+      it "none of several strings exist" do
+        should_not_see [
+          "Hello nurse",
+          "Goodbye cruel world"
+        ]
+      end
+
+      it "exists but is not within the scope" do
+        should_not_see "Goodbye world", :within => "#greeting"
+      end
+    end
+
+    context "Regexp" do
+      it "does not match" do
+        should_not_see /(Yo|Wazzup) world/
+      end
+
+      it "none of several regexps match" do
+        should_not_see [
+          /(Yo|Wazzup) world/,
+          /(Ciao|Later) world/
+        ]
+      end
+
+      it "matches but is not within the scope" do
+        should_not_see /Goodbye world/, :within => "#greeting"
+      end
+    end
+  end
+
+
+  context "fails when" do
+    context "String" do
+      it "exists" do
+        lambda do
+          should_not_see "Hello world"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "any of several exist" do
+        lambda do
+          should_not_see [
+            "Hello nurse",
+            "Goodbye cruel world",
+            "Goodbye world"
+          ]
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "exists within the scope" do
+        lambda do
+          should_not_see "Hello world", :within => "#greeting"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    context "Regexp" do
+      it "matches" do
+        lambda do
+          should_not_see /(Hello|Goodbye) world/
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "any of several regexps match" do
+        lambda do
+          should_not_see [
+            /(Yo|Wazzup) world/,
+            /(Ciao|Later) world/,
+            /(Hello|Goodbye) world/
+          ]
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+
+      it "matches within the scope" do
+        lambda do
+          should_not_see /(Hello|Goodbye) world/, :within => "#greeting"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+  end
+end
+
+
+describe Kelp::Visibility, "should_see_in_same_row" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    it "two strings are in the same row" do
+      should_see_in_same_row ["Eric", "Edit"]
+      should_see_in_same_row ["John", "Edit"]
+      should_see_in_same_row ["Terry", "Edit"]
+    end
+
+    it "three strings are in the same row" do
+      should_see_in_same_row ["Eric", "555-4444", "Edit"]
+      should_see_in_same_row ["John", "666-5555", "Edit"]
+      should_see_in_same_row ["Terry", "777-6666", "Edit"]
+    end
+  end
+end
+
+describe Kelp::Visibility, "should_see_in_same_row" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    it "two strings are not in the same row" do
+      should_not_see_in_same_row ["Eric", "Delete"]
+      should_not_see_in_same_row ["John", "Delete"]
+      should_not_see_in_same_row ["Terry", "Delete"]
+    end
+
+    it "any two of three strings are not in the same row" do
+      should_not_see_in_same_row ["Eric", "555-4444", "Delete"]
+      should_not_see_in_same_row ["John", "666-5555", "Delete"]
+      should_not_see_in_same_row ["Terry", "777-6666", "Delete"]
+    end
+  end
+end
+
+
+describe Kelp::Visibility, "page_should_contain" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    context "String" do
+      it "exists" do
+        page_should_contain "Hello world"
+        page_should_contain "Goodbye world"
+      end
+    end
+    context "Regexp" do
+      it "matches" do
+        page_should_contain /(Hello|Goodbye) world/
+        page_should_contain /\d\d\d-\d\d\d\d/
+      end
+    end
+  end
+
+  context "fails when" do
+    context "String" do
+      it "does not exist" do
+        lambda do
+          page_should_contain "Wazzup world"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    context "Regexp" do
+      it "does not match" do
+        lambda do
+          page_should_contain /(Foo|Bar|Baz) world/
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    it "not a String or Regexp" do
+      lambda do
+        page_should_contain 123
+      end.should raise_error(ArgumentError)
+    end
+  end
+
+end
+
+
+describe Kelp::Visibility, "page_should_not_contain" do
+  before(:each) do
+    visit('/home')
+  end
+
+  context "passes when" do
+    context "String" do
+      it "does not exist" do
+        page_should_not_contain "Wazzup world"
+      end
+    end
+
+    context "Regexp" do
+      it "does not match" do
+        page_should_not_contain /(Foo|Bar|Baz) world/
+      end
+    end
+  end
+
+  context "fails when" do
+    context "String" do
+      it "exists" do
+        lambda do
+          page_should_not_contain "Hello world"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+        lambda do
+          page_should_not_contain "Goodbye world"
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+    context "Regexp" do
+      it "matches" do
+        lambda do
+          page_should_not_contain /(Hello|Goodbye) world/
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+        lambda do
+          page_should_not_contain /\d\d\d-\d\d\d\d/
+        end.should raise_error(RSpec::Expectations::ExpectationNotMetError)
+      end
+    end
+
+    it "not a String or Regexp" do
+      lambda do
+        page_should_not_contain 123
+      end.should raise_error(ArgumentError)
+    end
+  end
+
+end
+
+