hydra-works 0.0.1 → 0.1.0

data/spec/hydra/works/models/concerns/block_child_objects_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+
+describe Hydra::Works::BlockChildObjects do
+
+  subject { Hydra::Works::GenericFile::Base.new }
+
+  describe "#child_objects=?" do
+    it "should raise an error" do
+      expect { subject.child_objects = [] }.to raise_error(StandardError, /method `child_objects=' not allowed for #<Hydra::Works::GenericFile::Base.*/)
+    end
+  end
+
+  describe "#child_objects" do
+    it "should raise an error" do
+      expect { subject.child_objects }.to raise_error(StandardError, /method `child_objects' not allowed for #<Hydra::Works::GenericFile::Base.*/)
+    end
+  end
+
+end

data/spec/hydra/works/models/concerns/{file → generic_file}/contained_files_spec.rb

@@ -12,18 +12,18 @@ describe Hydra::Works::GenericFile::ContainedFiles do
   end
 
   let(:file)                { generic_file.files.build }
-  let(:pcdm_thumbnail_uri)  { ::RDF::URI("http://pcdm.org/ThumbnailImage") }
+  let(:pcdm_thumbnail_uri)  { ::RDF::URI("http://pcdm.org/use#ThumbnailImage") }
 
   before do
     generic_file.files = [file]
-    generic_file.save
   end
 
   describe "#thumbnail" do
 
     context "when a thumbnail is present" do
       before do
-        generic_file.thumbnail.content = "thumbnail"
+        original_file = generic_file.build_thumbnail
+        original_file.content = "thumbnail"
       end
       subject { generic_file.thumbnail }
       it "can be saved without errors" do
@@ -33,13 +33,13 @@ describe Hydra::Works::GenericFile::ContainedFiles do
         expect(subject.content).to eql "thumbnail"
       end
       it "retains origin pcdm.File RDF type" do
-        expect(subject.metadata_node.type).to include( ::RDF::URI("http://pcdm.org/ThumbnailImage") )
+        expect(subject.metadata_node.type).to include( ::RDF::URI("http://pcdm.org/use#ThumbnailImage") )
         expect(subject.metadata_node.type).to include(RDFVocabularies::PCDMTerms.File)
       end
     end
 
-    context "when no thumbnail is present" do
-      subject { generic_file.thumbnail }
+    context "when building new thumbnail" do
+      subject { generic_file.build_thumbnail }
       it "initializes an unsaved File object with Thumbnail type" do
         expect(subject).to be_new_record
         expect(subject.metadata_node.type).to include(pcdm_thumbnail_uri)
@@ -53,27 +53,29 @@ describe Hydra::Works::GenericFile::ContainedFiles do
 
     context "when an original file is present" do
       before do
-        generic_file.original_file.content = "original_file"
+        original_file = generic_file.build_original_file
+        original_file.content = "original_file"
       end
       subject { generic_file.original_file }
 
       it "can be saved without errors" do
         expect(subject.save).to be_truthy
       end
-      it "retrieves content of the original_file" do
+      it "retrieves content of the original_file as a PCDM File" do
         expect(subject.content).to eql "original_file"
+        expect(subject).to be_instance_of Hydra::PCDM::File
       end
       it "retains origin pcdm.File RDF type" do
-        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/OriginalFile") )
+        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/use#OriginalFile") )
         expect(generic_file.original_file.metadata_node.type).to include(RDFVocabularies::PCDMTerms.File)
       end
     end
 
-    context "when no original file is present" do
-      subject { generic_file.original_file }
+    context "when building original file" do
+      subject { generic_file.build_original_file }
       it "initializes an unsaved File object with OrignalFile type" do
         expect(subject).to be_new_record
-        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/OriginalFile") )
+        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/use#OriginalFile") )
         expect(subject.metadata_node.type).to include(RDFVocabularies::PCDMTerms.File)
       end
     end
@@ -84,7 +86,8 @@ describe Hydra::Works::GenericFile::ContainedFiles do
 
     context "when extracted text is present" do
       before do
-        generic_file.extracted_text.content = "extracted_text"
+        extracted_text = generic_file.build_extracted_text
+        extracted_text.content = "extracted_text"
       end
       subject { generic_file.extracted_text }
       it "can be saved without errors" do
@@ -94,16 +97,16 @@ describe Hydra::Works::GenericFile::ContainedFiles do
         expect(subject.content).to eql "extracted_text"
       end
       it "retains origin pcdm.File RDF type" do
-        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/ExtractedText") )
+        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/use#ExtractedText") )
         expect(subject.metadata_node.type).to include(RDFVocabularies::PCDMTerms.File)
       end
     end
 
-    context "when no extracted text is present" do
-      subject { generic_file.extracted_text }
+    context "when building new extracted text object" do
+      subject { generic_file.build_extracted_text }
       it "initializes an unsaved File object with ExtractedText type" do
         expect(subject).to be_new_record
-        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/ExtractedText") )
+        expect(subject.metadata_node.type).to include(::RDF::URI("http://pcdm.org/use#ExtractedText") )
         expect(subject.metadata_node.type).to include(RDFVocabularies::PCDMTerms.File)
       end
     end

data/spec/hydra/works/models/concerns/generic_file/mime_types_spec.rb

@@ -0,0 +1,76 @@
+require 'spec_helper'
+
+describe Hydra::Works::GenericFile::MimeTypes do
+
+  subject { Hydra::Works::GenericFile::Base.new }
+
+  describe "#pdf?" do
+    before do
+      allow(subject).to receive(:mime_type).and_return('application/pdf')
+    end
+    it "should be true" do
+      expect(subject.pdf?).to be true
+    end
+  end
+
+  describe "#image?" do
+    before do
+      allow(subject).to receive(:mime_type).and_return('image/jpeg')
+    end
+    it "should be true" do
+      expect(subject.image?).to be true
+    end
+  end
+
+  describe "#video?" do
+    before do
+      allow(subject).to receive(:mime_type).and_return('video/mp4')
+    end
+    it "should be true" do
+      expect(subject.video?).to be true
+    end
+  end
+
+  describe "#audio?" do
+    before do
+      allow(subject).to receive(:mime_type).and_return('audio/mp3')
+    end
+    it "should be true" do
+      expect(subject.audio?).to be true
+    end
+  end
+
+  describe "#office_document?" do
+    before do
+      allow(subject).to receive(:mime_type).and_return('application/msword')
+    end
+    it "should be true" do
+      expect(subject.office_document?).to be true
+    end
+  end
+
+  describe "#collection?" do
+    it "should be false" do
+      expect(subject.collection?).to be false
+    end
+  end
+
+  describe "#file_format?" do
+    it "should handle both mime and format_label" do
+      allow(subject).to receive(:mime_type).and_return('image/png')
+      allow(subject).to receive(:format_label).and_return(['Portable Network Graphics'])
+      expect(subject.file_format).to eq 'png (Portable Network Graphics)'
+    end
+    it "should handle just mime type" do
+      allow(subject).to receive(:mime_type).and_return('image/png')
+      allow(subject).to receive(:format_label).and_return([])
+      expect(subject.file_format).to eq 'png'
+    end
+    it "should handle just format_label" do
+      allow(subject).to receive(:mime_type).and_return('')
+      allow(subject).to receive(:format_label).and_return(['Portable Network Graphics'])
+      expect(subject.file_format).to eq ['Portable Network Graphics']
+    end
+  end
+
+end

data/spec/hydra/works/models/concerns/generic_file/versioned_content_spec.rb

@@ -0,0 +1,32 @@
+require 'spec_helper'
+
+describe Hydra::Works::GenericFile::VersionedContent do
+  let(:generic_file)  { Hydra::Works::GenericFile::Base.new }
+  before do
+    Hydra::Works::UploadFileToGenericFile.call(generic_file, File.open(File.join(fixture_path, "sample-file.pdf")))
+    Hydra::Works::UploadFileToGenericFile.call(generic_file, File.open(File.join(fixture_path, "updated-file.txt")))
+  end
+
+  describe "content_versions" do
+    subject {generic_file.content_versions}
+    it "lists all of the versions of original_file" do
+      expect(subject.count).to eq(2)
+      expect(subject.map { |v| v.uri }).to eq(generic_file.original_file.versions.all.map { |v| v.uri })
+    end
+  end
+
+  describe "latest_content_version" do
+    subject { generic_file.latest_content_version }
+    it "returns the most recent version entry for original_file" do
+      # Can't use a simple equivalence because they are actually different ResourceVersion objects
+      expect(subject.uri).to eq(generic_file.original_file.versions.last.uri)
+      expect(subject.label).to eq(generic_file.original_file.versions.last.label)
+    end
+  end
+
+  describe "current_content_version_uri" do
+    it "returns the URI of the most recent version of original_file" do
+      expect(generic_file.current_content_version_uri).to eq(generic_file.original_file.versions.last.uri)
+    end
+  end
+end

data/spec/hydra/works/models/concerns/generic_file/virus_check_spec.rb

@@ -0,0 +1,50 @@
+require 'spec_helper'
+
+describe Hydra::Works::GenericFile::VirusCheck do
+  before do
+    class FileWithVirusCheck < ActiveFedora::Base
+      include Hydra::Works::GenericFileBehavior
+      include Hydra::Works::GenericFile::VirusCheck
+    end
+    class ClamAV
+      def self.instance; @instance ||= ClamAV.new; end
+      def scanfile(path); puts "scanfile: #{path}"; end
+    end
+  end
+  after do
+    Object.send(:remove_const, :ClamAV)
+    Object.send(:remove_const, :FileWithVirusCheck)
+  end
+
+  subject { FileWithVirusCheck.new }
+  let(:file) { Hydra::PCDM::File.new File.join(fixture_path, 'sample-file.pdf') }
+
+  before do
+    allow(subject).to receive(:original_file) { file }
+    allow(subject).to receive(:warn) # suppress virus warning messages
+  end
+
+  context 'with an infected file' do
+
+    before do
+      expect(ClamAV.instance).to receive(:scanfile).and_return(1)
+    end
+    it "should fail to save" do
+      expect(subject.save).to eq false
+    end
+    it "should fail to validate" do
+      expect(subject.validate).to eq false
+    end
+  end
+
+  context "with a clean file" do
+    before do
+      expect(ClamAV.instance).to receive(:scanfile).and_return(0)
+    end
+
+    it "should not detect viruses" do
+      expect(subject.detect_viruses).to eq true
+    end
+  end
+
+end

data/spec/hydra/works/models/concerns/generic_file_behavior_spec.rb

@@ -7,6 +7,6 @@ describe Hydra::Works::GenericFileBehavior do
   subject { IncludesGenericFileBehavior.new }
 
   it "ensures that objects will be recognized as generic_files" do
-    expect(Hydra::Works.generic_file? subject).to be_truthy
+    expect(subject).to be_works_generic_file
   end
 end

data/spec/hydra/works/models/generic_file_spec.rb

@@ -2,28 +2,17 @@ require 'spec_helper'
 
 describe Hydra::Works::GenericFile::Base do
 
-  let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
-  let(:generic_file2) { Hydra::Works::GenericFile::Base.create }
-  let(:generic_file3) { Hydra::Works::GenericFile::Base.create }
-
-  describe '#generic_files=' do
-    it 'should aggregate generic_files' do
-      generic_file1.generic_files = [generic_file2, generic_file3]
-      generic_file1.save
-      expect(generic_file1.generic_files).to eq [generic_file2, generic_file3]
-    end
-  end
+  let(:generic_file1) { Hydra::Works::GenericFile::Base.new }
 
   describe 'Related objects' do
-    let(:object1) { Hydra::PCDM::Object.create }
+    let(:object1) { Hydra::PCDM::Object.new }
 
     before do
       generic_file1.related_objects = [object1]
-      generic_file1.save
     end
 
     it 'persists' do
-      expect(generic_file1.reload.related_objects).to eq [object1]
+      expect(generic_file1.related_objects).to eq [object1]
     end
   end
 
@@ -42,4 +31,202 @@ describe Hydra::Works::GenericFile::Base do
 
     it { is_expected.to eq [file1, file2] }
   end
+
+  describe 'add related object' do
+
+    let(:subject) { Hydra::Works::GenericFile::Base.new }
+
+    describe 'begin test' do
+
+      context 'with acceptable related objects' do
+        let(:object1) { Hydra::PCDM::Object.create }
+        let(:object2) { Hydra::PCDM::Object.new }
+        let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+        let(:generic_work2) { Hydra::Works::GenericWork::Base.new }
+        let(:generic_file1) { Hydra::Works::GenericFile::Base.create }
+
+        it 'should add various types of related objects to generic_file' do
+          subject.related_objects << generic_work1
+          subject.related_objects << generic_file1
+          subject.related_objects << object1
+          subject.save
+          subject.reload
+          related_objects = subject.related_objects
+          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 files and generic_files' do
+          let(:file1) { subject.files.build }
+          let(:file2) { subject.files.build }
+          
+          before do
+            subject.save
+            file1.content = "I'm a file"
+            file2.content = "I am too"
+            subject.related_objects << object1
+          end
+
+          it 'should add a related object to a generic_file with files and generic_files' do
+            subject.related_objects << object2 
+            subject.save
+            subject.reload
+            related_objects = subject.related_objects
+            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
+
+      context 'with unacceptable child related objects' do
+        let(:collection1)      { Hydra::Works::Collection.new }
+        let(:pcdm_collection1) { Hydra::PCDM::Collection.new }
+        let(:pcdm_file1)       { Hydra::PCDM::File.new }
+        let(:non_PCDM_object)  { "I'm not a PCDM object" }
+        let(:af_base_object)   { ActiveFedora::Base.new }
+        
+        let(:error_message) { 'child_related_object must be a pcdm object' }
+        
+        it 'should NOT aggregate Hydra::Works::Collection in related objects aggregation' do
+          expect{ subject.related_objects << collection1 }.to raise_error(ActiveFedora::AssociationTypeMismatch, /Hydra::Works::Collection:.*> is not a PCDM object./)
+        end
+
+        it 'should NOT aggregate Hydra::PCDM::Collections in related objects aggregation' do
+          expect{ subject.related_objects << pcdm_collection1 }.to raise_error(ActiveFedora::AssociationTypeMismatch, /Hydra::PCDM::Collection:.*> is not a PCDM object./)
+        end
+
+        it 'should NOT aggregate Hydra::PCDM::Files in related objects aggregation' do
+          expect{ subject.related_objects << pcdm_file1 }.to raise_error(ActiveFedora::AssociationTypeMismatch, /ActiveFedora::Base.* expected, got Hydra::PCDM::File.*/)
+        end
+
+        it 'should NOT aggregate non-PCDM objects in related objects aggregation' do
+          expect{ subject.related_objects << non_PCDM_object }.to raise_error(ActiveFedora::AssociationTypeMismatch, /ActiveFedora::Base.* expected, got String.*/)
+      end
+        
+        it 'should NOT aggregate AF::Base objects in related objects aggregation' do
+          expect{ subject.related_objects << af_base_object }.to raise_error(ActiveFedora::AssociationTypeMismatch, /ActiveFedora::Base.* is not a PCDM object./)
+          
+        end
+      end
+      
+      context 'with invalid behaviors' do
+        let(:object1) { Hydra::PCDM::Object.new }
+        let(:object2) { Hydra::PCDM::Object.new }
+
+        it 'should NOT allow related objects to repeat' do
+          skip 'skipping this test because issue pcdm#92 needs to be addressed' do
+            subject.related_objects << object1   
+            subject.related_objects << object2
+            subject.related_objects << object1
+            subject.save
+            subject.reload
+            related_objects = subject.related_objects
+            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
+ 
+  describe 'get related objects from generic file' do
+
+    subject { Hydra::Works::GenericFile::Base.new }
+
+    let(:object1) { Hydra::PCDM::Object.new }
+    let(:object2) { Hydra::PCDM::Object.new }
+
+    let(:generic_work1) { Hydra::Works::GenericWork::Base.new }
+    let(:generic_file1) { Hydra::Works::GenericFile::Base.new }
+
+    context 'with generic files' do
+      it 'should return empty array when only generic files are aggregated' do
+        expect( related_objects = subject.related_objects ).to eq []
+      end
+
+      it 'should return related objects' do
+        subject.related_objects << object2 
+        expect( related_objects = subject.related_objects ).to eq [object2]
+      end
+
+      it 'should return related objects of various types' do
+        subject.related_objects << generic_work1 
+        subject.related_objects << generic_file1 
+        subject.related_objects << object1
+        subject.save
+        subject.reload
+        related_objects = subject.related_objects
+        expect( related_objects.include? object1 ).to be true
+        expect( related_objects.include? generic_work1 ).to be true
+        expect( related_objects.include? generic_file1 ).to be true
+        expect( related_objects.size ).to eq 3
+      end
+    end
+  end
+
+  describe 'remove related object from related object' do
+
+    subject { Hydra::Works::GenericFile::Base.new }
+
+    let(:related_object1) { Hydra::PCDM::Object.new }
+    let(:related_work2)   { Hydra::Works::GenericWork::Base.new }
+    let(:related_file3)   { Hydra::Works::GenericFile::Base.new }
+    let(:related_object4) { Hydra::PCDM::Object.new }
+    let(:related_work5)   { Hydra::Works::GenericWork::Base.new }
+
+    let(:generic_file1) { Hydra::Works::GenericFile::Base.new }
+    let(:generic_file2) { Hydra::Works::GenericFile::Base.new }
+
+    context 'when multiple related objects' do
+      before do
+        subject.related_objects << related_object1 
+        subject.related_objects << related_work2
+        subject.related_objects << related_file3
+        subject.related_objects << related_object4 
+        subject.related_objects << related_work5 
+        expect( related_ojects = subject.related_objects ).to eq [related_object1,related_work2,related_file3,related_object4,related_work5]
+
+      end
+
+      it 'should remove first related object' do
+        expect( subject.related_objects.delete related_object1 ).to eq [related_object1]
+        expect( related_objects = subject.related_objects).to eq [related_work2,related_file3,related_object4,related_work5]
+      end
+
+      it 'should remove last related object' do
+        expect( subject.related_objects.delete related_work5 ).to eq [related_work5]
+        expect( related_objects = subject.related_objects ).to eq [related_object1,related_work2,related_file3,related_object4]
+      end
+
+      it 'should remove middle related object' do
+        expect( subject.related_objects.delete related_file3  ).to eq [related_file3]
+        expect( related_objects = subject.related_objects ).to eq [related_object1,related_work2,related_object4,related_work5]
+      end
+    end
+
+    #Assuming this context not needed because unacceptable related objects 
+    #can't be added.
+    #context 'with unacceptable related object' do
+
+  end
+
+  describe "should have parent work accessors" do
+    let(:generic_work1) { Hydra::Works::GenericWork::Base.create }
+    before do
+      generic_work1.generic_files << generic_file1
+    end
+
+    it 'should have parents' do
+      expect(generic_file1.parents).to eq [generic_work1]
+    end
+    it 'should have a parent work' do
+      expect(generic_file1.generic_works).to eq [generic_work1]
+    end
+  end
+
+
 end