hydra-works 0.0.1

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

@@ -0,0 +1,155 @@
+require 'spec_helper'
+
+describe Hydra::Works::AddGenericWorkToCollection do
+
+  let(:subject) { Hydra::Works::Collection.create }
+
+  describe '#call' do
+    context 'with acceptable generic_works' do
+      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(:collection1)   { Hydra::Works::Collection.create }
+      let(:collection2)   { Hydra::Works::Collection.create }
+
+      context 'with collections and generic_works' do
+        before do
+          Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+          Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+          Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+          Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+          subject.save
+        end
+
+        it 'should add generic_work to collection with collections and generic_works' do
+          Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work3 )
+          expect( Hydra::Works::GetGenericWorksFromCollection.call( subject ) ).to eq [generic_work1,generic_work2,generic_work3]
+        end
+
+        it 'should solrize member ids' do
+          skip 'skipping this test because issue #109 needs to be addressed' do
+          expect(subject.to_solr["generic_works_ssim"]).to include(generic_work1.id,generic_work2.id,generic_work3.id)
+          expect(subject.to_solr["generic_works_ssim"]).not_to include(collection2.id,collection1.id)
+          expect(subject.to_solr["collections_ssim"]).to include(collection2.id,collection1.id)
+          expect(subject.to_solr["collections_ssim"]).not_to include(generic_work1.id,generic_work2.id,generic_work3.id)
+        end
+        end
+      end
+
+      describe 'aggregates generic_works that implement Hydra::Works' do
+        before do
+          class DummyIncWork < ActiveFedora::Base
+            include Hydra::Works::GenericWorkBehavior
+          end
+        end
+        after { Object.send(:remove_const, :DummyIncWork) }
+        let(:iwork1) { DummyIncWork.create }
+
+        it 'should accept implementing generic_work as a child' do
+          Hydra::Works::AddGenericWorkToCollection.call( subject, iwork1 )
+          subject.save
+          expect( Hydra::Works::GetGenericWorksFromCollection.call( subject ) ).to eq [iwork1]
+        end
+
+      end
+
+      describe 'aggregates generic_works that extend Hydra::Works' do
+        before do
+          class DummyExtWork < Hydra::Works::GenericWork::Base
+          end
+        end
+        after { Object.send(:remove_const, :DummyExtWork) }
+        let(:ework1) { DummyExtWork.create }
+
+        it 'should accept extending generic_work as a child' do
+          Hydra::Works::AddGenericWorkToCollection.call( subject, ework1 )
+          subject.save
+          expect( Hydra::Works::GetGenericWorksFromCollection.call( subject ) ).to eq [ework1]
+        end
+      end
+    end
+
+    context 'with unacceptable child 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_message) { 'child_generic_work must be a hydra-works generic work' }
+
+      it 'should NOT aggregate Hydra::Works::Collection in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::Works::GenericFile in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, generic_file1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Collections in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Objects in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, pcdm_object1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Files in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, pcdm_file1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate non-PCDM objects in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, non_PCDM_object ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate AF::Base objects in hydra works collections aggregation' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+    context 'with unacceptable parent collections' do
+      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
+      let(:generic_work2)    { 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_message) { 'parent_collection must be a hydra-works collection' }
+
+      it 'should NOT accept Hydra::Works::GenericWork as parent collection' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.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::AddGenericWorkToCollection.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::AddGenericWorkToCollection.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::AddGenericWorkToCollection.call( pcdm_object1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( pcdm_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept non-PCDM objects as parent collection' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( non_PCDM_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept AF::Base objects as parent collection' do
+        expect{ Hydra::Works::AddGenericWorkToCollection.call( af_base_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+  end
+
+end

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

@@ -0,0 +1,149 @@
+require 'spec_helper'
+
+describe Hydra::Works::AddRelatedObjectToCollection do
+
+  let(:subject) { Hydra::Works::Collection.create }
+
+  describe '#call' do
+
+    context 'with acceptable related objects' do
+      let(:object1) { Hydra::PCDM::Object.create }
+      let(:object2) { Hydra::PCDM::Object.create }
+      let(:collection1) { Hydra::Works::Collection.create }
+      let(:collection2) { Hydra::Works::Collection.create }
+      let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+      let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+      let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+
+      it 'should add various types of related objects to collection' do
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, generic_file1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object1 )
+        related_objects = Hydra::Works::GetRelatedObjectsFromCollection.call( subject )
+        expect( related_objects.include? generic_work1 ).to be true
+        expect( related_objects.include? generic_file1 ).to be true
+        expect( related_objects.include? object1 ).to be true
+        expect( related_objects.size ).to eq 3
+      end
+
+      context 'with collections and generic_works' do
+        before do
+          Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+          Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+          Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+          Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+          Hydra::Works::AddRelatedObjectToCollection.call( subject, object1 )
+          subject.save
+        end
+
+        it 'should add a related object to collection with collections and generic_works' do
+          Hydra::Works::AddRelatedObjectToCollection.call( subject, object2 )
+          related_objects = Hydra::Works::GetRelatedObjectsFromCollection.call( subject )
+          expect( related_objects.include? object1 ).to be true
+          expect( related_objects.include? object2 ).to be true
+          expect( related_objects.size ).to eq 2
+        end
+
+        it 'should solrize member ids' do
+          skip 'skipping this test because issue #109 needs to be addressed' do
+          expect(subject.to_solr["generic_works_ssim"]).to include(generic_work1.id,generic_work2.id)
+          expect(subject.to_solr["generic_works_ssim"]).not_to include(collection2.id,collection1.id,object1.id,object2.id)
+          expect(subject.to_solr["collections_ssim"]).to include(collection2.id,collection1.id)
+          expect(subject.to_solr["collections_ssim"]).not_to include(object1.id,object2.id,generic_work1.id,generic_work2.id)
+          expect(subject.to_solr["related_objects_ssim"]).to include(object1.id,object2.id)
+          expect(subject.to_solr["related_objects_ssim"]).not_to include(collection2.id,collection1.id,generic_work1.id,generic_work2.id)
+        end
+        end
+      end
+    end
+
+    context 'with unacceptable child related objects' 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_message) { 'child_related_object must be a pcdm object' }
+
+      it 'should NOT aggregate Hydra::Works::Collection in related objects aggregation' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Collections in related objects aggregation' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Files in related objects aggregation' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( subject, pcdm_file1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate non-PCDM objects in related objects aggregation' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( subject, non_PCDM_object ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate AF::Base objects in related objects aggregation' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+    context 'with unacceptable parent collections' do
+      let(:pcdm_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_message) { 'parent_collection must be a hydra-works collection' }
+
+      it 'should NOT accept Hydra::Works::GenericWork as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( generic_work1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::Works::GenericFile as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( generic_file1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Collections as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( pcdm_collection1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( pcdm_object1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( pcdm_file1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept non-PCDM objects as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( non_PCDM_object, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT accept AF::Base objects as parent collection' do
+        expect{ Hydra::Works::AddRelatedObjectToCollection.call( af_base_object, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
+      end
+    end
+
+
+    context 'with invalid behaviors' do
+      let(:object1) { Hydra::PCDM::Object.create }
+      let(:object2) { Hydra::PCDM::Object.create }
+
+      it 'should NOT allow related objects to repeat' do
+        skip 'skipping this test because issue pcdm#92 needs to be addressed' do
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object2 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object1 )
+        related_objects = Hydra::Works::GetRelatedObjectsFromCollection.call( subject )
+        expect( related_objects.include? object1 ).to be true
+        expect( related_objects.include? object2 ).to be true
+        expect( related_objects.size ).to eq 2
+      end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetCollectionsFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+  let(:collection1) { Hydra::Works::Collection.create }
+  let(:collection2) { Hydra::Works::Collection.create }
+
+  let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+
+  describe '#call' do
+    it 'should return empty array when only generic_works are aggregated' do
+      Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+      Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+      subject.save
+      expect(Hydra::Works::GetCollectionsFromCollection.call( subject )).to eq []
+    end
+
+    context 'with other collections & generic_works' do
+      before do
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+        subject.save
+      end
+
+      it 'should only return collections' do
+        expect(Hydra::Works::GetCollectionsFromCollection.call( subject )).to eq [collection1,collection2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetGenericWorksFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+  let(:collection1) { Hydra::Works::Collection.create }
+  let(:collection2) { Hydra::Works::Collection.create }
+
+  let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+
+  describe '#call' do
+    it 'should return empty array when only collections are aggregated' do
+      Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+      Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+      subject.save
+      expect(Hydra::Works::GetGenericWorksFromCollection.call( subject )).to eq []
+    end
+
+    context 'with collections and generic works' do
+      before do
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+        subject.save
+      end
+
+      it 'should only return generic works' do
+        expect(Hydra::Works::GetGenericWorksFromCollection.call( subject )).to eq [generic_work1,generic_work2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,49 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetRelatedObjectsFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+  let(:collection1) { Hydra::Works::Collection.create }
+  let(:collection2) { Hydra::Works::Collection.create }
+
+  let(:object1) { Hydra::PCDM::Object.create }
+  let(:object2) { Hydra::PCDM::Object.create }
+
+  let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+  let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+
+  describe '#call' do
+    context 'with collections and generic works' do
+      before do
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        subject.save
+      end
+
+      it 'should return empty array when only collections and generic works are aggregated' do
+        expect(Hydra::Works::GetRelatedObjectsFromCollection.call( subject )).to eq []
+      end
+
+      it 'should only return related objects' do
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object2 )
+        expect(Hydra::Works::GetRelatedObjectsFromCollection.call( subject )).to eq [object2]
+      end
+
+      it 'should return related objects of various types' do
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, generic_work2 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, generic_file1 )
+        Hydra::Works::AddRelatedObjectToCollection.call( subject, object1 )
+        related_objects = Hydra::Works::GetRelatedObjectsFromCollection.call( subject )
+        expect( related_objects.include? object1 ).to be true
+        expect( related_objects.include? generic_work2 ).to be true
+        expect( related_objects.include? generic_file1 ).to be true
+        expect( related_objects.size ).to eq 3
+      end
+   end
+  end
+end
+
+

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

@@ -0,0 +1,133 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveCollectionFromCollection do
+
+  subject { Hydra::Works::Collection.create }
+
+    let(:collection1) { Hydra::Works::Collection.create }
+    let(:collection2) { Hydra::Works::Collection.create }
+    let(:collection3) { Hydra::Works::Collection.create }
+    let(:collection4) { Hydra::Works::Collection.create }
+    let(:collection5) { Hydra::Works::Collection.create }
+
+    let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+    let(:generic_work2) { Hydra::Works::GenericWork::Base.create }
+
+
+  describe '#call' do
+    context 'when multiple collections' do
+      before do
+        Hydra::Works::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work2 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection3 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection4 )
+        Hydra::Works::AddGenericWorkToCollection.call( subject, generic_work1 )
+        Hydra::Works::AddCollectionToCollection.call( subject, collection5 )
+        subject.save
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection3,collection4,collection5]
+      end
+
+      it 'should remove first collection' do
+        expect( Hydra::Works::RemoveCollectionFromCollection.call( subject, collection1 ) ).to eq collection1
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection3,collection4,collection5]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+
+      it 'should remove last collection' do
+        expect( Hydra::Works::RemoveCollectionFromCollection.call( subject, collection5 ) ).to eq collection5
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection3,collection4]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+
+      it 'should remove middle collection' do
+        expect( Hydra::Works::RemoveCollectionFromCollection.call( subject, collection3 ) ).to eq collection3
+        expect( Hydra::Works::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection4,collection5]
+        expect( Hydra::Works::GetGenericWorksFromCollection.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+    end
+  end
+
+  context 'with unacceptable collections' do
+    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) { 'child_collection must be a hydra-works collection' }
+
+    it 'should NOT remove Hydra::Works::GenericWork from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, generic_work1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::Works::GenericFile from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, generic_file1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Collections from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Objects from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, pcdm_object1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, pcdm_file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, non_PCDM_object ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove AF::Base objects from collections aggregation' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent collection' do
+    let(:collection2)      { Hydra::Works::Collection.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::RemoveCollectionFromCollection.call( generic_work1, collection2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( generic_file1, collection2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( pcdm_collection1, collection2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( pcdm_object1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( pcdm_file1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( non_PCDM_object, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent collection' do
+      expect{ Hydra::Works::RemoveCollectionFromCollection.call( af_base_object, collection2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end