hydra-works 0.0.1

data/spec/hydra/works/services/generic_work/get_generic_files_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetGenericFilesFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.create }
+
+  let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+  let(:generic_file2) { Hydra::Works::GenericFile::Base.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::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+      Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+      subject.save
+      expect(Hydra::Works::GetGenericFilesFromGenericWork.call( subject )).to eq []
+    end
+
+    context 'with generic_files and generic_works' do
+      before do
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file2 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+        subject.save
+      end
+
+      it 'should only return generic_files' do
+        expect(Hydra::Works::GetGenericFilesFromGenericWork.call( subject )).to eq [generic_file1,generic_file2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetGenericWorksFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.create }
+
+  let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+  let(:generic_file2) { Hydra::Works::GenericFile::Base.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_files are aggregated' do
+      Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+      Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file2 )
+      subject.save
+      expect(Hydra::Works::GetGenericWorksFromGenericWork.call( subject )).to eq []
+    end
+
+    context 'with generic_files and generic_works' do
+      before do
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file2 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+        subject.save
+      end
+
+      it 'should only return generic_works' do
+        expect(Hydra::Works::GetGenericWorksFromGenericWork.call( subject )).to eq [generic_work1,generic_work2]
+      end
+   end
+  end
+end

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

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+describe Hydra::Works::GetRelatedObjectsFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.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 generic files and works' do
+      before do
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        subject.save
+      end
+
+      it 'should return empty array when only generic files and generic works are aggregated' do
+        expect(Hydra::Works::GetRelatedObjectsFromGenericWork.call( subject )).to eq []
+      end
+
+      it 'should only return related objects' do
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object2 )
+        expect(Hydra::Works::GetRelatedObjectsFromGenericWork.call( subject )).to eq [object2]
+      end
+
+      it 'should return related objects of various types' do
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, generic_work2 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object1 )
+        related_objects = Hydra::Works::GetRelatedObjectsFromGenericWork.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/generic_work/move_generic_file_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+describe Hydra::Works::MoveGenericFileToGenericWork do
+  let(:source_work) { Hydra::Works::GenericWork::Base.create }
+  let(:target_work) { Hydra::Works::GenericWork::Base.create }
+  let(:file1) { Hydra::Works::GenericFile::Base.create }
+  let(:file2) { Hydra::Works::GenericFile::Base.create }
+  context "move generic file" do 
+    before do 
+      Hydra::Works::AddGenericFileToGenericWork.call(source_work, file1)
+      Hydra::Works::AddGenericFileToGenericWork.call(source_work, file2)
+    end
+    it "moves file from one work to another" do
+      expect(source_work.generic_files).to eq([file1, file2])
+      expect(target_work.generic_files).to eq([])
+      Hydra::Works::MoveGenericFileToGenericWork.call(source_work, target_work, file1)
+      expect(source_work.generic_files).to eq([file2])
+      expect(target_work.generic_files).to eq([file1])
+    end
+  end
+end

data/spec/hydra/works/services/generic_work/remove_generic_file_spec.rb

@@ -0,0 +1,132 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveGenericFileFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.create }
+
+  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 }
+
+  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::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file2 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file3 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file4 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file5 )
+        subject.save
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1,generic_file2,generic_file3,generic_file4,generic_file5]
+      end
+
+      it 'should remove first collection' do
+        expect( Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, generic_file1 ) ).to eq generic_file1
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file2,generic_file3,generic_file4,generic_file5]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+
+      it 'should remove last collection' do
+        expect( Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, generic_file5 ) ).to eq generic_file5
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1,generic_file2,generic_file3,generic_file4]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+
+      it 'should remove middle collection' do
+        expect( Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, generic_file3 ) ).to eq generic_file3
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1,generic_file2,generic_file4,generic_file5]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+      end
+    end
+  end
+
+  context 'with unacceptable 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_type)    { ArgumentError }
+    let(:error_message) { 'child_generic_file must be a hydra-works generic file' }
+
+    it 'should NOT remove Hydra::Works::Collection from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::Works::GenericWork from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, generic_work1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Collections from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Objects from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, pcdm_object1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove Hydra::PCDM::Files from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( subject, pcdm_file1 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT remove non-PCDM objects from generic_files aggregation' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.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::RemoveGenericFileFromGenericWork.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent generic work' do
+    let(:generic_work2)    { Hydra::Works::GenericWork::Base.create }
+    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) { 'parent_generic_work must be a hydra-works generic work' }
+
+    it 'should NOT accept Hydra::Works::Collection as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( collection1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( generic_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( pcdm_collection1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( pcdm_object1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( pcdm_file1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( non_PCDM_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericFileFromGenericWork.call( af_base_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end

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

@@ -0,0 +1,133 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveGenericWorkFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.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(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+  let(:generic_file2) { Hydra::Works::GenericFile::Base.create }
+
+
+  describe '#call' do
+    context 'when multiple collections' do
+      before do
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file2 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work3 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work4 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work5 )
+        subject.save
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work3,generic_work4,generic_work5]
+      end
+
+      it 'should remove first collection' do
+        expect( Hydra::Works::RemoveGenericWorkFromGenericWork.call( subject, generic_work1 ) ).to eq generic_work1
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work3,generic_work4,generic_work5]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file2,generic_file1]
+      end
+
+      it 'should remove last collection' do
+        expect( Hydra::Works::RemoveGenericWorkFromGenericWork.call( subject, generic_work5 ) ).to eq generic_work5
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work3,generic_work4]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file2,generic_file1]
+      end
+
+      it 'should remove middle collection' do
+        expect( Hydra::Works::RemoveGenericWorkFromGenericWork.call( subject, generic_work3 ) ).to eq generic_work3
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work1,generic_work2,generic_work4,generic_work5]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file2,generic_file1]
+      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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.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::RemoveGenericWorkFromGenericWork.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent generic work' do
+    let(:generic_work2)    { Hydra::Works::GenericWork::Base.create }
+    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) { 'parent_generic_work must be a hydra-works generic work' }
+
+    it 'should NOT accept Hydra::Works::Collection as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( collection1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( generic_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( pcdm_collection1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( pcdm_object1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( pcdm_file1, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( non_PCDM_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent generic work' do
+      expect{ Hydra::Works::RemoveGenericWorkFromGenericWork.call( af_base_object, generic_work2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end

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

@@ -0,0 +1,128 @@
+require 'spec_helper'
+
+describe Hydra::Works::RemoveRelatedObjectFromGenericWork do
+
+  subject { Hydra::Works::GenericWork::Base.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(: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 'when multiple related objects' do
+      before do
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, related_object1 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, related_work2 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work2 )
+        Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file1 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, related_file3 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, related_object4 )
+        Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work1 )
+        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, related_work5 )
+        subject.save
+        expect( Hydra::Works::GetRelatedObjectsFromGenericWork.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::RemoveRelatedObjectFromGenericWork.call( subject, related_object1 ) ).to eq related_object1
+        expect( Hydra::Works::GetRelatedObjectsFromGenericWork.call( subject.reload )).to eq [related_work2,related_file3,related_object4,related_work5]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1]
+      end
+
+      it 'should remove last related object' do
+        expect( Hydra::Works::RemoveRelatedObjectFromGenericWork.call( subject, related_work5 ) ).to eq related_work5
+        expect( Hydra::Works::GetRelatedObjectsFromGenericWork.call( subject.reload )).to eq [related_object1,related_work2,related_file3,related_object4]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1]
+      end
+
+      it 'should remove middle related object' do
+        expect( Hydra::Works::RemoveRelatedObjectFromGenericWork.call( subject, related_file3 ) ).to eq related_file3
+        expect( Hydra::Works::GetRelatedObjectsFromGenericWork.call( subject.reload )).to eq [related_object1,related_work2,related_object4,related_work5]
+        expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject.reload )).to eq [generic_work2,generic_work1]
+        expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject.reload )).to eq [generic_file1]
+      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::RemoveRelatedObjectFromGenericWork.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::RemoveRelatedObjectFromGenericWork.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::RemoveRelatedObjectFromGenericWork.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::RemoveRelatedObjectFromGenericWork.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::RemoveRelatedObjectFromGenericWork.call( subject, af_base_object ) }.to raise_error(error_type,error_message)
+    end
+  end
+
+  context 'with unacceptable parent generic work' do
+    let(:related_object2)  { Hydra::PCDM::Object.create }
+    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) { 'parent_generic_work must be a hydra-works generic work' }
+
+    it 'should NOT accept Hydra::Works::Collection as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( collection1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::Works::GenericFile as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( generic_file1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Collections as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( pcdm_collection1, related_object2 ) }.to raise_error(ArgumentError,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Objects as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( pcdm_object1, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( pcdm_file1, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept non-PCDM objects as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( non_PCDM_object, related_object2 ) }.to raise_error(error_type,error_message)
+    end
+
+    it 'should NOT accept AF::Base objects as parent generic work' do
+      expect{ Hydra::Works::RemoveRelatedObjectFromGenericWork.call( af_base_object, related_work2 ) }.to raise_error(error_type,error_message)
+    end
+  end
+end