kinney 0.0.1 → 0.0.2

data/test/functional/kinney/admin_clips_controller_test.rb

@@ -0,0 +1,24 @@
+require 'test_helper'
+
+class Kinney::AdminClipsControllerTest < ActionController::TestCase
+  # set_fixture_class :admin_users => Kinney::AdminUser
+  # fixtures :admin_users
+
+  include Devise::TestHelpers
+
+  setup do
+    @controller = ::Admin::KinneyClipsController.new
+  end
+
+  # test "should get track" do
+  #   get :track
+  #   assert_response :success
+  # end
+
+  test "should get analyze" do
+    sign_in kinney_admin_users(:first)
+    get :analyze_tracker, :use_route => :kinney, :id => 'tolson-roots'
+    assert_response :success
+  end
+
+end

data/test/functional/kinney/clips_controller_test.rb

@@ -1,25 +1,27 @@
 require 'test_helper'
 
 class Kinney::ClipsControllerTest < ActionController::TestCase
+  extend TestWithCassette
+
   test "should get index" do
     get :index, :use_route => :kinney
     assert_response :success
     assert assigns(:people)
   end
 
-  test "should get show" do
+  test_with_cassette "should get show", 'clips_controller' do
     get :show, :id => kinney_clips(:tolson_roots), :use_route => :kinney
     assert_response :success
     assert assigns(:clip)
   end
 
-  test "should assign a webvtt variable" do
+  test_with_cassette "should assign a webvtt variable", 'clips_controller' do
     get :show, :id => kinney_clips(:atkins_fire), :use_route => :kinney
     assert assigns(:webvtt)
     assert assigns(:webvtt).respond_to?(:cues)
   end
 
-  test 'should assign title for a show view' do
+  test_with_cassette 'should assign title for a show view', 'clips_controller' do
     get :show, :id => kinney_clips(:tolson_roots), :use_route => :kinney
     assert_equal "This is a description of the Roots clip.", assigns(:meta_description)
   end

data/test/functional/kinney/people_controller_test.rb

@@ -1,17 +1,19 @@
 require 'test_helper'
 
 class Kinney::PeopleControllerTest < ActionController::TestCase
-  test "should get index" do
+  extend TestWithCassette
+
+  test "should get index", :people_controller do
     get :index, :use_route => :kinney
     assert_response :success
   end
 
-  test "should get show" do
+  test "should get show", :people_controller do
     get :show, :id => kinney_people(:tolson), :use_route => :kinney
     assert_response :success
   end
 
-  test "show view should have a title" do
+  test "show view should have a title", :people_controller do
     get :show, :id => kinney_people(:tolson), :use_route => :kinney
     assert_equal "Norris Tolson grew up in Edgecombe County.", assigns(:meta_description)
   end

data/test/functional/kinney/tracker_controller_test.rb

@@ -15,10 +15,4 @@ class Kinney::TrackerControllerTest < ActionController::TestCase
   #   assert_response :success
   # end
 
-  test "should get analyze" do
-    sign_in kinney_admin_users(:first)
-    get :analyze, :use_route => :kinney, :video => 'tolson-roots'
-    assert_response :success
-  end
-
 end

data/test/integration/admin_clip_test.rb

@@ -1,7 +1,8 @@
 require 'test_helper'
 
 class AdminClipTest < ActionDispatch::IntegrationTest
-  
+  extend TestWithCassette
+
   setup do
     browser_start
     admin_login
@@ -11,7 +12,7 @@ class AdminClipTest < ActionDispatch::IntegrationTest
     browser_end
   end
   
-  test "admin user can create new clip" do
+  test "admin user can create new clip", :admin_clip do
     visit('/admin/kinney_clips')
     click_link('New Kinney Clip')
   end
@@ -28,22 +29,24 @@ class AdminClipTest < ActionDispatch::IntegrationTest
 #    # assert_equal '44', page.find_field('clip_duration').value
 #  end
   
-  test "add a description for a clip" do
+  test "add a description for a clip", :admin_clip do
     visit(new_admin_kinney_clip_path)
     assert page.find_field('kinney_clip_description')
     fill_in 'Description', :with => 'This is a description of a new clip.'
   end
   
-  test "display whether there is a VTT file for a clip" do
-    visit(new_admin_kinney_clip_path)
-    fill_in 'Filename', :with => 'atkins-campuslife_fire'
-    page.execute_script("$('#kinney_clip_filename').trigger('focus')") # to make sure focus is triggered  
-    assert page.has_content?('WEBVTT Found')
-    fill_in 'Filename', :with => 'some-garbage'
-    assert page.has_content?('WEBVTT Not Found')
+  test "display whether there is a VTT file for a clip", :admin_clip do
+    pending
+    # How to use something like VCR for ajax requests?    
+    # visit(new_admin_kinney_clip_path)
+    # fill_in 'Filename', :with => 'atkins-campuslife_fire'
+    # page.execute_script("$('#kinney_clip_filename').trigger('focus')") # to make sure focus is triggered  
+    # assert page.has_content?('WEBVTT Found')
+    # fill_in 'Filename', :with => 'some-garbage'
+    # assert page.has_content?('WEBVTT Not Found')
   end
 
-  test "do not allow submission of clip if there is no webvtt file" do
+  test "do not allow submission of clip if there is no webvtt file", :admin_clip do
     visit(new_admin_kinney_clip_path)
     assert page.has_selector?("#kinney_clip_submit_action input[@disabled='disabled']")
     fill_in 'Filename', :with => 'atkins-campuslife_fire'

data/test/integration/admin_images_test.rb

@@ -1,7 +1,8 @@
 require 'test_helper'
 
 class AdminImagesTest < ActionDispatch::IntegrationTest
-  
+  extend TestWithCassette
+
   setup do
     browser_start
     admin_login
@@ -11,38 +12,38 @@ class AdminImagesTest < ActionDispatch::IntegrationTest
     browser_end
   end
   
-  test "user should not be able to create slug" do
+  test "user should not be able to create slug", :admin_images do
     visit(admin_kinney_images_path)
     click_link('New Kinney Image')
     fill_in 'Filename', :with => '000001'
     check 'Top Pick?'
   end
   
-  test "user should see image for valid image on show page" do
+  test "user should see image for valid image on show page", :admin_images do
     visit admin_kinney_image_path(kinney_images(:tolson1))
     assert page.has_selector?("div img")
     assert page.find("div img")[:src].include?(kinney_images(:tolson1).filename)
   end
   
-  test "user should see image for valid image on edit page" do    
+  test "user should see image for valid image on edit page", :admin_images do    
     visit edit_admin_kinney_image_path(kinney_images(:tolson1))
     assert page.find("#preview_image").has_selector?('img')
     assert page.find("#preview_image img")[:src].include?(kinney_images(:tolson1).filename)  
   end
   
-  test "user should see image for valid image on new image page" do
+  test "user should see image for valid image on new image page", :admin_images do
     visit new_admin_kinney_image_path
     fill_in 'Filename', :with => '0000001'
     assert page.find("#preview_image").has_selector?('img')
     assert page.find("#preview_image img")[:src].include?('0000001')    
   end
 
-  test "user should see associated name for image on show view" do
+  test "user should see associated name for image on show view", :admin_images do
     visit admin_kinney_image_path(kinney_images(:tolson1))
     assert page.has_content?('Edward Norris Tolson')
   end
 
-  test "user should see associated name for image on index view" do
+  test "user should see associated name for image on index view", :admin_images do
     visit admin_kinney_images_path
     assert page.has_content?('Edward Norris Tolson')
   end

data/test/integration/clips_index_test.rb

@@ -1,7 +1,10 @@
 require 'test_helper'
 
-class ClipsIndexTest < ActionDispatch::IntegrationTest  
-  test "clip index page should list all of the people with videos and the titles of their videos" do
+class ClipsIndexTest < ActionDispatch::IntegrationTest 
+
+  extend TestWithCassette
+
+  test "clip index page should list all of the people with videos and the titles of their videos", :clips_index do
     visit(kinney.clips_path)
     assert page.has_content?('Tolson')
     assert page.has_content?('Growing Up in Edgecombe County')
@@ -10,23 +13,23 @@ class ClipsIndexTest < ActionDispatch::IntegrationTest
     assert page.has_content?('Pullen Fire')
   end
 
-  test "clip index page should list the name_suffix of a person" do
+  test "clip index page should list the name_suffix of a person", :clips_index do
     visit(kinney.clips_path)
     assert page.has_content?('John Leslie Atkins, III')
   end
 
-  test "clip index page should list the graduating class of a person next to the name" do
+  test "clip index page should list the graduating class of a person next to the name", :clips_index do
     visit(kinney.clips_path)
     assert page.has_content?('John Leslie Atkins, III (1965)')
   end
 
-  test "clicking on a video thumbnail should go to a video clip" do 
+  test "clicking on a video thumbnail should go to a video clip", :clips_index do 
     visit(kinney.clips_path)
     page.first('.thumbnail_video').click
     assert page.has_selector?('body.kinney_clips video')
   end
 
-  test "the first text link should be the same as the video thumbnail link" do
+  test "the first text link should be the same as the video thumbnail link", :clips_index do
     visit(kinney.clips_path)
     atkins_section = page.first('#clip_profiles li')
     image_link = atkins_section.find('.thumbnail_video')[:href]

data/test/integration/clips_show_test.rb

@@ -1,31 +1,34 @@
 require 'test_helper'
 
 class ClipsShowTest < ActionDispatch::IntegrationTest
-  test "should show basic information about a clip" do
+
+  extend TestWithCassette
+
+  test "should show basic information about a clip", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_selector?('h1', :text => 'Tolson')
     assert page.has_selector?('h1', :text => 'Growing Up in Edgecombe County')
     assert page.has_selector?('video')
   end
 
-  test "should have link to other videos by the same person" do
+  test "should have link to other videos by the same person", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_selector?('#person_videos a', :text => 'Mentors')
   end
 
-  test "should have link to profile" do
+  test "should have link to profile", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_selector?('#related_people a', :text => 'Edward Norris Tolson')
     assert page.has_selector?('#related_people a img')
   end
 
-  test "should show the transcript" do
+  test "should show the transcript", :clips_show do
     visit(kinney.clip_path(kinney_clips(:atkins_fire)))
     assert page.has_selector?('h2', :text => 'Transcript')
     assert page.has_content?('It was a frightening time')
   end
 
-  test "should expand/collapse the transcript" do
+  test "should expand/collapse the transcript", :clips_show do
     browser_start
     # stubs out saving the tracker to work around a sqlite database locking issue
     Kinney::Tracker.any_instance.stubs(:save).returns(true)
@@ -41,17 +44,17 @@ class ClipsShowTest < ActionDispatch::IntegrationTest
     browser_end
   end
 
-  test "should show other clips related by topic" do
+  test "should show other clips related by topic", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_selector?('#topic_clips a', :text => 'Applying to NC State')
   end
 
-  test "should not see Video Topics section on page" do
+  test "should not see Video Topics section on page", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_no_content?('Video Topics')
   end
 
-  test "should not see More videos on topics with link under video" do
+  test "should not see More videos on topics with link under video", :clips_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_no_content?('More videos on Roots')
   end

data/test/integration/microdata_test.rb

@@ -0,0 +1,40 @@
+require 'test_helper'
+
+class MicrodataTest < ActionDispatch::IntegrationTest
+
+  extend TestWithCassette
+  
+  test "clip show view should have microdata", :microdata do
+    path = kinney.clip_path(kinney_clips(:tolson_roots))
+    visit(path)
+    items = Microdata::Document.new(page.body, path).extract_items
+    item = items[0]
+    assert_equal(['http://schema.org/VideoObject'], item.type)
+    assert_equal(['http://siskel.lib.ncsu.edu/SLI/tolson/tolson-roots/tolson-roots.mp4'], item.properties['contentUrl'])
+    assert_equal(["T44S"], item.properties['duration'])
+    assert_equal(["http://siskel.lib.ncsu.edu/SLI/tolson/tolson-roots/tolson-roots.png"], item.properties['thumbnailUrl'])
+    assert item.properties['uploadDate']
+    assert item.properties['image']
+    assert item.properties['image'].first.include?('scrc.lib.ncsu.edu')
+    assert_equal(["272"], item.properties['height'])
+    assert_equal(["480"], item.properties['width'])
+    assert_equal(["This is a description of the Roots clip. Interview on June  4, 2011. (0:44)"], item.properties['description'])
+  end
+
+  test "person show view should have microdata", :microdata do
+    path = kinney.person_path(kinney_people(:tolson)) 
+    visit(path)
+    items = Microdata::Document.new(page.body, path).extract_items
+    item = items[0]
+    assert_equal(['http://schema.org/Person'], item.type)
+    assert_equal(['Edward Norris Tolson'], item.properties['name'])
+    assert_equal(2, item.properties['description'].length)
+    assert item.properties['description'].include?("Norris Tolson grew up in Edgecombe County.")
+    assert_equal(3, item.properties['image'].length)
+    assert item.properties['image'].first.include?('scrc.lib.ncsu.edu')
+    assert item.properties['alumniOf']
+    assert_equal ['http://schema.org/EducationalOrganization'], item.properties['alumniOf'].first.type
+    assert_equal(['North Carolina State University'], item.properties['alumniOf'].first.properties['name'])
+  end
+
+end

data/test/integration/navigation_test.rb

@@ -2,30 +2,32 @@ require 'test_helper'
 
 class NavigationTest < ActionDispatch::IntegrationTest
   
-  test "there should be a global nav" do
+  extend TestWithCassette
+
+  test "there should be a global nav", :navigation do
     visit(kinney.root_path)
     assert page.has_selector?('#global_nav')
   end
 
-  test "there should be a Videos link in the global navigation" do
+  test "there should be a Videos link in the global navigation", :navigation do
     visit(kinney.root_path)
     assert page.has_selector?('a', :text => 'Videos')
   end
   
-  test "topics navigation in navbar should only include topics with clips" do
+  test "topics navigation in navbar should only include topics with clips", :navigation do
     visit(kinney.root_path)
     assert page.has_selector?('#global_nav #topics_nav li a', :text => 'Mentors')
     assert page.has_no_selector?('#global_nav #topics_nav li', :text => 'Academics')
   end
   
-  test "topics navigation should highlight the current page in the dropdown menu if on a topic page" do
+  test "topics navigation should highlight the current page in the dropdown menu if on a topic page", :navigation do
     visit(kinney.topic_path(kinney_topics(:mentors)))
     assert page.has_selector?('#topics_nav li.active a', :text => 'Mentors')
     assert page.has_selector?('#topics_nav li a', :text => 'Roots')
     assert page.has_no_selector?('#topics_nav li.active a', :text => 'Roots')
   end
 
-  test "there should be a link to People in the global navigation" do
+  test "there should be a link to People in the global navigation", :navigation do
     visit(kinney.root_path)
     assert page.has_selector?('#global_nav ul li a', :text => 'People')
     page.find('#global_nav ul li a', :text => 'People').click

data/test/integration/people_index_test.rb

@@ -1,11 +1,14 @@
 require 'test_helper'
 
 class PeopleIndexTest < ActionDispatch::IntegrationTest
+
+  extend TestWithCassette
+
   setup do
     
   end
 
-  test 'shows people' do
+  test 'shows people', :people_index do
     visit(kinney.people_path)
     assert page.has_content?('People')
     assert page.has_content?('Tolson')
@@ -13,19 +16,19 @@ class PeopleIndexTest < ActionDispatch::IntegrationTest
     assert page.has_content?('Atkins, III')
   end
   
-  test 'links to show view for person with video' do
+  test 'links to show view for person with video', :people_index do
     visit(kinney.people_path)
     click_link('Edward Norris Tolson')
     assert current_path == kinney.person_path(kinney_people(:tolson))
   end
   
-  test 'links to show view for person without video' do
+  test 'links to show view for person without video', :people_index do
     visit(kinney.people_path)
     page.find('#people_no_clips').click_link('William Williams')
     assert current_path == kinney.person_path(kinney_people(:williams))
   end
   
-  test 'sort profile images' do
+  test 'sort profile images', :people_index do
     browser_start
     visit(kinney.people_path)
     assert page.find('.thumbnails li:first').has_content?('Atkins')

data/test/integration/people_show_test.rb

@@ -1,11 +1,13 @@
 require 'test_helper'
 
 class PeopleShowTest < ActionDispatch::IntegrationTest
+  extend TestWithCassette
+
   setup do
     #Capybara.current_driver = Capybara.javascript_driver # :selenium by default
   end
 
-  test 'shows person content' do
+  test_with_cassette 'shows person content', :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     assert page.has_content?('Edward Norris Tolson')
     
@@ -32,7 +34,7 @@ class PeopleShowTest < ActionDispatch::IntegrationTest
     assert page.has_content?("This is a citation.")
   end
   
-  test 'does not show headings for content fields when content is not present' do
+  test_with_cassette 'does not show headings for content fields when content is not present', :people_show do
     visit(kinney.person_path(kinney_people(:williams)))
     assert page.has_content?('William Williams')
     assert page.has_no_selector?('h2', :text => 'Years at State')
@@ -43,61 +45,61 @@ class PeopleShowTest < ActionDispatch::IntegrationTest
     assert page.has_no_selector?('h2', :text => 'Citations')
   end
 
-  test 'if there is only one image and it is a top pick then do not show the image section of the page' do
+  test_with_cassette 'if there is only one image and it is a top pick then do not show the image section of the page', :people_show do
     visit(kinney.person_path(kinney_people(:atkins)))
     assert page.has_no_selector?('h2', :text => 'Images of Jonh Leslie Atkins')
   end
   
-  test 'should give a link to other videos with the same person' do
+  test_with_cassette 'should give a link to other videos with the same person', :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     assert page.has_selector?('#person_videos a', :text => 'Growing Up in Edgecombe County')
     page.find('#person_videos a', :text => 'Mentors').click
     assert page.has_selector?('h1', :text => 'Mentors')
   end
   
-  test "should show a top pick image near the biography" do
+  test_with_cassette "should show a top pick image near the biography", :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     assert page.find('#image_top_pick img')[:src].include?('si-ag1962-p408-tolson')
   end
   
-  test "should not see the top pick image with the other images" do
+  test_with_cassette "should not see the top pick image with the other images", :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     page.all('#other_images img').each do |image|
       assert_false image[:src].include?('si-ag1962-p408-tolson')
     end
   end
 
-  test "should show name_suffix if present" do
+  test_with_cassette "should show name_suffix if present", :people_show do
     visit(kinney.person_path(kinney_people(:atkins)))
     assert page.has_selector?('h1', :text => 'John Leslie Atkins, III')
   end
   
-  test "should provide a link to a video as an image and make it a top pick" do
+  test_with_cassette "should provide a link to a video as an image and make it a top pick", :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     image_link = page.find('.thumbnail_video:first')[:href]
     assert_equal kinney.clip_path(kinney_clips(:tolson_roots)), image_link
   end
 
-  test "should provide a link to other videos as text links" do 
+  test_with_cassette "should provide a link to other videos as text links", :people_show do 
     visit(kinney.person_path(kinney_people(:tolson)))
     assert page.has_selector?('#person_videos a', :text => 'Growing Up in Edgecombe County')
     assert page.has_selector?('#person_videos a', :text => '0:44')
     assert page.has_selector?('#person_videos a', :text => 'Mentors')
   end
 
-  test "should display the information like description, interview date and time below video clip" do
+  test_with_cassette "should display the information like description, interview date and time below video clip", :people_show do
     visit(kinney.clip_path(kinney_clips(:tolson_roots)))
     assert page.has_content?('This is a description of the Roots clip. Interview on June 4, 2011. (0:44)')
   end
 
-  test "should display a map if the location the person grew up is known" do
+  test_with_cassette "should display a map if the location the person grew up is known", :people_show do
     visit(kinney.person_path(kinney_people(:tolson)))
     assert page.has_selector?('#static_map')
     assert page.has_content?('Grew up in')
     assert page.has_content?('Edgecombe County, NC')    
   end
 
-  test "should not display a map if the location the person grew up is not known" do
+  test_with_cassette "should not display a map if the location the person grew up is not known", :people_show do
     visit(kinney.person_path(kinney_people(:atkins)))
     assert page.has_no_content?('Grew up in')
     assert page.has_no_selector?('#static_map')

data/test/support/test_with_cassette.rb

@@ -0,0 +1,38 @@
+# Copied from jrochkind's bento search.
+# TODO: Investigate a DRYer way to copy from jrochkind's bento search.
+module TestWithCassette
+  def test_with_cassette(name, group = nil, vcr_options ={}, &block)
+    # cribbed from Rails and modified for VCR
+    # https://github.com/rails/rails/blob/b451de0d6de4df6bc66b274cec73b919f823d5ae/activesupport/lib/active_support/testing/declarative.rb#L25
+
+    test_name_safe = name.gsub(/\s+/,'_')
+
+    test_method_name = "test_#{test_name_safe}".to_sym
+
+    raise "#{test_method_name} is already defined in #{self}" if methods.include?(test_method_name)
+
+    cassette_name = vcr_options.delete(:cassette)
+    unless cassette_name
+      # calculate default cassette name from test name
+      cassette_name = test_name_safe
+      # put in group subdir if group
+      cassette_name = "#{group}/#{cassette_name}" if group
+    end
+
+    # default tag with groupname, can be over-ridden.
+    vcr_options = {:tag => group}.merge(vcr_options) if group
+    # vcr_options.merge!(:serialize_with => :json)
+    if block_given?
+      define_method(test_method_name) do
+        VCR.use_cassette(cassette_name , vcr_options) do
+          instance_eval &block
+        end
+      end
+    else
+      define_method(test_method_name) do
+        flunk "No implementation provided for #{name}"
+      end
+    end
+  end
+  alias_method :test, :test_with_cassette
+end

data/test/test_helper.rb

@@ -5,9 +5,22 @@ require File.expand_path("../dummy/config/environment.rb",  __FILE__)
 require "rails/test_help"
 require 'capybara/rails'
 #require 'capybara/webkit'
-require 'mocha'
+require 'mocha/setup'
 require 'selenium-webdriver'
 require 'pry'
+require 'microdata'
+
+require 'vcr'
+VCR.configure do |c|
+  c.hook_into :webmock
+  c.cassette_library_dir = 'test/vcr_cassettes'
+  c.ignore_request do |request|
+    URI(request.uri).path.include?('__identify__') or 
+    URI(request.uri).path.include?('hub/session')
+  end
+  c.allow_http_connections_when_no_cassette = true
+  c.ignore_localhost = false
+end
 
 
 Rails.backtrace_cleaner.remove_silencers!
@@ -63,7 +76,10 @@ DatabaseCleaner.strategy = :truncation
 class ActionDispatch::IntegrationTest
   # Make the Capybara DSL available in all integration tests
   include Capybara::DSL
-  Selenium::WebDriver::Firefox.path= "/opt/firefox17/firefox"
+  
+  if File.exist? "/opt/firefox17/firefox"
+    Selenium::WebDriver::Firefox.path= "/opt/firefox17/firefox"
+  end
   # Stop ActiveRecord from wrapping tests in transactions
   #self.use_transactional_fixtures = false
 

data/test/unit/clip_test.rb

@@ -56,6 +56,11 @@ class ClipTest < ActiveSupport::TestCase
     clip.reload
     assert_equal "Third Man, Edward Norris Tolson, and William Williams", clip.full_people_names
   end
+
+  test "clip should return title with full people names" do 
+    clip = kinney_clips(:tolson_roots)
+    assert_equal "Growing Up in Edgecombe County with Edward Norris Tolson", clip.title_with_full_people_names
+  end
   
   test "clip should return the full URL for the poster image" do
     assert_equal "http://siskel.lib.ncsu.edu/SLI/tolson/tolson-roots/tolson-roots.png",