hydra-works 0.0.1 → 0.1.0

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

@@ -1,35 +0,0 @@
-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

@@ -1,35 +0,0 @@
-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

@@ -1,46 +0,0 @@
-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

@@ -1,21 +0,0 @@
-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

@@ -1,132 +0,0 @@
-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

@@ -1,133 +0,0 @@
-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

@@ -1,128 +0,0 @@
-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