rsel 0.0.1

data/rsel.gemspec

@@ -0,0 +1,29 @@
+Gem::Specification.new do |s|
+  s.name = "rsel"
+  s.version = "0.0.1"
+  s.summary = "Runs Selenium tests from FitNesse"
+  s.description = <<-EOS
+    Rsel provides a Slim fixture for running Selenium tests, with
+    step methods written in Ruby.
+  EOS
+  s.authors = ["Marcus French", "Dale Straw", "Eric Pierce"]
+  s.email = "epierce@automation-excellence.com"
+  s.homepage = "http://github.com/a-e/rsel"
+  s.platform = Gem::Platform::RUBY
+
+  s.add_dependency 'rubyslim-unofficial'
+  s.add_dependency 'xpath'
+  s.add_dependency 'selenium-client'
+
+  s.add_development_dependency 'rake', '0.8.7'
+  s.add_development_dependency 'sinatra'
+  s.add_development_dependency 'mongrel'
+  s.add_development_dependency 'yard'
+  s.add_development_dependency 'rspec', '>= 2.2.0'
+
+  s.files = `git ls-files`.split("\n")
+  # Don't include .jar files in distribution
+  s.files.reject! { |f| f =~ /.jar$/ }
+
+  s.require_path = 'lib'
+end

data/spec/selenium_test_spec.rb

@@ -0,0 +1,296 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Rsel::SeleniumTest do
+  context 'initialization' do
+    before(:each) do
+      @st.visit('/')
+    end
+
+    it "sets correct default configuration" do
+      @st.url.should == 'http://localhost:8070/'
+      @st.browser.host.should == 'localhost'
+      @st.browser.port.should == 4444
+    end
+  end
+
+
+  context 'checkbox' do
+    before(:each) do
+      @st.visit('/form').should be_true
+    end
+
+    context "enable" do
+      context "passes when" do
+        it "checkbox with the given label is present" do
+          @st.enable_checkbox("I like cheese").should be_true
+          @st.enable_checkbox("I like salami").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "checkbox with the given label is absent" do
+          @st.enable_checkbox("I dislike bacon").should be_false
+          @st.enable_checkbox("I like broccoli").should be_false
+        end
+      end
+    end
+
+    context "disable" do
+      context "passes when" do
+        it "checkbox with the given label is present" do
+          @st.disable_checkbox("I like cheese").should be_true
+          @st.disable_checkbox("I like salami").should be_true
+        end
+      end
+      context "fails when" do
+        it "checkbox with the given label is absent" do
+          @st.disable_checkbox("I dislike bacon").should be_false
+          @st.disable_checkbox("I like broccoli").should be_false
+        end
+      end
+    end
+
+    context "is enabled" do
+      context "passes when" do
+        it "checkbox with the given label exists and is checked" do
+          @st.enable_checkbox("I like cheese").should be_true
+          @st.checkbox_is_enabled("I like cheese").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "checkbox with the given label exists but is unchecked" do
+          @st.disable_checkbox("I like cheese").should be_true
+          @st.checkbox_is_enabled("I like cheese").should be_false
+        end
+
+        it "checkbox with the given label does not exist" do
+          @st.checkbox_is_enabled("I dislike bacon").should be_false
+        end
+      end
+    end
+
+    context "is disabled" do
+      context "passes when" do
+        it "checkbox with the given label exists and is unchecked" do
+          @st.disable_checkbox("I like cheese").should be_true
+          @st.checkbox_is_disabled("I like cheese").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "checkbox with the given label exists but is checked" do
+          @st.enable_checkbox("I like cheese").should be_true
+          @st.checkbox_is_disabled("I like cheese").should be_false
+        end
+
+        it "checkbox with the given label does not exist" do
+          @st.checkbox_is_disabled("I dislike bacon").should be_false
+        end
+      end
+    end
+  end
+
+
+  context 'dropdown' do
+    before(:each) do
+      @st.visit('/form').should be_true
+    end
+
+    context "select" do
+      context "passes when" do
+        it "value exists in a dropdown" do
+          @st.select_from_dropdown("Tall", "Height").should be_true
+          @st.select_from_dropdown("Medium", "Weight").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "dropdown exists, but the value doesn't" do
+          @st.select_from_dropdown("Giant", "Height").should be_false
+          @st.select_from_dropdown("Obese", "Weight").should be_false
+        end
+
+        it "no such dropdown exists" do
+          @st.select_from_dropdown("Over easy", "Eggs").should be_false
+        end
+      end
+    end
+
+    context "verify" do
+      # TODO
+    end
+  end
+
+
+  context 'navigation' do
+    before(:each) do
+      @st.visit('/').should be_true
+    end
+
+    context "visit" do
+      context "passes when" do
+        it "page exists" do
+          @st.visit("/about").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "page does not exist" do
+          @st.visit("/bad/path").should be_false
+        end
+      end
+    end
+
+    context "reload the current page" do
+      # TODO
+    end
+
+    context "go back to the previous page" do
+      it "passes and loads the correct URL" do
+        @st.visit("/about")
+        @st.visit("/")
+        @st.click_back.should be_true
+        @st.see_title("About this site").should be_true
+      end
+
+      #it "fails when there is no previous page in the history" do
+        # TODO: No obvious way to test this, since everything is running in the
+        # same session
+      #end
+    end
+
+    context "clicking a link" do
+      it "passes and loads the correct page when a link exists" do
+        @st.click_link("About this site").should be_true
+        @st.see_title("About this site").should be_true
+        @st.see("This site is really cool").should be_true
+      end
+
+      it "fails when a link does not exist" do
+        @st.follow("Bogus link").should be_false
+      end
+    end
+  end
+
+
+  context 'text field' do
+    before(:each) do
+      @st.visit('/form').should be_true
+    end
+
+    context "type into or fill in" do
+      context "passes when" do
+        it "text field with the given label exists" do
+          @st.type_into_field("Eric", "First name").should be_true
+          @st.fill_in_with("Last name", "Pierce").should be_true
+        end
+
+        it "text field with the given id exists" do
+          @st.type_into_field("Eric", "first_name").should be_true
+          @st.fill_in_with("last_name", "Pierce").should be_true
+        end
+
+        it "texarea with the given label exists" do
+          @st.type_into_field("Blah blah blah", "Life story").should be_true
+          @st.fill_in_with("Life story", "Jibber jabber").should be_true
+        end
+
+        it "texarea with the given id exists" do
+          @st.type_into_field("Blah blah blah", "biography").should be_true
+          @st.fill_in_with("biography", "Jibber jabber").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "no field with the given label or id exists" do
+          @st.type_into_field("Matthew", "Middle name").should be_false
+          @st.fill_in_with("middle_name", "Matthew").should be_false
+        end
+      end
+    end
+
+    context "should contain" do
+      context "passes when" do
+        it "textarea contains the text" do
+          @st.fill_in_with("Life story", "Blah dee blah")
+          @st.field_contains("Life story", "blah").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "textarea does not contain the text" do
+          @st.fill_in_with("Life story", "Blah dee blah")
+          @st.field_contains("Life story", "spam").should be_false
+        end
+      end
+    end
+
+    context "should equal" do
+      context "passes when" do
+        it "textarea equals the text" do
+          @st.fill_in_with("Life story", "Blah dee blah")
+          @st.field_equals("Life story", "Blah dee blah").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "textarea does not exactly equal the text" do
+          @st.fill_in_with("Life story", "Blah dee blah")
+          @st.field_equals("Life story", "Blah dee").should be_false
+        end
+      end
+    end
+  end
+
+
+  context 'visibility' do
+    before(:each) do
+      @st.visit('/').should be_true
+    end
+
+    context "should see" do
+      context "passes when" do
+        it "text is present" do
+          @st.see('Welcome').should be_true
+          @st.see('This is a Sinatra webapp').should be_true
+        end
+      end
+
+      context "fails when" do
+        it "text is absent" do
+          @st.see('Nonexistent').should be_false
+          @st.see('Some bogus text').should be_false
+        end
+      end
+
+      it "is case-sensitive" do
+        @st.see('Sinatra webapp').should be_true
+        @st.see('sinatra Webapp').should be_false
+      end
+    end
+
+    context "should not see" do
+      context "passes when" do
+        it "text is absent" do
+          @st.do_not_see('Nonexistent').should be_true
+          @st.do_not_see('Some bogus text').should be_true
+        end
+      end
+
+      context "fails when" do
+        it "fails when test is present" do
+          @st.do_not_see('Welcome').should be_false
+          @st.do_not_see('This is a Sinatra webapp').should be_false
+        end
+      end
+
+      it "is case-sensitive" do
+        @st.do_not_see('Sinatra webapp').should be_false
+        @st.do_not_see('sinatra Webapp').should be_true
+      end
+    end
+  end
+
+end
+

data/spec/spec_helper.rb

@@ -0,0 +1,41 @@
+require 'rspec'
+require 'rsel'
+require 'selenium/client'
+
+require File.expand_path(File.join(File.dirname(__FILE__), '..', 'test', 'app'))
+
+RSpec.configure do |config|
+  config.include Rsel
+
+  config.before(:all) do
+    @st = Rsel::SeleniumTest.new('http://localhost:8070/')
+    @st.open_browser
+  end
+
+  config.after(:all) do
+    @st.close_browser
+  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/test/app.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'sinatra/base'
+require 'rack'
+require 'erb'
+
+class TestApp < Sinatra::Base
+  set :root, File.dirname(__FILE__)
+  set :static, true
+
+  get '/' do
+    erb :index
+  end
+
+  get '/about' do
+    erb :about
+  end
+
+  get '/form' do
+    erb :form
+  end
+
+  # Allow shutting down the app with a request
+  get '/shutdown' do
+    Process.kill('KILL', Process.pid)
+  end
+end
+
+
+if __FILE__ == $0
+  Rack::Handler::Mongrel.run TestApp, :Port => 8070
+end
+

data/test/config.ru

@@ -0,0 +1,4 @@
+require 'rubygems'
+require File.join(File.dirname(__FILE__), 'app.rb')
+
+run TestApp

data/test/views/about.erb

@@ -0,0 +1,9 @@
+<html>
+<head><title>About this site</title></head>
+<body>
+  <h1>About this site</h1>
+  <p>This site is really cool.</p>
+</body>
+</html>
+
+

data/test/views/form.erb

@@ -0,0 +1,102 @@
+<!DOCTYPE html>
+<html>
+<head><title>Rsel Test Forms</title></head>
+<body>
+  <h1>Forms</h1>
+  <p>This page has some random forms to test.</p>
+
+  <div id="person_form">
+    <form action="/thanks" method="get">
+      <p>
+        <label for="first_name">First name</label>
+        <input id="first_name" type="text" />
+      </p>
+      <p>
+        <label for="last_name">Last name</label>
+        <input id="last_name" type="text" />
+      </p>
+      <p>
+        <label for="biography">Life story</label>
+        <textarea id="biography" cols="80" rows="10">
+        </textarea>
+      </p>
+      <p>
+        <label for="height">Height</label>
+        <select id="height">
+          <option value="short">Short</option>
+          <option value="average" selected="selected">Average</option>
+          <option value="tall" >Tall</option>
+        </select>
+      </p>
+      <p>
+        <label for="weight">Weight</label>
+        <select id="weight">
+          <option value="light">Light</option>
+          <option value="medium">Medium</option>
+          <option value="heavy">Heavy</option>
+        </select>
+      </p>
+      <p><button value="submit_person_form">Submit person form</button></p>
+    </form>
+  </div>
+
+  <div id="preferences_form">
+    <form action="/thanks" method="get">
+      <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>
+      <table>
+        <tr>
+          <th>Apple</th>
+          <td>
+            <label for="like_apple">Like</label>
+            <input id="like_apple" type="checkbox" checked="checked"/>
+          </td>
+        </tr>
+        <tr>
+          <th>Banana</th>
+          <td>
+            <label for="like_banana">Like</label>
+            <input id="like_banana" type="checkbox"/>
+          </td>
+        </tr>
+      </table>
+      <p>
+        <label for="message">Message</label>
+        <input id="message" type="text" value="Your message goes here" />
+      </p>
+      <p><input type="submit" value="Save preferences" /></p>
+    </form>
+  </div>
+
+  <div id="other_form">
+    <form action="/thanks" method="get">
+      <p>
+        <label for="quotes">Quotes</label>
+        <select id="quotes">
+          <option value="1">Single 'quotes'</option>
+          <option value="2">"Double" quotes</option>
+          <option value="3">'Single' and "Double" quotes</option>
+        </select>
+      </p>
+      <p><input id="readonly" type="text" disabled="disabled" /></p>
+      <p><input type="submit" value="Save is disabled" disabled="disabled" /></p>
+    </form>
+  </div>
+
+</body>
+</html>
+