hydra-works 0.0.1 → 0.1.0

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

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

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

@@ -1,156 +0,0 @@
-require 'spec_helper'
-
-describe Hydra::Works::AddGenericFileToGenericWork do
-
-  let(:subject) { Hydra::Works::GenericWork::Base.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_file1)   { Hydra::Works::GenericFile::Base.create }
-      let(:generic_file2)   { Hydra::Works::GenericFile::Base.create }
-      let(:generic_file3)   { Hydra::Works::GenericFile::Base.create }
-
-      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 add generic_file to generic_work with generic_files and generic_works' do
-          Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_file3 )
-          expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject ) ).to eq [generic_file1,generic_file2,generic_file3]
-        end
-
-        it 'should solrize member ids' do
-          skip 'skipping this test because issue #109 needs to be addressed' do
-          expect(subject.to_solr["generic_works_ssim"]).to include(generic_work1.id,generic_work2.id)
-          expect(subject.to_solr["generic_works_ssim"]).not_to include(generic_file1.id,generic_file2.id,generic_file3.id)
-          expect(subject.to_solr["generic_files_ssim"]).to include(generic_file1.id,generic_file2.id,generic_file3.id)
-          expect(subject.to_solr["generic_files_ssim"]).not_to include(generic_work1.id,generic_work2.id)
-        end
-        end
-      end
-
-      describe 'aggregates generic_files that implement Hydra::Works::GenericFileBehavior' do
-        before do
-          class DummyIncFile < ActiveFedora::Base
-            include Hydra::Works::GenericFileBehavior
-          end
-        end
-        after { Object.send(:remove_const, :DummyIncFile) }
-        let(:ifile1) { DummyIncFile.create }
-
-        it 'should accept implementing generic_file as a child' do
-          Hydra::Works::AddGenericFileToGenericWork.call( subject, ifile1 )
-          subject.save
-          expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject ) ).to eq [ifile1]
-        end
-
-      end
-
-      describe 'aggregates generic_files that extend Hydra::Works::GenericFile::Base' do
-        before do
-          class DummyExtFile < Hydra::Works::GenericFile::Base
-          end
-        end
-        after { Object.send(:remove_const, :DummyExtFile) }
-        let(:efile1) { DummyExtFile.create }
-
-        it 'should accept extending generic_file as a child' do
-          Hydra::Works::AddGenericFileToGenericWork.call( subject, efile1 )
-          subject.save
-          expect( Hydra::Works::GetGenericFilesFromGenericWork.call( subject ) ).to eq [efile1]
-        end
-      end
-    end
-
-    context 'with unacceptable child generic_files' do
-      let(:collection1)      { Hydra::Works::Collection.create }
-      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
-      let(:pcdm_collection1) { Hydra::PCDM::Collection.create }
-      let(:pcdm_object1)     { Hydra::PCDM::Object.create }
-      let(:pcdm_file1)       { Hydra::PCDM::File.new }
-      let(:non_PCDM_object)  { "I'm not a PCDM object" }
-      let(:af_base_object)   { ActiveFedora::Base.create }
-
-      let(:error_message) { 'child_generic_file must be a hydra-works generic file' }
-
-      it 'should NOT aggregate Hydra::Works::Collection in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::Works::GenericWork in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, generic_work1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Collections in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Objects in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, pcdm_object1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Files in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, pcdm_file1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate non-PCDM objects in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, non_PCDM_object ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate AF::Base objects in generic files aggregation' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
-      end
-    end
-
-    context 'with unacceptable parent generic works' do
-      let(:collection1)      { Hydra::Works::Collection.create }
-      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
-      let(:generic_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_generic_work must be a hydra-works generic work' }
-
-      it 'should NOT accept Hydra::Works::Collection as parent generic work' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.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::AddGenericFileToGenericWork.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::AddGenericFileToGenericWork.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::AddGenericFileToGenericWork.call( pcdm_object1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( pcdm_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept non-PCDM objects as parent generic work' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( non_PCDM_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept AF::Base objects as parent generic work' do
-        expect{ Hydra::Works::AddGenericFileToGenericWork.call( af_base_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-    end
-
-  end
-
-end

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

@@ -1,157 +0,0 @@
-require 'spec_helper'
-
-describe Hydra::Works::AddGenericWorkToGenericWork do
-
-  let(:subject) { Hydra::Works::GenericWork::Base.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(: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 }
-
-      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 add generic_work to generic_work with generic_files and generic_works' do
-          Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_work3 )
-          expect( Hydra::Works::GetGenericWorksFromGenericWork.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(generic_file1.id,generic_file2.id)
-          expect(subject.to_solr['generic_files_ssim']).to include(generic_file1.id,generic_file2.id)
-          expect(subject.to_solr['generic_files_ssim']).not_to include(generic_work1.id,generic_work2.id,generic_work3.id)
-        end
-        end
-      end
-
-      describe 'aggregates generic_works that implement Hydra::Works::GenericWorkBehavior' 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::AddGenericWorkToGenericWork.call( subject, iwork1 )
-          subject.save
-          expect( Hydra::Works::GetGenericWorksFromGenericWork.call( subject ) ).to eq [iwork1]
-        end
-      end
-
-      describe 'aggregates generic_works that extend Hydra::Works::GenericWork::Base' 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::AddGenericWorkToGenericWork.call( subject, ework1 )
-          subject.save
-          expect( Hydra::Works::GetGenericWorksFromGenericWork.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 generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, collection1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::Works::GenericFile in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, generic_file1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Collections in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, pcdm_collection1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Objects in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, pcdm_object1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate Hydra::PCDM::Files in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, pcdm_file1 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate non-PCDM objects in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, non_PCDM_object ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT aggregate AF::Base objects in generic works aggregation' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
-      end
-    end
-
-    context 'with unacceptable parent generic works' do
-      let(:collection1)      { Hydra::Works::Collection.create }
-      let(:generic_work1)    { Hydra::Works::GenericWork::Base.create }
-      let(:generic_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_generic_work must be a hydra-works generic work' }
-
-      it 'should NOT accept Hydra::Works::Collection as parent generic work' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.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::AddGenericWorkToGenericWork.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::AddGenericWorkToGenericWork.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::AddGenericWorkToGenericWork.call( pcdm_object1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( pcdm_file1, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept non-PCDM objects as parent generic work' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( non_PCDM_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept AF::Base objects as parent generic work' do
-        expect{ Hydra::Works::AddGenericWorkToGenericWork.call( af_base_object, generic_work2 ) }.to raise_error(ArgumentError,error_message)
-      end
-    end
-
-  end
-
-end

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

@@ -1,148 +0,0 @@
-require 'spec_helper'
-
-describe Hydra::Works::AddRelatedObjectToGenericWork do
-
-  let(:subject) { Hydra::Works::GenericWork::Base.create }
-
-  describe '#call' do
-
-    context 'with acceptable related objects' do
-      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 }
-      let(:generic_file2) { Hydra::Works::GenericFile::Base.create }
-
-      it 'should add various types of related objects to generic_work' do
-        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, generic_work1 )
-        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, generic_file1 )
-        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object1 )
-        related_objects = Hydra::Works::GetRelatedObjectsFromGenericWork.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 generic_works and generic_files' 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 )
-          Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object1 )
-          subject.save
-        end
-
-        it 'should add a related object to generic_work with generic_works and generic_files' do
-          Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object2 )
-          related_objects = Hydra::Works::GetRelatedObjectsFromGenericWork.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(generic_file2.id,generic_file1.id,object1.id,object2.id)
-          expect(subject.to_solr["generic_files_ssim"]).to include(generic_file2.id,generic_file1.id)
-          expect(subject.to_solr["generic_files_ssim"]).not_to include(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(generic_file2.id,generic_file1.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::AddRelatedObjectToGenericWork.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::AddRelatedObjectToGenericWork.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::AddRelatedObjectToGenericWork.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::AddRelatedObjectToGenericWork.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::AddRelatedObjectToGenericWork.call( subject, af_base_object ) }.to raise_error(ArgumentError,error_message)
-      end
-    end
-
-    context 'with unacceptable parent generic work' 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_object2)     { Hydra::PCDM::Object.create }
-      let(:pcdm_file1)       { Hydra::PCDM::File.new }
-      let(:non_PCDM_object)  { "I'm not a PCDM object" }
-      let(:af_base_object)   { ActiveFedora::Base.create }
-
-      let(:error_message) { 'parent_generic_work must be a hydra-works generic work' }
-
-      it 'should NOT accept Hydra::Works::Collection as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( collection1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::Works::GenericFile as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( generic_file1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::PCDM::Collections as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( pcdm_collection1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::PCDM::Objects as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( pcdm_object1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept Hydra::PCDM::Files as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( pcdm_file1, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept non-PCDM objects as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( non_PCDM_object, pcdm_object2 ) }.to raise_error(ArgumentError,error_message)
-      end
-
-      it 'should NOT accept AF::Base objects as parent generic work' do
-        expect{ Hydra::Works::AddRelatedObjectToGenericWork.call( af_base_object, pcdm_object2 ) }.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 pcdm#92 needs to be addressed' do
-        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object1 )
-        Hydra::Works::AddRelatedObjectToGenericWork.call( subject, object2 )
-        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? object2 ).to be true
-        expect( related_objects.size ).to eq 2
-      end
-      end
-    end
-  end
-end