pal-thistle 0.0.1.3

data/README

@@ -0,0 +1 @@
+Thistle is a language- and framework agnostic vocabulary for testing web sites.

data/lib/thistle.rb

@@ -0,0 +1,159 @@
+#
+# when time is ripe, drag this out to it's own ruby-gem
+#
+
+# the regex's should be part of the Thistle helper?
+
+# Thistle API for cucumber
+
+require 'thistle_class.rb'
+
+# register actions
+#World(Thistle)
+
+# NAVIGATION
+When /^(?:I )?(?:visit|navigate to|go to|browse) (.+)$/ do |page|
+  visit(page)
+end
+
+# CLICKING
+When /^(?:I )?(?:click|press|choose) (?:the )?(?:\")?(.+?)(?:\")?(?: button)?$/ do |locator|
+ click(locator)
+end
+
+# ENTERING DATA
+When /^(?:I )?(?:enter|type|insert) (?:\")?(.+)(?:\")? (?:in the field|in|into|in the) (?:\")?([^\"]*?)(?:\")?(?: field)?$/ do |text, locator|
+  enter_text(text, locator)
+end
+
+Given /^(?:I )?(?:enter|type|insert)(?: the following):$/ do |input_table|
+  input_table.raw.each do |row|
+    enter_text(row[1], row[0])
+  end
+end
+
+# CONVIENIENCE MATCHER (version 2.0 stuff!)
+Given /^(?:I )?login as "([^\"]*)" \/ "([^\"]*)"$/ do |username, password|
+  login(username, password)
+end
+
+# check for matching title / refactor for any element
+Then /^(?:the )?(?:\")?([^\"]*)(?:\")? should (?:be|equal) (?:\")?([^\"]*)(?:\")?$/ do |locator, expected_value|
+  check_locator_value(locator, expected_value)
+end
+
+Then /^(?:the )?([^\"]*) should (?:match) ([^\"]*)$/ do |locator, regex_pattern|
+  match_locator_value(locator, regex_pattern)
+end
+
+Then /^(?:I )?should see (?:the text )?(?:\")?([^\"]*)(?:\")?$/ do |expected_text|
+  check_for_text(expected_text)
+end
+
+Then /^(?:I )?should not see (?:the text )?(?:\")?([^\"]*)(?:\")?$/ do |expected_text|
+  check_for_text(expected_text, false)
+end
+
+
+# below here is inspiration! =)
+
+=begin
+
+Then /^the page should load in less than (\d+) seconds$/ do |timeout|
+  # no need for this in Watir, all checks wait by default
+  # see http://wiki.openqa.org/display/WTR/How+to+wait+with+Watir
+end
+=end
+
+
+
+
+
+=begin 
+case PLATFORM
+when /darwin/
+  require 'safariwatir'
+  Browser = Watir::Safari
+when /win32|mingw/
+  require 'watir'
+  Browser = Watir::IE
+  # Browser.speed = :fast
+when /java/
+  require 'celerity'
+  Browser = Celerity::Browser
+else
+  raise "This platform is not supported (#{PLATFORM})"
+end
+=end
+
+=begin
+# default from cukes
+# http://github.com/aslakhellesoy/cucumber/raw/9ecb25dcf645d0f55cb27c2383ae3d9763399f93/generators/cucumber/templates/common_webrat.rb
+When /I press "(.*)"/ do |button|
+  clicks_button(button)
+end
+
+When /I follow "(.*)"/ do |link|
+  clicks_link(link)
+end
+
+When /I enter "(.*)" for "(.*)"/ do |value, field|
+  fills_in(field, :with => value) 
+end
+
+When /I check "(.*)"/ do |field|
+  checks(field) 
+end
+
+
+
+Then /I should see "(.*)"/ do |text|
+  response.body.should =~ /#{text}/m
+end
+
+Then /I should not see "(.*)"/ do |text|
+  response.body.should_not =~ /#{text}/m
+end
+
+
+
+
+
+#require 'celerity'
+require 'spec'
+require 'hpricot'
+
+#Before do
+# @browser = Browser.new #Celerity::IE.new #Browser.new
+#  @browser.speed = :fast
+#end
+
+After do
+  @browser.close
+end
+
+Given /^I navigate to (.+)$/ do |url|
+  @browser.goto url
+end
+
+Then /^the title should be "(.+)"$/ do |text|
+  @browser.title.should == text
+end
+
+Then /^there should be a link to (.+)(?: present)?$/ do |url|
+  @browser.link(:url, url)
+end
+
+When /^I enter "(.+)" in the (.+) field$/ do |text, locator|
+  @browser.text_field(:name, locator).set(text)
+end
+
+When /^press the "(.+)" button$/ do |locator|
+  @browser.button(:value, locator).click
+end
+
+Then /^the page should load in less than (\d+) seconds$/ do |timeout|
+  # no need for this in Watir, all checks wait by default
+  # see http://wiki.openqa.org/display/WTR/How+to+wait+with+Watir
+end
+=end

data/lib/thistle_class.rb

@@ -0,0 +1,106 @@
+require 'spec'
+require 'spec/expectations'
+require 'webrat'
+
+# Helper code for Thistle, take 1
+module Thistle
+  class Thistle
+    #include Spec::Matchers
+    #include Webrat::Locators
+    
+    def initialize(session = nil) #:nodoc:
+      @webrat_session = session
+    end
+    
+    #def webrat_session=(session)
+    #  @webrat_session = session
+    #end
+    
+    #@path_to = {
+    #  "the home page" => "/"
+    #}
+    
+    def visit (page) 
+      #@browser.goto page # celerity
+      #visits(@path_to[page]) # webrat
+      @webrat_session.visit page
+    end
+    
+    def check_locator_value (locator, expected_value)
+      # refactor pls!
+      if locator == "title"
+        @webrat_session.response.title.should =~ /#{Regexp.escape(expected_value)}/m 
+      else
+        @webrat_session.response.body.should =~ /#{Regexp.escape(expected_value)}/m 
+      end
+    end
+    
+    def enter_text (text, locator) 
+      #@browser.text_field(:name, locator).set(text) # celerity
+      # todo add FieldPrependedByLocator to webrat
+      puts "Looking for field #{locator}"
+      
+=begin
+      if  @webrat_session.field(locator) != nil
+        puts "Found field #{locator} as field"
+      elsif  Webrat::XML.attribute(field_element, "id") =~ /#{Regexp.escape(locator)}/
+        puts "Found field #{locator} by regex"
+      end
+=end
+      
+      # use FieldLabeledLocator as well?
+      @webrat_session.fill_in locator, :with => text
+    end
+    
+    def login (username, password) 
+      # find the two fields and the submit-button
+      raise "Thistle Login-method not implemented yet!"
+    end
+    
+    
+    
+    def match_locator_value (locator, regex_pattern)
+      #  @browser.title.should =~ Regexp.new(regex_pattern) # celerity
+      pending
+      raise "Thistle match_locator_value-method not implemented yet!"
+      end
+    
+    def check_for_text (text, should_be_present = true)
+      if !should_be_present
+        @webrat_session.response.body.should_not =~ /#{Regexp.escape(text)}/m 
+      else
+        @webrat_session.response.body.should =~ /#{Regexp.escape(text)}/m 
+      end
+    end
+    
+def click (locator) 
+  #@browser.button(:value, locator).click # celerity
+  # refactor me!
+=begin
+  if  @webrat_session.find_button(locator) != nil
+    puts "Found button #{locator}"
+  elsif  @webrat_session.find_link(locator) != nil
+    puts "Found link #{locator}"
+  else
+    puts "Nothing found to click"
+  end
+=end
+
+  begin
+    @webrat_session.click_button locator
+  rescue
+    begin
+      @webrat_session.click_link /#{Regexp.escape(locator)}/
+    rescue
+      $stderr.puts $!.inspect
+      raise "Cannot find #{locator}"
+    end
+  end
+  
+  #end
+end
+    
+  end
+end 
+
+#World(Thistle)

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification 
+name: pal-thistle
+version: !ruby/object:Gem::Version 
+  version: 0.0.1.3
+platform: ruby
+authors: 
+- Pal Brattberg
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-05-25 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.6
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: cucumber
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.3.7
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: webrat
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.4.4
+    version: 
+description: Thistle is a language- and framework agnostic vocabulary for testing web sites.
+email: brattberg@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README
+- lib/thistle.rb
+- lib/thistle_class.rb
+has_rdoc: true
+homepage: http://github.com/pal/thistle
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: 
+- cucumber, rspec and webrat
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Thistle is a language- and framework agnostic vocabulary for testing web sites.
+test_files: []
+