worthwhile 0.0.1.alpha → 0.0.1

data/spec/features/embargo_spec.rb

@@ -0,0 +1,45 @@
+require 'spec_helper'
+
+describe 'embargo' do
+  let(:user) { FactoryGirl.create(:user) }
+  before do
+    sign_in user
+  end
+  describe "creating an embargoed object" do
+    before do
+      visit '/'
+    end
+
+    it "can be created, displayed and updated" do
+      click_link 'New Generic Work'
+      fill_in 'Title', with: 'Embargo test'
+      check 'I have read and accept the contributor license agreement'
+      choose 'Embargo'
+      select 'Private', from: 'Restricted to'
+      select 'Open Access', from: 'then open it up to'
+      click_button 'Create Generic work'
+
+      click_link "Edit This Generic Work"
+      click_link "Embargo Management Page"
+
+      expect(page).to have_content("This work is under embargo.")
+
+      fill_in "until", with: 2.days.from_now.to_s
+
+      click_button "Update Embargo"
+      expect(page).to have_content(2.days.from_now.strftime '%F')
+    end
+  end
+
+  describe "managing embargoes" do
+    before do
+      # admin privs
+      allow_any_instance_of(Ability).to receive(:user_groups).and_return(['admin'])
+    end
+
+    it "should show lists of objects under lease" do
+      visit '/embargoes'
+      expect(page).to have_content 'Manage Embargoes'
+    end
+  end
+end

data/spec/features/lease_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+
+describe "leases" do
+  let(:user) { FactoryGirl.create(:user) }
+  before do
+    sign_in user
+  end
+  describe "create a new leased object" do
+
+    it "can be created, displayed and updated" do
+      visit '/'
+      click_link 'New Generic Work'
+      fill_in 'Title', with: 'Lease test'
+      check 'I have read and accept the contributor license agreement'
+      choose 'Lease'
+      select 'Open Access', from: 'Is available for'
+      select 'Private', from: 'then restrict it to'
+      click_button 'Create Generic work'
+
+      click_link "Edit This Generic Work"
+      click_link "Lease Management Page"
+
+      expect(page).to have_content("This work is under lease.")
+
+      fill_in "until", with: 2.days.from_now.to_s
+
+      click_button "Update Lease"
+      expect(page).to have_content(2.days.from_now.strftime '%F')
+    end
+
+  end
+
+  describe "managing leases" do
+    before do
+      # admin privs
+      allow_any_instance_of(Ability).to receive(:user_groups).and_return(['admin'])
+    end
+    it "should show lists of objects under lease" do
+      visit '/leases'
+      expect(page).to have_content 'Manage Leases'
+    end
+  end
+end

data/spec/features/update_file_spec.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+
+describe "Editing attached files" do
+  let(:user) { FactoryGirl.create(:user) }
+  let!(:generic_file) { FactoryGirl.create(:file_with_work, user: user) }
+
+  before do
+    sign_in user
+
+    # stub out characterization. Travis doesn't have fits installed, and it's not relevant to the test.
+    s2 = double('resque message')
+    expect(CharacterizeJob).to receive(:new).and_return(s2)
+    expect(Sufia.queue).to receive(:push).with(s2).once
+  end
+
+  it "should update the file" do
+    visit "/concern/generic_works/#{generic_file.batch.id}"
+    click_link 'Edit'
+
+    expect(page).to have_content "Updating Attached File to \"Test title\""
+
+    attach_file("Upload a file", fixture_file_path('files/image.png'))
+    click_button "Update Attached File"
+
+    expect(page).to have_content "The file image.png has been updated."
+    expect(generic_file.reload.content.label).to eq 'image.png'
+  end
+end

data/spec/helpers/catalog_helper_spec.rb

@@ -0,0 +1,58 @@
+require 'spec_helper'
+
+describe Worthwhile::CatalogHelper do
+  before do
+    helper.params[:controller] = 'catalog'
+    allow(helper).to receive(:blacklight_config).and_return(CatalogController.blacklight_config)
+    allow(helper).to receive(:search_action_path) do |*args|
+      catalog_index_path *args
+    end
+  end
+
+  describe "all_type_tab" do
+    subject { helper.all_type_tab('All') }
+
+    context "when it is the active tab" do
+      it { should eq "<li class=\"active\"><a href=\"#\">All</a></li>" }
+    end
+
+    context "when it is not the active tab" do
+      before do
+        helper.params[:f] = { 'generic_type_sim' => ['Work'] }
+      end
+      it { should eq "<li><a href=\"/catalog\">All</a></li>" }
+    end
+
+    context "when other parameters are present" do
+      before do
+        helper.params[:f] = { 'generic_type_sim' => ['Work'] }
+        helper.params[:page] = 4
+      end
+      it("should clear them") { should eq "<li><a href=\"/catalog\">All</a></li>" }
+    end
+  end
+
+  describe "type_tab" do
+    subject { helper.type_tab('Works', 'Work') }
+
+    context "when it is the active tab" do
+      before do
+        helper.params[:f] = { 'generic_type_sim' => ['Work'] }
+      end
+      it { should eq "<li class=\"active\"><a href=\"#\">Works</a></li>" }
+    end
+
+    context "when it is not the active tab" do
+      it { should eq "<li><a href=\"/catalog?f%5Bgeneric_type_sim%5D%5B%5D=Work\">Works</a></li>" }
+    end
+
+    context "when other parameters are present" do
+      before do
+        helper.params[:f] = { 'generic_type_sim' => ['Collection'] }
+        helper.params[:page] = 4
+      end
+      it("should clear them") { should eq "<li><a href=\"/catalog?f%5Bgeneric_type_sim%5D%5B%5D=Work\">Works</a></li>" }
+    end
+  end
+
+end

data/spec/helpers/configuration_helper_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+describe Blacklight::ConfigurationHelperBehavior do
+
+  describe "creator facet" do
+    before do
+      allow(helper).to receive(:blacklight_config).and_return(CatalogController.blacklight_config)
+    end
+    let(:field) { 'desc_metadata__creator_sim' }
+    subject { helper.facet_field_label field }
+    it { should eq 'Creator' }
+  end
+end

data/spec/helpers/render_constraints_helper_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe WorthwhileHelper do
+  describe "render_constraints_query" do
+    before do
+      # Stub methods from Blacklight::SearchFields
+      allow(helper).to receive(:default_search_field).and_return(CatalogController.blacklight_config.default_search_field)
+      allow(helper).to receive(:label_for_search_field).and_return("Foo")
+    end
+
+    let(:search_params) { { q: 'Simon', search_field: 'publisher', controller: 'catalog' } }
+    subject { helper.render_constraints_query(search_params) }
+
+    it "removes search_field" do
+      node = Capybara::Node::Simple.new(subject)
+      expect(node).to have_link 'Remove constraint Foo: Simon', href: '/'
+    end
+  end
+end

data/spec/helpers/thumbnail_helper_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+describe Worthwhile::ThumbnailHelper do
+  let(:work) { GenericWork.new }
+  let(:document) { SolrDocument.new work.to_solr }
+  subject { helper.thumbnail_tag document, {} }
+
+  context "with a representative" do
+    before do
+      allow(work).to receive(:representative).and_return('sufia:test123')
+    end
+    it "draws the thumbnail" do
+      expect(subject).to eq "<img alt=\"Thumbnail\" class=\"canonical-image\" " \
+        "src=\"/downloads/sufia:test123?datastream_id=thumbnail\" />"
+    end
+  end
+
+  it "draws the default thumbnail" do
+    expect(subject).to eq "<span class=\"canonical-image\"></span>"
+  end
+end

data/spec/helpers/url_helper_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe Worthwhile::UrlHelper do
+  before do
+    GenericWork.destroy_all
+  end
+  let(:profile) { ["{\"datastreams\":{}}"] }
+  let(:work) { GenericWork.create!(pid: 'sufia:123') }
+  let(:document) { SolrDocument.new("id"=>"sufia:123", "has_model_ssim"=>["info:fedora/afmodel:GenericWork"], 'object_profile_ssm' => profile) }
+  subject { helper.url_for_document document }
+
+  it { should eq "/concern/generic_works/123" }
+
+  context "when document is a Worthwhile::GenericFile" do
+    let(:document) { Worthwhile::GenericFile.new pid: 'foo:123' }
+    it { should eq "/concern/generic_files/123" }
+  end
+end
+

data/spec/matchers.rb

@@ -0,0 +1,24 @@
+require 'rspec/matchers'
+
+if defined?($SHOW_MATCHERS)
+  module RSpec::Shim
+    def define(matcher_name, *args, &block)
+      $SHOW_MATCHERS[matcher_name] = caller.first.split(":")[0..1]
+      super
+    end
+    def matcher(matcher_name, *args, &block)
+      $SHOW_MATCHERS[matcher_name] = caller.first.split(":")[0..1]
+      super
+    end
+  end
+
+  RSpec::Matchers.extend(RSpec::Shim)
+end
+
+require 'rspec/matchers/dsl'
+require 'rspec-html-matchers'
+require 'rspec-rails'
+require 'rspec/rails'
+require 'rspec/rails/matchers'
+
+Dir[File.expand_path('../matchers/**/*.rb', __FILE__)].each { |f| require f }

data/spec/matchers/metadata_field_matchers.rb

@@ -0,0 +1,28 @@
+# RSpec matcher to spec delegations.
+
+RSpec::Matchers.define :have_unique_field do |expected_field_name|
+  match do |subject|
+    subject.should respond_to(expected_field_name)
+    field_value = subject.send(expected_field_name)
+    field_value.nil? || !field_value.kind_of?(Array)
+  end
+
+  description do
+    "expected to have a single-valued field named #{expected_field_name}"
+  end
+
+  failure_message_for_should do |subject|
+    "#{subject.inspect} should respond to #{expected_field_name} as a single-value, not an Array. Responded with #{subject.send(expected_field_name).inspect}"
+  end
+end
+
+RSpec::Matchers.define :have_multivalue_field do |expected_field_name|
+  match do |subject|
+    subject.should respond_to(expected_field_name)
+    subject.send(expected_field_name).should be_instance_of Array
+  end
+
+  description do
+    "expected to have a multi-valued field named #{expected_field_name}"
+  end
+end

data/spec/models/collection_spec.rb

@@ -0,0 +1,136 @@
+require 'spec_helper'
+
+describe Collection do
+  let(:reloaded_subject) { Collection.find(subject.pid) }
+
+  before do
+    subject.title = 'A title'
+  end
+
+  it 'can be part of a collection' do
+    expect(subject.can_be_member_of_collection?(double)).to be true
+  end
+
+  it 'can contain another collection' do
+    another_collection = FactoryGirl.create(:collection)
+    subject.members << another_collection
+    subject.members.should == [another_collection]
+  end
+
+  it 'updates solr with pids of its parent collections' do
+    another_collection = FactoryGirl.create(:collection)
+    another_collection.members << subject
+    another_collection.save
+    subject.reload.to_solr[Solrizer.solr_name(:collection)].should == [another_collection.pid]
+  end
+
+  it 'cannot contain itself' do
+    subject.members << subject
+    subject.save
+    reloaded_subject.members.should == []
+  end
+
+  describe "when visibility is private" do
+    it "should not be open_access?" do
+      subject.should_not be_open_access
+    end
+    it "should not be authenticated_only_access?" do
+      subject.should_not be_authenticated_only_access
+    end
+    it "should not be private_access?" do
+      subject.should be_private_access
+    end
+  end
+
+  describe "visibility" do
+    it "should have visibility accessor" do
+      subject.visibility.should == Hydra::AccessControls::AccessRight::VISIBILITY_TEXT_VALUE_PRIVATE
+    end
+    it "should have visibility writer" do
+      subject.visibility = Hydra::AccessControls::AccessRight::VISIBILITY_TEXT_VALUE_PUBLIC
+      subject.should be_open_access
+    end
+  end
+
+  describe "to_solr" do
+    before do
+      allow(subject).to receive(:pid).and_return('sufia:test123')
+    end
+
+    let(:solr_doc) {subject.to_solr}
+
+    it "should have required fields" do
+      expect(solr_doc['generic_type_sim']).to eq ['Collection']
+      expect(solr_doc['noid_tsi']).to eq 'test123'
+    end
+
+  end
+
+  describe '#human_readable_type' do
+    it "indicates collection" do
+      subject.human_readable_type.should == 'Collection'
+    end
+  end
+
+  describe '#add_member' do
+    it 'adds the member to the collection and returns true' do
+      work = FactoryGirl.create(:generic_work)
+      subject.add_member(work).should be true
+      reloaded_subject.members.should == [work]
+
+      work.reload
+      work.collections.should == [subject]
+      work.to_solr["collection_sim"].should == [subject.pid]
+    end
+
+    it 'returns nil if there is nothing to add' do
+      expect(subject.add_member(nil)).to be_nil
+    end
+
+    it 'returns false if it failed to save' do
+      subject.save
+      work = FactoryGirl.create(:generic_work)
+      allow(subject).to receive(:save).and_return(false)
+      expect(subject.add_member(work)).to be false
+      reloaded_subject.members.should == []
+    end
+  end
+
+  describe '#members.delete' do
+    it 'removes the member from the collection and returns true' do
+      work = FactoryGirl.create(:generic_work)
+      subject.members << work
+      subject.members.should == [work]
+      subject.save
+
+      work.reload
+      work.collections.should == [subject]
+      work.to_solr["collection_tesim"].should == [subject.pid]
+      solr_doc = ActiveFedora::SolrInstanceLoader.new(ActiveFedora::Base, work.pid).send(:solr_doc)
+      solr_doc["collection_tesim"].should == [subject.pid]
+
+      subject.members.delete(work).should == [work]
+      subject.save!
+      reloaded_subject.members.should == []
+
+      solr_doc = ActiveFedora::SolrInstanceLoader.new(ActiveFedora::Base, work.pid).send(:solr_doc)
+      solr_doc["collection_tesim"].should be_nil
+
+
+      work.reload
+      work.collections.should == []
+      work.to_solr["collection_tesim"].should == []
+    end
+  end
+
+  it 'has a representative' do
+    expect(subject.respond_to?(:representative)).to eq true
+  end
+
+  it 'can contain non-collection-member generic files' do
+    # GenericFiles that are associated with the Collection,
+    # but aren't members, for example, the representative file.
+    expect(subject.respond_to?(:generic_files)).to eq true
+  end
+
+end