hydra-pcdm 0.0.1

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

@@ -0,0 +1,94 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::AddRelatedObjectToCollection do
+
+  let(:subject) { Hydra::PCDM::Collection.create }
+
+  describe '#call' do
+
+    context 'with acceptable collections' do
+      let(:object1) { Hydra::PCDM::Object.create }
+      let(:object2) { Hydra::PCDM::Object.create }
+      let(:object3) { Hydra::PCDM::Object.create }
+      let(:object4) { Hydra::PCDM::Object.create }
+      let(:collection1) { Hydra::PCDM::Collection.create }
+      let(:collection2) { Hydra::PCDM::Collection.create }
+
+      it 'should add a related object to empty collection' do
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object1 )
+        expect( Hydra::PCDM::GetRelatedObjectsFromCollection.call( subject ) ).to eq [object1]
+      end
+
+      it 'should add a related object to collection with related objects' do
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object2 )
+        related_objects = Hydra::PCDM::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
+
+      context 'with collections and objects' do
+        before do
+          Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+          Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+          Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+          Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+          Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object3 )
+          subject.save
+        end
+
+        it 'should add an object to collection with collections and objects' do
+          Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object4 )
+          related_objects = Hydra::PCDM::GetRelatedObjectsFromCollection.call( subject )
+          expect( related_objects.include? object3 ).to be true
+          expect( related_objects.include? object4 ).to be true
+          expect( related_objects.size ).to eq 2
+        end
+      end
+    end
+
+    context 'with unacceptable objects' do
+      let(:collection1) { Hydra::PCDM::Collection.create }
+      let(: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::PCDM::Collection in related objects aggregation' do
+        expect{ Hydra::PCDM::AddRelatedObjectToCollection.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate Hydra::PCDM::Files in related objects aggregation' do
+        expect{ Hydra::PCDM::AddRelatedObjectToCollection.call( subject, file1 ) }.to raise_error(ArgumentError,error_message)
+      end
+
+      it 'should NOT aggregate non-PCDM objects in related objects aggregation' do
+        expect{ Hydra::PCDM::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::PCDM::AddRelatedObjectToCollection.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
+      end
+
+    end
+
+    context 'with invalid bahaviors' 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 #92 needs to be addressed' do
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object1 )
+        related_objects = Hydra::PCDM::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/pcdm/services/collection/get_collections_spec.rb

@@ -0,0 +1,40 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::GetCollectionsFromCollection do
+
+  subject { Hydra::PCDM::Collection.create }
+
+  let(:collection1) { Hydra::PCDM::Collection.create }
+  let(:collection2) { Hydra::PCDM::Collection.create }
+
+  let(:object1) { Hydra::PCDM::Object.create }
+  let(:object2) { Hydra::PCDM::Object.create }
+
+  describe '#call' do
+    it 'should return empty array when no members' do
+      subject.save
+      expect(Hydra::PCDM::GetCollectionsFromCollection.call( subject )).to eq []
+    end
+
+    it 'should return empty array when only objects are aggregated' do
+      Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+      Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+      subject.save
+      expect(Hydra::PCDM::GetCollectionsFromCollection.call( subject )).to eq []
+    end
+
+    context 'with other collections & objects' do
+      before do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        subject.save
+      end
+
+      it 'should only return collections' do
+        expect(Hydra::PCDM::GetCollectionsFromCollection.call( subject )).to eq [collection1,collection2]
+      end
+    end
+  end
+end

data/spec/hydra/pcdm/services/collection/get_objects_spec.rb

@@ -0,0 +1,40 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::GetObjectsFromCollection do
+
+  subject { Hydra::PCDM::Collection.create }
+
+  let(:collection1) { Hydra::PCDM::Collection.create }
+  let(:collection2) { Hydra::PCDM::Collection.create }
+
+  let(:object1) { Hydra::PCDM::Object.create }
+  let(:object2) { Hydra::PCDM::Object.create }
+
+  describe '#call' do
+    it 'should return empty array when no members' do
+      subject.save
+      expect(Hydra::PCDM::GetObjectsFromCollection.call( subject )).to eq []
+    end
+
+    it 'should return empty array when only collections are aggregated' do
+      Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+      Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+      subject.save
+      expect(Hydra::PCDM::GetObjectsFromCollection.call( subject )).to eq []
+    end
+
+    context 'with collections and objects' do
+      before do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        subject.save
+      end
+
+      it 'should only return related objects' do
+        expect(Hydra::PCDM::GetObjectsFromCollection.call( subject )).to eq [object1,object2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,37 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::GetRelatedObjectsFromCollection do
+
+  subject { Hydra::PCDM::Collection.create }
+
+  let(:collection1) { Hydra::PCDM::Collection.create }
+  let(:collection2) { Hydra::PCDM::Collection.create }
+
+  let(:object1) { Hydra::PCDM::Object.create }
+  let(:object2) { Hydra::PCDM::Object.create }
+
+  describe '#call' do
+    it 'should return empty array when no related object' do
+      subject.save
+      expect(Hydra::PCDM::GetRelatedObjectsFromCollection.call( subject )).to eq []
+    end
+
+    context 'with collections and objects' do
+      before do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        subject.save
+      end
+
+      it 'should return empty array when only collections and object are aggregated' do
+        expect(Hydra::PCDM::GetRelatedObjectsFromCollection.call( subject )).to eq []
+      end
+
+      it 'should only return related objects' do
+        Hydra::PCDM::AddRelatedObjectToCollection.call( subject, object2 )
+        expect(Hydra::PCDM::GetRelatedObjectsFromCollection.call( subject )).to eq [object2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,143 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::RemoveCollectionFromCollection do
+
+  subject { Hydra::PCDM::Collection.create }
+
+    let(:collection1) { Hydra::PCDM::Collection.create }
+    let(:collection2) { Hydra::PCDM::Collection.create }
+    let(:collection3) { Hydra::PCDM::Collection.create }
+    let(:collection4) { Hydra::PCDM::Collection.create }
+    let(:collection5) { Hydra::PCDM::Collection.create }
+
+    let(:object1) { Hydra::PCDM::Object.create }
+    let(:object2) { Hydra::PCDM::Object.create }
+
+
+  describe '#call' do
+    context 'when it is the only collection' do
+
+      before do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        subject.save
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1]
+      end
+
+      it 'should remove collection' do
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject, collection1 ) ).to eq collection1
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq []
+      end
+
+      it 'should remove collection only when objects' do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject, collection1 ) ).to eq collection1
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq []
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject )).to eq [object1,object2]
+      end
+    end
+
+    context 'when multiple collections' do
+      before do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection3 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection4 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection5 )
+        subject.save
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection3,collection4,collection5]
+      end
+
+      it 'should remove first collection' do
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject, collection1 ) ).to eq collection1
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq [collection2,collection3,collection4,collection5]
+      end
+
+      it 'should remove last collection' do
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject, collection5 ) ).to eq collection5
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection3,collection4]
+      end
+
+      it 'should remove middle collection' do
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject, collection3 ) ).to eq collection3
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject.reload )).to eq [collection1,collection2,collection4,collection5]
+      end
+    end
+
+    context 'when collection is missing' do
+      it 'should return nil' do
+        subject.save
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject.reload, collection1 ) ).to be nil
+      end
+
+      it 'should return nil' do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        subject.save
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject.reload, collection1 ) ).to be nil
+      end
+
+      it 'should return nil' do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection4 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection5 )
+        subject.save
+        expect( Hydra::PCDM::RemoveCollectionFromCollection.call( subject.reload, collection3 ) ).to be nil
+      end
+    end
+  end
+
+  context 'with unacceptable collections' do
+    let(:object1)  { Hydra::PCDM::Object.create }
+    let(: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 pcdm collection' }
+
+    it 'should NOT remove Hydra::PCDM::Objects from collections aggregation' do
+      expect{ Hydra::PCDM::RemoveCollectionFromCollection.call( subject, object1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from collections aggregation' do
+      expect{ Hydra::PCDM::RemoveCollectionFromCollection.call( subject, file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from collections aggregation' do
+      expect{ Hydra::PCDM::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::PCDM::RemoveCollectionFromCollection.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent collection' do
+    let(:collection2)      { Hydra::PCDM::Collection.create }
+    let(:object1)          { Hydra::PCDM::Object.create }
+    let(: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 pcdm collection' }
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+      expect{ Hydra::PCDM::RemoveCollectionFromCollection.call( object1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+      expect{ Hydra::PCDM::RemoveCollectionFromCollection.call( file1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent collection' do
+      expect{ Hydra::PCDM::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::PCDM::RemoveCollectionFromCollection.call( af_base_object, collection2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end

data/spec/hydra/pcdm/services/collection/remove_object_spec.rb

@@ -0,0 +1,180 @@
+require 'spec_helper'
+
+describe Hydra::PCDM::RemoveObjectFromCollection do
+
+  subject { Hydra::PCDM::Collection.create }
+
+  let(:object1) { Hydra::PCDM::Object.create }
+  let(:object2) { Hydra::PCDM::Object.create }
+  let(:object3) { Hydra::PCDM::Object.create }
+  let(:object4) { Hydra::PCDM::Object.create }
+  let(:object5) { Hydra::PCDM::Object.create }
+
+  let(:collection1) { Hydra::PCDM::Collection.create }
+  let(:collection2) { Hydra::PCDM::Collection.create }
+
+  describe '#call' do
+    context 'when it is the only object' do
+      before do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        subject.save
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1]
+      end
+
+      it 'should remove object' do
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object1 ) ).to eq object1
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq []
+      end
+
+      it 'should remove object only when collections' do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object1 ) ).to eq object1
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq []
+        expect( Hydra::PCDM::GetCollectionsFromCollection.call( subject )).to eq [collection1,collection2]
+      end
+    end
+
+    context 'when multiple objects' do
+      before do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object3 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object4 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object5 )
+        subject.save
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object4,object5]
+      end
+
+      it 'should remove first object' do
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object1 ) ).to eq object1
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object2,object3,object4,object5]
+      end
+
+      it 'should remove last object' do
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object5 ) ).to eq object5
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object4]
+      end
+
+      it 'should remove middle object' do
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object3 ) ).to eq object3
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object4,object5]
+      end
+    end
+
+    context 'when object repeats' do
+      before do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object3 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object4 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object5 )
+        subject.save
+      end
+
+      # TODO pending implementation of multiple objects
+
+      it 'should remove first occurrence' do
+        skip 'skipping this test because issue #102 needs to be addressed' do
+        expect(Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object2,object4,object2,object5]
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object2 ) ).to eq object2
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object3,object2,object4,object2,object5]
+      end
+      end
+
+      it 'should remove last occurrence' do
+        skip 'skipping this test because issue #102 needs to be addressed' do
+        expect(Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object2,object4,object2,object5]
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object2, -1 ) ).to eq object2
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object2,object4,object5]
+      end
+      end
+
+      it 'should remove nth occurrence' do
+        skip 'skipping this test because issue #102 needs to be addressed' do
+        expect(Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object2,object4,object2,object5]
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject, object2, 2 ) ).to eq object2
+        expect( Hydra::PCDM::GetObjectsFromCollection.call( subject.reload )).to eq [object1,object2,object3,object4,object2,object5]
+      end
+      end
+    end
+
+    context 'when object is missing' do
+      it 'should return nil' do
+        subject.save
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject.reload, object1 )).to be nil
+      end
+
+      it 'should return nil' do
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection1 )
+        Hydra::PCDM::AddCollectionToCollection.call( subject, collection2 )
+        subject.save
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject.reload, object1 )).to be nil
+      end
+
+      it 'should return nil' do
+        Hydra::PCDM::AddObjectToCollection.call( subject, object1 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object2 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object4 )
+        Hydra::PCDM::AddObjectToCollection.call( subject, object5 )
+        subject.save
+        expect( Hydra::PCDM::RemoveObjectFromCollection.call( subject.reload, object3 )).to be nil
+      end
+    end
+  end
+
+  context 'with unacceptable objects' do
+    let(:collection1)      { Hydra::PCDM::Collection.create }
+    let(: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_object must be a pcdm object' }
+
+    it 'should NOT remove Hydra::PCDM::Collections from objects aggregation' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( subject, collection1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from objects aggregation' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( subject, file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from objects aggregation' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( subject, non_PCDM_object ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove AF::Base objects from objects aggregation' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent collection' do
+    let(:collection2)      { Hydra::PCDM::Collection.create }
+    let(:object1)          { Hydra::PCDM::Object.create }
+    let(: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 pcdm collection' }
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent collection' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( object1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent collection' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.call( file1, collection2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent collection' do
+      expect{ Hydra::PCDM::RemoveObjectFromCollection.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::PCDM::RemoveObjectFromCollection.call( af_base_object, collection2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end