atrium 0.0.1.alpha

data/test_support/features/step_definitions/atrium_collection_steps.rb

@@ -0,0 +1,102 @@
+require File.expand_path(File.join(File.dirname(__FILE__), "..", "support", "paths"))
+
+Given /^"([^"]*)" exists with id (\d+)$/ do |model_str, model_id|
+  model_str = "atrium/"+model_str.gsub(/\s/, '_').singularize
+  klass = eval(model_str.camelize)
+  klass.find(model_id).should_not be_nil
+end
+
+
+Then /^I should see "([^"]*)" link(?: within "([^"]*)")?$/ do |link_locator, scope_selector|
+  with_scope(scope_selector) do
+    begin
+      find_link(link_locator)
+    rescue
+      raise "no link with value or id or text '#{link_locator}' found"
+    end
+  end
+end
+
+Then /^I (should not|should) see an? "([^\"]*)" tag with an? "([^\"]*)" attribute of "([^\"]*)"$/ do |bool,tag,attribute,value|
+  if bool == "should not"
+    page.should_not have_xpath("//#{tag}[contains(@#{attribute}, #{value})]")
+  else
+    page.should have_xpath("//#{tag}[contains(@#{attribute}, #{value})]")
+  end
+end
+
+Given /^User exists with a login of "([^\"]*)"$/ do |login|
+  email = "#{login}@#{login}.com"
+  User.find_by_email(email).should_not be_nil
+  visit destroy_user_session_path
+  visit new_user_session_path
+  fill_in "Email", :with => email
+  fill_in "Password", :with => "password"
+  click_button "Sign in"
+  step %{I should see "Log Out"}
+end
+
+Then /^I should have showcase for collection with id (\d+)$/ do |collection_id|
+  collection= Atrium::Collection.find(collection_id)
+  showcase= Atrium::Showcase.with_selected_facets(collection_id,collection.class.name, nil).first
+  showcase.should_not be nil
+end
+
+Then /^I should have "([^\"]*)" field$/ do  |field_name|
+  page.should have_selector("textarea#atrium_description_#{field_name}_attributes_content")
+end
+
+When /^I add "([^"]*)" with content "([^"]*)" to the collection with id "([^"]*)"$/ do |field, content, collection_id|
+  collection= Atrium::Collection.find(collection_id)
+  showcase= Atrium::Showcase.with_selected_facets(collection_id,collection.class.name, nil).first
+  fill_in "atrium_description_#{field}_attributes_content", :with => content
+  click_button "Save"
+  page.should have_content(content)
+  visit atrium_collection_showcase_path(collection.id, showcase.id, nil)
+end
+
+When /^I (add|remove) record (.+) (to|from) featured for showcase with id (.+)$/ do |add_or_remove, id, wording,showcase_id|
+  click_button("folder_submit_#{id}")
+  showcase= Atrium::Showcase.find(showcase_id)
+  asset= showcase.showcases_type.find(showcase.showcases_id)
+  visit atrium_collection_atrium_showcases_path(asset, :showcase_id => showcase.id)
+end
+
+Then /^I should have link to "([^"]*)" in featured list$/ do |name|
+  #puts "#{page.find("span#show_selected div#documents div.document h3.index_title a")['href'].inspect}"
+  page.should have_selector("div#show-selected div#documents div.document h3.index_title", :content => name)
+end
+
+When /^I add record "([^"]*)" to featured to the "([^"]*)" with id "([^"]*)" and facet "([^"]*)"$/  do |record_id, collection_or_exhibit, id, facet|
+  click_button("folder_submit_#{record_id}")
+  asset= collection_or_exhibit.eql?("collection") ?  Atrium::Collection.find(id) : Atrium::Exhibit.find(id)
+  selected_facet= collection_or_exhibit.eql?("collection") ? nil : {"pub_date"=>["#{facet}"]}
+  showcase= Atrium::Showcase.with_selected_facets(asset.id, asset.class.name, selected_facet).first
+  showcase.should_not be nil
+  @atrium_showcase=showcase
+  @atrium_collection = collection_or_exhibit.eql?("collection") ? asset : Atrium::Collection.find(asset.atrium_collection_id)
+  puts @atrium_collection.inspect
+  puts @atrium_showcase.inspect
+  path = collection_or_exhibit.eql?("collection") ?  atrium_collection_showcase_path(asset, :showcase_id => showcase.id) : atrium_exhibit_path(asset.id, :f => selected_facet)
+  puts path.inspect
+  visit path
+end
+
+When /^I add description with id "([^"]*)" to (collection|exhibit) with id "([^"]*)" and facet "([^"]*)"$/  do |id, collection_or_exhibit, asset_id, facet|
+  click_button("folder_submit_#{id}")
+  asset= collection_or_exhibit.eql?("collection") ?  Atrium::Collection.find(asset_id) : Atrium::Exhibit.find(asset_id)
+  #puts asset.inspect
+  selected_facet= collection_or_exhibit.eql?("collection") ? nil : {"pub_date"=>["#{facet}"]}
+  showcase= Atrium::Showcase.with_selected_facets(asset.id, asset.class.name, selected_facet).first
+  showcase.should_not be nil
+  #puts showcase.inspect
+  path = atrium_descriptions_link_path(:showcase_id=>showcase.id)
+  visit path
+end
+
+Then /^I should see description with title "([^"]*)" in description list$/ do |title|
+  content="Essay: #{title}"
+  page.should have_selector("div#show-description h3", :content => content)
+end
+
+

data/test_support/features/step_definitions/atrium_exhibit_steps.rb

@@ -0,0 +1,53 @@
+
+Then /^"([^"]*)" should( not)? be an option for "([^"]*)"(?: within "([^\"]*)")?$/ do |value, negate, field, selector|
+  with_scope(selector) do
+    expectation = negate ? :should_not : :should
+    field_labeled(field).first(:xpath, ".//option[text() = '#{value}']").send(expectation, be_present)
+  end
+end
+
+Given /^I follow the "([^"]*)" link for exhibit with id (\d+)$/ do |link, id|
+  page.find(:xpath, ".//li[@data-id = #{id}]/span[@class='controls']/a[text()='#{link}']").click
+end
+
+
+
+Then /^I should have "([^"]*)" containing only (\d+) "([^"]*)"$/ do |selector, count, element |
+  page.should have_css("#{selector} #{element}", :count => count.to_i)
+end
+
+Then /^I should have the applied solr facet "([^\"]*)" with the value "([^\"]*)"$/ do |filter, text|
+  page.should have_selector("div.facet-list") do |node|
+    node.should have_selector("h3", :content => filter)
+    node.should have_selector("span.selected", :content => text)
+  end
+end
+
+Then /^I should have "([^\"]*)" facet inside "([^\"]*)" facet$/ do |string, filter|
+  #page.should have_selector("li.#{filter}") do |node|
+  #  node.should have_selector("h3.facet-heading", :content => filter)
+  #end
+  page.should have_selector("span.selected", :content => filter)
+  step %{I should see "#{string}" within "li h3.facet-heading"}
+
+end
+
+Then /^I should have showcase for exhibit with id "([^"]*)" and facet "([^"]*)"$/ do |exhibit_id, facet|
+  exhibit= Atrium::Exhibit.find(exhibit_id)
+  showcase= Atrium::Showcase.with_selected_facets(exhibit_id,exhibit.class.name, {"pub_date"=>["#{facet}"]}).first
+  #puts "Showcase: #{showcase.inspect}"
+  showcase.should_not be nil
+end
+
+
+When /^I add "([^"]*)" with content "([^"]*)" to the exhibit with id "([^"]*)" and facet "([^"]*)"$/ do |field, content, id, facet|
+  exhibit= Atrium::Exhibit.find(id)
+  showcase= Atrium::Showcase.with_selected_facets(id,exhibit.class.name, {"pub_date"=>["#{facet}"]}).first
+  fill_in "atrium_description_#{field}_attributes_content", :with => content
+  click_button "Save"
+  page.should have_content(content)
+  visit atrium_exhibit_path(exhibit.id, :f=>{"pub_date"=>["#{facet}"]})
+end
+
+
+

data/test_support/features/step_definitions/bookmarks_steps.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+Given /^"([^\"]*)" has bookmarked an item with title "([^\"]*)"$/ do |user, title|
+  user = User.find_by_email("#{user}@#{user}.com")
+  user.bookmarks <<  Bookmark.create(:title => title, :document_id => "123456")
+  user.save!
+end

data/test_support/features/step_definitions/error_steps.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+# checkout http://blog.codefront.net/2007/03/31/testing-rescue_action_in_public-with-rspec/
+Then /^I should see a flash error "([^\"]*)"$/ do |message|
+  pageshould have_selector("div.notice", :content => message)
+end

data/test_support/features/step_definitions/folder_steps.rb

@@ -0,0 +1,27 @@
+# -*- encoding : utf-8 -*-
+Then /^I should see an add to folder form$/ do
+  page.should have_selector("form.addFolder")
+end
+
+Then /^I should see a remove from folder form$/ do
+  page.should have_selector("form.deleteFolder")
+end
+
+When /^I (add|remove) record (.+) (to|from) my folder$/ do |add_or_remove, id, wording|
+  click_button("folder_submit_#{id}")
+end
+
+Given /^I have record (.+) in my folder$/ do |arg1|
+  visit catalog_path(arg1)
+  click_button("Select")
+  click_link("Selected Items")
+end
+
+Then /^I (should|should not) see the Folder tools$/ do |comparator|
+  case comparator
+    when "should"
+      page.should have_selector("ul.folderTools")
+    when "should not"
+      page.should_not have_selector("ul.folderTools")
+    end
+end 

data/test_support/features/step_definitions/general_steps.rb

@@ -0,0 +1,50 @@
+# -*- encoding : utf-8 -*-
+When /^I follow "([^\"]*)" in "([^\"]*)"$/ do |link, scope|
+  within(scope) do
+    click_link(link)
+  end
+end
+
+Then /^I should see a stylesheet/ do
+  page.should have_selector("link[rel=stylesheet]")
+end
+
+Then /I should see "(.*)" (at least|at most|exactly) (.*) times?$/i do |target, comparator, expected_num|
+  actual_num = page.split(target).length - 1
+  case comparator
+    when "at least"
+      actual_num.should >= expected_num.to_i
+    when "at most"
+      actual_num.should <= expected_num.to_i
+    when "exactly"
+      actual_num.should == expected_num.to_i
+  end
+end
+
+Then /I should see a "(.*)" element with "(.*)" = "(.*)" (at least|at most|exactly) (.*) times?$/i do |target, type, selector,comparator, expected_num|
+  actual_num = page.all("#{target}[#{type}=\"#{selector}\"]").length
+  case comparator
+    when "at least"
+      actual_num.should >= expected_num.to_i
+    when "at most"
+      actual_num.should <= expected_num.to_i
+    when "exactly"
+      actual_num.should == expected_num.to_i
+  end
+end          
+
+Then /^I (should not|should) see an? "([^\"]*)" element with an? "([^\"]*)" attribute of "([^\"]*)"$/ do |bool,elem,attribute,value|
+  if bool == "should not"
+    page.should_not have_selector("#{elem}[#{attribute}=#{value}]")
+  else
+    page.should have_selector("#{elem}[#{attribute}=#{value}]")
+  end
+end
+
+Then /^I (should not|should) see an? "([^\"]*)" element with an? "([^\"]*)" attribute of "([^\"]*)" and an? "([^\"]*)" attribute of "([^\"]*)"$/ do |bool,elem,attribute,value,attribute2,value2|
+  if bool == "should not"
+    page.should_not have_selector("#{elem}[#{attribute}=#{value}][#{attribute2}=#{value2}]")
+  else
+    page.should have_selector("#{elem}[#{attribute}=#{value}][#{attribute2}=#{value2}]")
+  end
+end

data/test_support/features/step_definitions/record_view_steps.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+Then /^I (should|should not) see an? "([^\"]*)" element containing "([^\"]*)"$/ do |bool,elem,content|
+  if bool == "should"
+    page.should have_xpath("//#{elem}[text()='#{content}']")
+  else
+    page.should have_no_xpath("//#{elem}[text()='#{content}']")
+  end
+end  
+
+Then /^I should see link rel=alternate tags/ do
+  page.should have_selector("link[rel=alternate]")
+end

data/test_support/features/step_definitions/saved_searches_steps.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+Given /^I am logged in as "([^\"]*)"$/ do |login|
+  email = "#{login}@#{login}.com"
+  user = User.create(:login => login, :email => email, :password => "password", :password_confirmation => "password")
+#  visit user_sessions_path(:user_session => {:login => login, :password => "password"}), :post
+#  User.find(user.id).should_not be_nil
+  visit new_user_session_path
+  fill_in("user_email", :with => email) 
+  fill_in("user_password", :with => "password") 
+  click_button("Sign in")
+#  response.body.should =~ /Logged/m  
+  Then 'I should see "Log Out"'
+end
+
+Given /^"([^\"]*)" has saved a search with term "([^\"]*)"$/ do |user, term|
+  user = User.find_by_email("#{user}@#{user}.com")
+  user.searches << Search.create(:query_params => {:q => term})
+  user.save!
+end
+
+
+

data/test_support/features/step_definitions/search_facets_steps.rb

@@ -0,0 +1,29 @@
+# -*- encoding : utf-8 -*-
+# deprecated
+Then /^I should see the applied filter "([^\"]*)" with the value "([^\"]*)"$/ do |filter, text|
+  page.should have_selector(".facet_limit") do |node|
+    node.should have_selector("h3", :content => filter)
+    node.should have_selector("span.selected", :content => text)
+  end
+end
+
+Then /^I should see the applied facet "([^\"]*)" with the value "([^\"]*)"$/ do |filter, text|
+  page.should have_selector(".facet_limit") do |node|
+    node.should have_selector("h3", :content => filter)
+    node.should have_selector("span.selected", :content => text)
+  end
+end
+
+Then /^I should see the facet "([^\"]*)" with the value "([^\"]*)"$/ do |filter, text|
+  page.should have_selector(".facet_limit") do |node|
+    node.should have_selector("h3", :content => filter)
+    node.should have_selector("a.label", :content => text)
+  end
+end
+
+Then /^the facet "([^\"]+)" should display$/ do |filter|
+  page.should have_selector(".facet_limit") do |node|
+    node.should have_selector("h3", :content => filter)
+  end
+end
+

data/test_support/features/step_definitions/search_history_steps.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+Given /^no previous searches$/ do
+  # nothing to do
+end
+
+Given /^I have done a search with term "([^\"]*)"$/ do |term|
+  visit catalog_index_path(:q => term)
+end
+

data/test_support/features/step_definitions/search_result_steps.rb

@@ -0,0 +1,114 @@
+# -*- encoding : utf-8 -*-
+#include Blacklight::SolrHelper
+
+When /^I fill in the search box with "(.*?)"$/ do |query|
+  query.gsub!(/\\"/, '"')
+  fill_in(:q, :with => query)
+end
+
+
+Then /^I should get (at least|at most|exactly) (\d+) results?$/i do |comparator, comparison_num|
+  number_of_records = get_number_of_results_from_page(page)
+
+  case comparator
+    when "at least"
+      number_of_records.should >= comparison_num.to_i
+    when "at most"
+      number_of_records.should <= comparison_num.to_i
+    when "exactly"  
+      number_of_records.should == comparison_num.to_i
+  end
+end
+
+
+Then /^I should have (the same number of|fewer|more) results (?:than|as) a(?:n?) search for "(.*)"$/i do |comparator, query|
+  query.gsub!(/\\"/, '"')
+  number_of_records = get_number_of_results_from_page(page)
+
+  case comparator
+    when "the same number of"
+      get_number_of_results_for_query(query).should == number_of_records
+   when "fewer"
+      get_number_of_results_for_query(query).should > number_of_records
+    when "fewer"
+      get_number_of_results_for_query(query).should < number_of_records
+  end
+end
+
+Then /^I should get id "([^\"]+)" in the results$/i do |id|
+  page.should have_xpath("//a[contains(@href, #{id})]")
+end
+
+Then /^I should not get id "([^\"]+)" in the results$/i do |id|
+  page.should_not have_xpath("//a[contains(@href, #{id})]")
+end
+
+Then /^I should get id "([^\"]+)" in the first (\d+) results?$/i do |id, max_num|
+  pos = get_position_in_result_page(page, id)
+  pos.should_not == -1
+  pos.should < max_num.to_i
+end
+
+Then /^I should not get id "([^\"]+)" in the first (\d+) results?$/i do |id, max_num|
+  pos = get_position_in_result_page(page, id)
+  pos.should_not == -1
+
+  if pos > 0
+    pos.should >= max_num.to_i 
+  else
+    pos.should == -1 if pos == -1 
+  end
+end
+
+Then /^I should get id "([^\"]+)" before id "([^\"]+)"$/i do |id1, id2|
+  pos1 = get_position_in_result_page(page, id1)
+  pos2 = get_position_in_result_page(page, id2)
+  pos1.should_not == -1
+  pos2.should_not == -1
+
+  pos1.should < pos2
+end
+
+Then /^I should get id "([^\"]+)" and id "([^\"]+)" no more than (\d+) positions? from each other$/i do |id1, id2, limit|
+
+  pos1 = get_position_in_result_page(page, id1)
+  pos2 = get_position_in_result_page(page, id2)
+  pos1.should_not == -1
+  pos2.should_not == -1
+
+  (pos1 - pos2).abs.should <= limit.to_i
+end
+
+Then /^I should get at least (\d+) of these ids in the first (\d+) results: "([^\"]+)"$/i do |how_many, limit, id_string|
+  id_string.split(/,/).select do |id|
+    pos = get_position_in_result_page(page, id)
+    pos != -1 and pos < limit.to_i
+  end.length.should >= how_many.to_i 
+end
+
+Then /^I (should not|should) see an? "([^\"]*)" element with an? "([^\"]*)" attribute of "([^\"]*)"$/ do |bool,elem,attribute,value|
+  if bool == "should not"
+    page.should_not have_selector("#{elem}[#{attribute}=#{value}]")
+  else
+    page.should have_selector("#{elem}[#{attribute}=#{value}]")
+  end
+end
+
+def get_position_in_result_page(page, id)
+  i = -1
+  page.all(".index_title a").each_with_index do |link, idx|
+    i = (idx+1) if link['href'] =~ Regexp.new(Regexp.escape(id) + "$")
+  end
+  i.to_i
+end
+
+def get_number_of_results_for_query(query)
+  visit root_path
+  fill_in "q", :with => query
+  click_button "search"
+  get_number_of_results_from_page(page)
+end
+
+def get_number_of_results_from_page(page)
+  page.find("meta[name=totalResults]")['content'].to_i rescue 0
+end

data/test_support/features/step_definitions/search_steps.rb

@@ -0,0 +1,103 @@
+# -*- encoding : utf-8 -*-
+# User added
+Then /^I should see a search field$/ do
+  page.should have_selector("input#q")
+end
+
+Then /^I should see a selectable list with field choices$/ do
+  page.should have_selector("select#search_field")
+end
+
+Then /^I should see a selectable list with per page choices$/ do
+  page.should have_selector("select#per_page")
+end
+
+Then /^I should see a "([^\"]*)" button$/ do |label|
+  page.should have_selector("input[type='submit'][value='#{label}']")
+end
+
+Then /^I should not see the "([^\"]*)" element$/ do |id|
+  page.should_not have_selector("##{id}")
+end
+
+Then /^I should see the "([^\"]*)" element$/ do |id|
+  page.should have_selector("##{id}")
+end
+
+Given /^the application is configured to have searchable fields "([^\"]*)" with values "([^\"]*)"$/ do |fields, values|
+  labels = fields.split(", ")
+  values = values.split(", ")
+  combined = labels.zip(values)
+  Blacklight.config[:search_fields] = []
+  combined.each do |pair|
+    Blacklight.config[:search_fields] << pair
+  end
+end
+
+Then /^I should see select list "([^\"]*)" with field labels "([^\"]*)"$/ do |list_css, names|
+  page.should have_selector(list_css) do
+    labels = names.split(", ")
+    labels.each do |label|
+      with_tag('option', label)
+    end
+  end
+end
+
+Then /^I should see select list "([^\"]*)" with "([^\"]*)" selected$/ do |list_css, label|
+  page.should have_selector(list_css) do |e|
+    with_tag("[selected=selected]", {:count => 1}) do
+      with_tag("option", {:count => 1, :text => label})
+    end
+  end
+end
+
+# Results Page
+Given /^the application is configured to have sort fields "([^\"]*)" with values "([^\"]*)"$/ do |fields, values|
+  labels = fields.split(", ")
+  values = values.split(", ")
+  combined = labels.zip(values)
+  Blacklight.config[:sort_fields] = []
+  combined.each do |pair|
+    Blacklight.config[:sort_fields] << pair
+  end
+end
+
+Then /^I should get results$/ do 
+  page.should have_selector("div.document")
+end
+
+Then /^I should not get results$/ do 
+  page.should_not have_selector("div.document")
+end
+
+Then /^I should see the applied filter "([^\"]*)" with the value "([^\"]*)"$/ do |filter, text|
+  page.should have_selector("div#facets div h3", :content => filter)
+  page.should have_selector("div#facets div span.selected", :content => text)
+end
+
+Then /^I should see an rss discovery link/ do
+  page.should have_selector("link[rel=alternate][type='application/rss+xml']")
+end
+
+Then /^I should see an atom discovery link/ do
+  page.should have_selector("link[rel=alternate][type='application/atom+xml']")
+end
+
+Then /^I should see an unAPI discovery link/ do
+  page.should have_selector("link[rel=unapi-server][type='application/xml']")
+end
+
+Then /^I should see opensearch response metadata tags/ do
+  page.should have_selector("meta[name=totalResults]")
+  page.should have_selector("meta[name=startIndex]")
+  page.should have_selector("meta[name=itemsPerPage]")
+end
+
+# Then /^I should see the applied filter "([^\"]*)" with the value
+# "([^\"]*)"$/ do |filter, text|
+#  page.should have_tag("div#facets div") do |node|
+#    node.should have_selector("h3", :content => filter)
+#    node.should have_selector("span.selected", :content => /#{text}.*/)
+#  end
+# end
+