require 'spec_helper'
require 'rdf/isomorphic'

include RDF::Isomorphic

def sample_metadata_triples(subject_string="_:test")
  triples = <<-EOS
#{subject_string} <http://purl.org/dc/terms/title> "Sample title" .
#{subject_string} <http://purl.org/dc/terms/creator> "Sample, Example" .
#{subject_string} <http://purl.org/dc/terms/type> "Image" .
#{subject_string} <http://purl.org/dc/terms/type> "Still Image" .
#{subject_string} <http://purl.org/dc/terms/spatial> "Durham County (NC)" .
#{subject_string} <http://purl.org/dc/terms/spatial> "Durham (NC)" .
#{subject_string} <http://purl.org/dc/terms/date> "1981-01" .
#{subject_string} <http://purl.org/dc/terms/rights> "The copyright for these materials is unknown." .
#{subject_string} <http://library.duke.edu/metadata/terms/print_number> "12-345-6" .
#{subject_string} <http://library.duke.edu/metadata/terms/series> "Photographic Materials Series" .
#{subject_string} <http://library.duke.edu/metadata/terms/subseries> "Local Court House" .
EOS
end

module Ddr
  module Datastreams
    RSpec.describe DescriptiveMetadataDatastream do
      context "terminology" do
        subject { described_class.term_names }
        it "should have a term for each term name in the RDF::DC vocab except :license" do
          expect(subject).to include(*Ddr::Vocab::Vocabulary.term_names(RDF::DC)-[:license])
        end
        it "should have a term for each term name in the DukeTerms vocab" do
          expect(subject).to include(*Ddr::Vocab::Vocabulary.term_names(Ddr::Vocab::DukeTerms))
        end
      end
      context "properties" do
        subject { described_class.properties.map { |prop| prop[1].predicate } }
        it "should include all the RDF::DC predicates except http://purl.org/dc/terms/license" do
          expected_predicates = Ddr::Vocab::Vocabulary.property_terms(RDF::DC).select { |p| p.to_s != 'http://purl.org/dc/terms/license' }
          expect(subject).to include(*expected_predicates)
        end
        it "should include all the DukeTerms predicates" do
          expect(subject).to include(*Ddr::Vocab::Vocabulary.property_terms(Ddr::Vocab::DukeTerms))
        end
      end
      context "raw content" do
        let(:ds) { described_class.new(nil, 'descMetadata') }
        before do
          content = sample_metadata_triples(ds.rdf_subject.to_s)
          ds.content = content
          ds.resource.set_subject!(ds.rdf_subject)
        end
        it "should retrieve the content using the terminology" do
          expect(ds.title).to eq(["Sample title"])
          expect(ds.creator).to eq(["Sample, Example"])
          expect(ds.type).to eq(["Image", "Still Image"])
          expect(ds.spatial).to eq(["Durham County (NC)", "Durham (NC)"])
          expect(ds.date).to eq(["1981-01"])
          expect(ds.rights).to eq(["The copyright for these materials is unknown."])
          expect(ds.print_number).to eq(["12-345-6"])
          expect(ds.series).to eq(["Photographic Materials Series"])
          expect(ds.subseries).to eq(["Local Court House"])
        end
      end
      context "using the terminology setters" do
        let(:ds) { described_class.new(nil, 'descMetadata') }
        let(:content) { sample_metadata_triples(ds.rdf_subject.to_s) }
        before do
          ds.title = "Sample title"
          ds.creator = "Sample, Example"
          ds.type = ["Image", "Still Image"]
          ds.spatial = ["Durham County (NC)", "Durham (NC)"]
          ds.date = "1981-01"
          ds.rights = "The copyright for these materials is unknown."
          ds.print_number = "12-345-6"
          ds.series = "Photographic Materials Series"
          ds.subseries = "Local Court House"
        end
        it "should create equivalent RDF graph to that based on the raw version" do
          expect(ds.resource).to be_isomorphic_with(RDF::Reader.for(:ntriples).new(content))
        end
      end
      context "using the set_values and add_value methods" do
        let(:ds) { described_class.new(nil, 'descMetadata') }
        before { ds.type = "Photograph" }
        context "#set_values" do
          it "should set the values of the term to those supplied" do
            ds.set_values :type, [ "Image", "Still Image" ]
            expect(ds.type).to eq([ "Image", "Still Image" ])
          end
        end
        context "#add_value" do
          it "should add the supplied value to those of the term" do
            ds.add_value :type, "Image"
            expect(ds.type).to eq([ "Photograph", "Image" ])
          end
        end
      end
      context "solrization" do
        let(:ds) { described_class.new(nil, 'descMetadata') }
        subject { ds.to_solr }
        before do
          content = sample_metadata_triples(ds.rdf_subject.to_s)
          ds.content = content
          ds.resource.set_subject!(ds.rdf_subject)
        end
        it "should create fields for all the terms that have non-empty values" do
          expect(subject).to include("title_tesim" => ["Sample title"])
          expect(subject).to include("creator_tesim" => ["Sample, Example"])
          expect(subject).to include("type_tesim" => ["Image", "Still Image"])
          expect(subject).to include("spatial_tesim" => ["Durham County (NC)", "Durham (NC)"])
          expect(subject).to include("date_tesim" => ["1981-01"])
          expect(subject).to include("rights_tesim" => ["The copyright for these materials is unknown."])
          expect(subject).to include("print_number_tesim" => ["12-345-6"])
          expect(subject).to include("series_tesim" => ["Photographic Materials Series"])
          expect(subject).to include("subseries_tesim" => ["Local Court House"])
        end
      end
    end
  end
end