hydra-works 0.0.1

data/spec/hydra/works/services/collection/remove_generic_work_spec.rb

@@ -0,0 +1,133 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveGenericWorkFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+  let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work3) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work4) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work5) { Hydra::Works::GenericWork::Base.create }
+
+  let(:collection1) { Hydra::Works::Collection.create }
+  let(:collection2) { Hydra::Works::Collection.create }
+
+
+  describe '#call' do
+    context 'when multiple generic works' do
+      before do
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work3 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work4 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work5 )
+        subject.save
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work3,generic_work4,generic_work5]
+      end
+
+      it 'should remove first generic work' do
+        expect( Hydra::Works::RemoveGenericWorkFromCollection.call( subject, generic_work1 ) ).to eq generic_work1
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work2,generic_work3,generic_work4,generic_work5]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+      end
+
+      it 'should remove last generic work' do
+        expect( Hydra::Works::RemoveGenericWorkFromCollection.call( subject, generic_work5 ) ).to eq generic_work5
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work3,generic_work4]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+      end
+
+      it 'should remove middle generic work' do
+        expect( Hydra::Works::RemoveGenericWorkFromCollection.call( subject, generic_work3 ) ).to eq generic_work3
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work4,generic_work5]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+      end
+    end
+  end
+
+  context 'with unacceptable generic works' do
+    let(:collection1)    { Hydra::Works::Collection.create }
+    let(:generic_file1)    { Hydra::Works::GenericFile::Base.create }
+    let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+    let(:pcdm_object1)     { Hydra::PCDM::Object.create }
+    let(:pcdm_file1)       { Hydra::PCDM::File.new }
+    let(:non_PCDM_object)  { "I'm not a PCDM object" }
+    let(:af_base_object)   { ActiveFedora::Base.create }
+
+    let(:error_type)    { ArgumentError }
+    let(:error_message) { 'child_generic_work must be a hydra-works generic work' }
+
+    it 'should NOT remove Hydra::Works::Collection from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::Works::GenericFile from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, generic_file1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Collections from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Objects from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, pcdm_object1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, pcdm_file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, non_PCDM_object ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove AF::Base objects from generic_works aggregation' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent collection' do
+    let(:generic_work2)    { Hydra::Works::GenericWork::Base.create }
+    let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
+    let(:generic_file1)    { Hydra::Works::GenericFile::Base.create }
+    let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+    let(:pcdm_object1)     { Hydra::PCDM::Object.create }
+    let(:pcdm_file1)       { Hydra::PCDM::File.new }
+    let(:non_PCDM_object)  { "I'm not a PCDM object" }
+    let(:af_base_object)   { ActiveFedora::Base.create }
+
+    let(:error_type)    { ArgumentError }
+    let(:error_message) { 'parent_collection must be a hydra-works collection' }
+
+    it 'should NOT accept Hydra::Works::GenericWork as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( generic_work1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( generic_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( pcdm_collection1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( pcdm_object1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( pcdm_file1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( non_PCDM_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent collection' do
+      expect{ Hydra::Works::RemoveGenericWorkFromCollection.call( af_base_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end

data/spec/hydra/works/services/collection/remove_related_object_spec.rb

@@ -0,0 +1,128 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveRelatedObjectFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+  let(:related_object1) { Hydra::PCDM::Object.create }
+  let(:related_work2)   { Hydra::Works::GenericWork::Base.create }
+  let(:related_file3)   { Hydra::Works::GenericFile::Base.create }
+  let(:related_object4) { Hydra::PCDM::Object.create }
+  let(:related_work5)   { Hydra::Works::GenericWork::Base.create }
+
+  let(:collection1)   { Hydra::Works::Collection.create }
+  let(:collection2)   { Hydra::Works::Collection.create }
+  let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+
+
+  describe '#call' do
+    context 'when multiple related objects' do
+      before do
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, related_object1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, related_work2 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, related_file3 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, related_object4 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, related_work5 )
+        subject.save
+        expect( Hydra::Works::GetRelatedObjectsFromCollection.call( subject.reload )).to eq [related_object1,related_work2,related_file3,related_object4,related_work5]
+      end
+
+      it 'should remove first related object' do
+        expect( Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, related_object1 ) ).to eq related_object1
+        expect( Hydra::Works::GetRelatedObjectsFromCollection.call( subject.reload )).to eq [related_work2,related_file3,related_object4,related_work5]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1]
+      end
+
+      it 'should remove last related object' do
+        expect( Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, related_work5 ) ).to eq related_work5
+        expect( Hydra::Works::GetRelatedObjectsFromCollection.call( subject.reload )).to eq [related_object1,related_work2,related_file3,related_object4]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1]
+      end
+
+      it 'should remove middle related object' do
+        expect( Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, related_file3 ) ).to eq related_file3
+        expect( Hydra::Works::GetRelatedObjectsFromCollection.call( subject.reload )).to eq [related_object1,related_work2,related_object4,related_work5]
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection1]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work1]
+      end
+    end
+  end
+
+  context 'with unacceptable related object' do
+    let(:collection1)      { Hydra::Works::Collection.create }
+    let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+    let(:pcdm_file1)       { Hydra::PCDM::File.new }
+    let(:non_PCDM_object)  { "I'm not a PCDM object" }
+    let(:af_base_object)   { ActiveFedora::Base.create }
+
+    let(:error_type)    { ArgumentError }
+    let(:error_message) { 'child_related_object must be a pcdm object' }
+
+    it 'should NOT remove Hydra::Works::Collection from related_objects aggregation' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Collections from related_objects aggregation' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from related_objects aggregation' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, pcdm_file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from related_objects aggregation' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, non_PCDM_object ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove AF::Base objects from related_objects aggregation' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent collection' do
+    let(:related_object2)  { Hydra::PCDM::Object.create }
+    let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
+    let(:generic_file1)    { Hydra::Works::GenericFile::Base.create }
+    let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+    let(:pcdm_object1)     { Hydra::PCDM::Object.create }
+    let(:pcdm_file1)       { Hydra::PCDM::File.new }
+    let(:non_PCDM_object)  { "I'm not a PCDM object" }
+    let(:af_base_object)   { ActiveFedora::Base.create }
+
+    let(:error_type)    { ArgumentError }
+    let(:error_message) { 'parent_collection must be a hydra-works collection' }
+
+    it 'should NOT accept Hydra::Works::GenericWork as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( generic_work1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( generic_file1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( pcdm_collection1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( pcdm_object1, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( pcdm_file1, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( non_PCDM_object, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent collection' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromCollection.call( af_base_object, related_work2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end

data/spec/hydra/works/services/generic_file/add_file_spec.rb

@@ -0,0 +1,28 @@
+require 'spec_helper'
+
+describe Hydra::Works::AddFileToGenericFile do
+
+  let(:generic_file)        { Hydra::Works::GenericFile::Base.create }
+  let(:filename)            { "sample-file.pdf" }
+  let(:path)                { File.join(fixture_path, filename) }
+  let(:type)                { ::RDF::URI("http://pcdm.org/ExtractedText") }
+  let(:replace)             { false }
+
+  it "adds the given file and applies the specified type to it" do
+    Hydra::Works::AddFileToGenericFile.call(generic_file, path, type, replace)
+    expect(generic_file.filter_files_by_type(type).first.content).to start_with("%PDF-1.3")
+  end
+
+  context "type_to_uri" do
+    it "maps supported symbols to corresponding URIs" do
+      expect(Hydra::Works::AddFileToGenericFile.send(:type_to_uri, :original_file)).to eq(::RDF::URI("http://pcdm.org/OriginalFile"))
+      expect(Hydra::Works::AddFileToGenericFile.send(:type_to_uri, :thumbnail)).to eq(::RDF::URI("http://pcdm.org/ThumbnailImage"))
+      expect(Hydra::Works::AddFileToGenericFile.send(:type_to_uri, :extracted_text)).to eq(::RDF::URI("http://pcdm.org/ExtractedText"))
+    end
+
+    it "converts URI strings to RDF::URI" do
+      expect(Hydra::Works::AddFileToGenericFile.send(:type_to_uri, "http://example.com/CustomURI" )).to eq(::RDF::URI("http://example.com/CustomURI"))
+    end
+  end
+
+end

data/spec/hydra/works/services/generic_file/add_generic_file_spec.rb

@@ -0,0 +1,174 @@
+require 'spec_helper'
+
+describe Hydra::Works::AddGenericFileToGenericFile do
+
+  let(:subject) { Hydra::Works::GenericFile::Base.create }
+
+  describe '#call' do
+    context 'with acceptable generic_files' do
+      let(:generic_file1)   { Hydra::Works::GenericFile::Base.create }
+      let(:generic_file2)   { Hydra::Works::GenericFile::Base.create }
+      let(:generic_file3)   { Hydra::Works::GenericFile::Base.create }
+      let(:generic_file4)   { Hydra::Works::GenericFile::Base.create }
+      let(:generic_file5)   { Hydra::Works::GenericFile::Base.create }
+
+      it 'should aggregate generic_files in a sub-generic_file of a generic_file' do
+        Hydra::Works::AddGenericFileToGenericFile.call( generic_file1, generic_file2 )
+        generic_file1.save
+        Hydra::Works::AddGenericFileToGenericFile.call( generic_file2, generic_file3 )
+        generic_file2.save
+        expect( Hydra::Works::GetGenericFilesFromGenericFile.call( generic_file1 ) ).to eq [generic_file2]
+        expect( Hydra::Works::GetGenericFilesFromGenericFile.call( generic_file2 ) ).to eq [generic_file3]
+      end
+
+      it 'should allow generic_files to repeat' do
+        Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file1 )
+        Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file2 )
+        Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file1 )
+        expect( Hydra::Works::GetGenericFilesFromGenericFile.call( subject ) ).to eq [generic_file1,generic_file2,generic_file1]
+      end
+
+      context 'with files and generic_files' do
+        let(:file1) { subject.files.build }
+        let(:file2) { subject.files.build }
+
+        before do
+          file1.content = "I'm a file"
+          file2.content = "I am too"
+          Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file1 )
+          Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file2 )
+          subject.save!
+        end
+
+        it 'should add generic_file to generic_file with generic_files and files' do
+          Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_file3 )
+          expect( Hydra::Works::GetGenericFilesFromGenericFile.call( subject ) ).to eq [generic_file1,generic_file2,generic_file3]
+        end
+
+        it 'should solrize member ids' do
+          skip 'skipping this test because issue #109 needs to be addressed' do
+          expect(subject.to_solr["generic_files_ssim"]).to include(generic_file2.id,generic_file1.id)
+          expect(subject.to_solr["generic_files_ssim"]).not_to include(file1.id,file2.id)
+          expect(subject.to_solr["files_ssim"]).to include(file1.id,file2.id)
+          expect(subject.to_solr["files_ssim"]).not_to include(generic_file1.id,generic_file2.id)
+        end
+        end
+      end
+
+      describe 'aggregates generic_files that implement Hydra::Works::GenericFileBehavior' do
+        before do
+          class DummyIncFile < ActiveFedora::Base
+            include Hydra::Works::GenericFileBehavior
+          end
+        end
+        after { Object.send(:remove_const, :DummyIncFile) }
+        let(:ifile1) { DummyIncFile.create }
+
+        it 'should accept implementing generic_file as a child' do
+          Hydra::Works::AddGenericFileToGenericFile.call( subject, ifile1 )
+          subject.save
+          expect( Hydra::Works::GetGenericFilesFromGenericFile.call( subject ) ).to eq [ifile1]
+        end
+      end
+
+      describe 'aggregates generic_files that extend Hydra::Works::GenericFile::Base' do
+        before do
+          class DummyExtFile < Hydra::Works::GenericFile::Base
+          end
+        end
+        after { Object.send(:remove_const, :DummyExtFile) }
+        let(:efile1) { DummyExtFile.create }
+
+        it 'should accept extending generic_file as a child' do
+          Hydra::Works::AddGenericFileToGenericFile.call( subject, efile1 )
+          subject.save
+          expect( Hydra::Works::GetGenericFilesFromGenericFile.call( subject ) ).to eq [efile1]
+        end
+      end
+    end
+
+    context 'with unacceptable child generic_files' do
+      let(:collection1)      { Hydra::Works::Collection.create }
+      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
+      let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+      let(:pcdm_object1)     { Hydra::PCDM::Object.create }
+      let(:pcdm_file1)       { Hydra::PCDM::File.new }
+      let(:non_PCDM_object)  { "I'm not a PCDM object" }
+      let(:af_base_object)   { ActiveFedora::Base.create }
+
+      let(:error_message) { 'child_generic_file must be a hydra-works generic file' }
+
+      it 'should NOT aggregate Hydra::Works::Collection in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::Works::GenericWork in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, generic_work1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Collections in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Objects in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, pcdm_object1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Files in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, pcdm_file1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate non-PCDM objects in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, non_PCDM_object ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate AF::Base objects in generic files aggregation' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+    context 'with unacceptable parent generic works' do
+      let(:collection1)      { Hydra::Works::Collection.create }
+      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
+      let(:generic_file1)    { Hydra::Works::GenericFile::Base.create }
+      let(:generic_file2)    { Hydra::Works::GenericFile::Base.create }
+      let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
+      let(:pcdm_object1)     { Hydra::PCDM::Object.create }
+      let(:pcdm_file1)       { Hydra::PCDM::File.new }
+      let(:non_PCDM_object)  { "I'm not a PCDM object" }
+      let(:af_base_object)   { ActiveFedora::Base.create }
+
+      let(:error_message) { 'parent_generic_file must be a hydra-works generic file' }
+
+      it 'should NOT accept Hydra::Works::Collection as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( collection1, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::Works::GenericWork as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( generic_work1, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Collections as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( pcdm_collection1, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Objects as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( pcdm_object1, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Files as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( pcdm_file1, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept non-PCDM objects as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( non_PCDM_object, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept AF::Base objects as parent generic file' do
+        expect{ Hydra::Works::AddGenericFileToGenericFile.call( af_base_object, generic_file2 ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+  end
+
+end