require 'spec_helper'
describe ActiveFedora::OmDatastream do
  
  before(:all) do
    @sample_fields = {:publisher => {:values => ["publisher1"], :type => :string}, 
                      :coverage => {:values => ["coverage1", "coverage2"], :type => :text}, 
                      :creation_date => {:values => "fake-date", :type => :date},
                      :mydate => {:values => "fake-date", :type => :date},
                      :empty_field => {:values => {}}
                      } 
    @sample_raw_xml = "<foo><xmlelement/></foo>"
    @solr_doc = {"id"=>"mods_article1",
      ActiveFedora::SolrService.solr_name("test_ds__name_role_roleTerm", type: :string) =>["creator","submitter","teacher"],
      ActiveFedora::SolrService.solr_name("test_ds__name_0_role", type: :string)=>"\r\ncreator\r\nsubmitter\r\n",
      ActiveFedora::SolrService.solr_name("test_ds__name_1_role", type: :string)=>"\r\n teacher \r\n",
      ActiveFedora::SolrService.solr_name("test_ds__name_0_role_0_roleTerm", type: :string)=>"creator",
      ActiveFedora::SolrService.solr_name("test_ds__name_0_role_1_roleTerm", type: :string)=>"submitter",
      ActiveFedora::SolrService.solr_name("test_ds__name_1_role_0_roleTerm", type: :string)=>["teacher"]}
  end
  
  before(:each) do
    @mock_inner = double('inner object')
    @mock_repo = double('repository')
    allow(@mock_repo).to receive_messages(:datastream_dissemination=>'My Content', :config=>{}, :datastream_profile=>{})
    allow(@mock_inner).to receive(:repository).and_return(@mock_repo)
    allow(@mock_inner).to receive(:pid)
    allow(@mock_inner).to receive_messages(:new_record? => false)
    @test_ds = ActiveFedora::OmDatastream.new(@mock_inner, "descMetadata")
    allow(@test_ds).to receive_messages(:new? => false, :profile => {}, :datastream_content => '<test_xml/>')
    @test_ds.content="<test_xml/>"
    allow(@test_ds).to receive_messages(:new? => false)
  end
  
  its(:metadata?) { should be true}

  its(:controlGroup) { should == "M"}

  it "should include the Solrizer::XML::TerminologyBasedSolrizer for .to_solr support" do
    expect(ActiveFedora::OmDatastream.included_modules).to include(OM::XML::TerminologyBasedSolrizer)
  end
  
  describe '#new' do
    it 'should provide #new' do
      expect(ActiveFedora::OmDatastream).to respond_to(:new)
      expect(@test_ds.ng_xml).to be_instance_of(Nokogiri::XML::Document)
    end
    it 'should load xml from blob if provided' do
      test_ds1 = ActiveFedora::OmDatastream.new(nil, 'ds1')
      test_ds1.content="<xml><foo/></xml>"
      expect(test_ds1.ng_xml.to_xml).to be_equivalent_to("<?xml version=\"1.0\"?>\n<xml>\n  <foo/>\n</xml>\n")
    end
    it "should initialize from #xml_template if no xml is provided" do
      expect(ActiveFedora::OmDatastream).to receive(:xml_template).and_return("<fake template/>")
      n = ActiveFedora::OmDatastream.new
      expect(n.ng_xml).to be_equivalent_to("<fake template/>")
    end
  end

  describe "#prefix" do
    subject { ActiveFedora::OmDatastream.new(nil, 'descMetadata') }
    it "should be \"\#{dsid.underscore}__\"" do
      expect(subject.send(:prefix)).to eq("desc_metadata__")
    end
  end
  
  describe '#xml_template' do
    it "should return an empty xml document" do
      expect(ActiveFedora::OmDatastream.xml_template.to_xml).to be_equivalent_to("<?xml version=\"1.0\"?>\n<xml/>\n")
    end
  end

  describe "to_solr" do
    describe "with a dsid" do
      subject { ActiveFedora::OmDatastream.new(@mock_inner, "descMetadata") }
      its(:to_solr) {should == { }}
    end
    describe "without a dsid" do
      subject { ActiveFedora::OmDatastream.new }
      it "should raise an error" do
        expect{subject.to_solr}.to raise_error RuntimeError, "to_solr requires the dsid to be set"
      end
    end

    describe "when prefix is set" do
      before do 
        class MyDatastream < ActiveFedora::OmDatastream
          set_terminology do |t|
            t.root(:path=>"mods")
            t.title(:index_as=>[:stored_searchable])
          end
          def prefix
            "foo__"
          end
        end
        subject.title = 'Science'
      end
      after do
        Object.send(:remove_const, :MyDatastream)
      end
      subject { MyDatastream.new }
      it "should use the prefix" do
        expect(subject.to_solr).to have_key('foo__title_tesim')
      end
      it "should not prefix fields that aren't defined by this datastream" do
        expect(subject.to_solr('id' => 'test:123')).to have_key('id')
      end
    end
  end
  
  describe ".update_indexed_attributes" do
    
    before(:each) do
      @mods_ds = Hydra::ModsArticleDatastream.new(nil, 'descMetadata')
      @mods_ds.content=fixture(File.join("mods_articles","mods_article1.xml")).read
    end
    
    it "should apply submitted hash to corresponding datastream field values" do
      result = @mods_ds.update_indexed_attributes( {[{":person"=>"0"}, "role"]=>{"0"=>"role1", "1"=>"role2", "2"=>"role3"} })
      expect(result).to eq({"person_0_role"=>["role1", "role2", "role3"]})
      expect(@mods_ds.property_values('//oxns:name[@type="personal"][1]/oxns:role')).to eq(["role1","role2","role3"])
    end
    it "should support single-value arguments (as opposed to a hash of values with array indexes as keys)" do
      # In other words, { "fubar"=>"dork" } should have the same effect as { "fubar"=>{"0"=>"dork"} }
      result = @mods_ds.update_indexed_attributes( { [{":person"=>"0"}, "role"]=>"the role" } )
      expect(result).to eq({"person_0_role"=>["the role"]})
      expect(@mods_ds.term_values('//oxns:name[@type="personal"][1]/oxns:role').first).to eq("the role")
    end
    it "should do nothing if field key is a string (must be an array or symbol).  Will not accept xpath queries!" do
      xml_before = @mods_ds.to_xml
      expect(ActiveFedora::Base.logger).to receive(:warn).with "WARNING: descMetadata ignoring {\"fubar\" => \"the role\"} because \"fubar\" is a String (only valid OM Term Pointers will be used).  Make sure your html has the correct field_selector tags in it."
      expect(@mods_ds.update_indexed_attributes( { "fubar"=>"the role" } )).to eq({})
      expect(@mods_ds.to_xml).to eq(xml_before)
    end
    it "should do nothing if there is no accessor corresponding to the given field key" do
      xml_before = @mods_ds.to_xml
      expect(@mods_ds.update_indexed_attributes( { [{"fubar"=>"0"}]=>"the role" } )).to eq({})
      expect(@mods_ds.to_xml).to eq(xml_before)
    end
    
    ### Examples copied over form metadata_datastream_spec
    
    it "should work for text fields" do 
      att= {[{"person"=>"0"},"description"]=>{"-1"=>"mork", "1"=>"york"}}
      result = @mods_ds.update_indexed_attributes(att)
      expect(result).to eq({"person_0_description"=>["mork","york"]})
      expect(@mods_ds.get_values([{:person=>0},:description])).to eq(['mork', 'york'])
      att= {[{"person"=>"0"},"description"]=>{"-1"=>"dork"}}
      result2 = @mods_ds.update_indexed_attributes(att)
      expect(result2).to eq({"person_0_description"=>["dork"]})
      expect(@mods_ds.get_values([{:person=>0},:description])).to eq(['dork'])
    end
    
    it "should allow deleting of values and should delete values so that to_xml does not return emtpy nodes" do
      att= {[{"person"=>"0"},"description"]=>{"0"=>"york", "1"=>"mangle","2"=>"mork"}}
      @mods_ds.update_indexed_attributes(att)
      expect(@mods_ds.get_values([{"person"=>"0"},"description"])).to eq(['york', 'mangle', 'mork'])
      
      @mods_ds.update_indexed_attributes({[{"person"=>"0"},{"description" => '1'} ]=> nil})
      expect(@mods_ds.get_values([{"person"=>"0"},"description"])).to eq(['york', 'mork'])
      
      @mods_ds.update_indexed_attributes({[{"person"=>"0"},{"description" => '0'}]=>:delete})
      expect(@mods_ds.get_values([{"person"=>"0"},"description"])).to eq(['mork'])
    end
    
    it "should set changed to true" do
      expect(@mods_ds.get_values([{:title_info=>0},:main_title])).to eq(["ARTICLE TITLE", "TITLE OF HOST JOURNAL"])
      @mods_ds.update_indexed_attributes [{"title_info"=>"0"},"main_title"]=>{"-1"=>"mork"}
      expect(@mods_ds).to be_changed
    end
  end
  
  describe ".get_values" do
    
    before(:each) do
      @mods_ds = Hydra::ModsArticleDatastream.new(nil, 'modsDs')
      @mods_ds.content=fixture(File.join("mods_articles","mods_article1.xml")).read
    end
    
    it "should call lookup with field_name and return the text values from each resulting node" do
      expect(@mods_ds).to receive(:term_values).with("--my xpath--").and_return(["value1", "value2"])
      expect(@mods_ds.get_values("--my xpath--")).to eq(["value1", "value2"])
    end
    it "should assume that field_names that are strings are xpath queries" do
      expect(ActiveFedora::OmDatastream).to receive(:accessor_xpath).never
      expect(@mods_ds).to receive(:term_values).with("--my xpath--").and_return(["abstract1", "abstract2"])
      expect(@mods_ds.get_values("--my xpath--")).to eq(["abstract1", "abstract2"])
    end
  end

  describe '.save' do
    it "should provide .save" do
      expect(@test_ds).to respond_to(:save)
    end
    it "should persist the product of .to_xml in fedora" do
      allow(@mock_repo).to receive(:datastream).and_return('')
      allow(@test_ds).to receive_messages(:new? => true)
      allow(@test_ds).to receive_messages(:ng_xml_changed? => true)
      allow(@test_ds).to receive_messages(:to_xml => "fake xml")
      expect(@mock_repo).to receive(:add_datastream).with(:pid => nil, :dsid => 'descMetadata', :versionable => true, :content => 'fake xml', :controlGroup => 'M', :dsState => 'A', :mimeType=>'text/xml')

      @test_ds.serialize!
      @test_ds.save
      expect(@test_ds.mimeType).to eq('text/xml')
    end
  end
  
  describe 'setting content' do
    subject { ActiveFedora::OmDatastream.new(@mock_inner, "descMetadata") }
    it "should update the content" do
      allow(subject).to receive_messages(:new? => false )
      subject.content = "<a />"
      expect(subject.content).to eq('<a/>')
    end

    it "should mark the object as changed" do
      allow(subject).to receive_messages(:new? => false, :controlGroup => 'M')
      subject.content = "<a />"
      expect(subject).to be_changed
    end

    it "update ngxml and mark the xml as loaded" do
      allow(subject).to receive_messages(:new? => false )
      subject.content = "<a />"
      expect(subject.ng_xml.to_xml).to match(/<a\/>/)
      expect(subject.xml_loaded).to be true
    end
  end
  
  describe 'ng_xml=' do
    before do
      allow(@mock_inner).to receive_messages(:new_record? => true)
      @test_ds2 = ActiveFedora::OmDatastream.new(@mock_inner, "descMetadata")
    end
    it "should parse raw xml for you" do
      @test_ds2.ng_xml = @sample_raw_xml
      expect(@test_ds2.ng_xml.class).to eq(Nokogiri::XML::Document)
      expect(@test_ds2.ng_xml.to_xml).to be_equivalent_to(@sample_raw_xml)
    end

    it "Should always set a document when an Element is passed" do
      @test_ds2.ng_xml = Nokogiri::XML(@sample_raw_xml).xpath('//xmlelement').first
      expect(@test_ds2.ng_xml).to be_kind_of Nokogiri::XML::Document
      expect(@test_ds2.ng_xml.to_xml).to be_equivalent_to("<xmlelement/>")
    end
    it "should mark the datastream as changed" do
      allow(@test_ds2).to receive_messages(:new? => false, :controlGroup => 'M')
      expect(@test_ds2).not_to be_changed 
      @test_ds2.ng_xml = @sample_raw_xml
      expect(@test_ds2).to be_changed
    end
  end
  
  describe '.to_xml' do
    it "should provide .to_xml" do
      expect(@test_ds).to respond_to(:to_xml)
    end
    
    it "should ng_xml.to_xml" do
      allow(@test_ds).to receive_messages(:ng_xml => Nokogiri::XML::Document.parse("<text_document/>"))
      expect(@test_ds.to_xml).to eq("<text_document/>")       
    end
    
    it 'should accept an optional Nokogiri::XML Document as an argument and insert its fields into that (mocked test)' do
      doc = Nokogiri::XML::Document.parse("<test_document/>")
      expect(doc.root).to receive(:add_child)#.with(@test_ds.ng_xml.root)
      @test_ds.to_xml(doc)
    end
    
    it 'should accept an optional Nokogiri::XML Document as an argument and insert its fields into that (functional test)' do
      expected_result = "<test_document><foo/><test_xml/></test_document>"
      doc = Nokogiri::XML::Document.parse("<test_document><foo/></test_document>")
      result = @test_ds.to_xml(doc)
      expect(doc).to be_equivalent_to expected_result
      expect(result).to be_equivalent_to expected_result
    end
    
    it 'should add to root of Nokogiri::XML::Documents, but add directly to the elements if a Nokogiri::XML::Node is passed in' do
      doc = Nokogiri::XML::Document.parse("<test_document/>")
      el = Nokogiri::XML::Node.new("test_element", Nokogiri::XML::Document.new)
      expect(@test_ds.to_xml(doc)).to be_equivalent_to "<test_document><test_xml/></test_document>"
      expect(@test_ds.to_xml(el)).to be_equivalent_to "<test_element/>"
    end
    
  end
  
  describe '.from_solr' do
    it "should set the internal_solr_doc attribute to the solr document passed in" do 
      @test_ds.from_solr(@solr_doc)
      expect(@test_ds.internal_solr_doc).to eq(@solr_doc)
    end
  end

  describe '.get_values_from_solr' do
    before(:each) do
      @mods_ds = ActiveFedora::OmDatastream.new(nil, 'test_ds')
      @mods_ds.content=fixture(File.join("mods_articles","mods_article1.xml")).read
    end

    it "should return empty array if internal_solr_doc not set" do
      @mods_ds.get_values_from_solr(:name,:role,:roleTerm)
    end
 
    it "should return correct values from solr_doc given different term pointers" do
      mock_term = double("OM::XML::Term")
      allow(mock_term).to receive(:type).and_return(:text)
      mock_terminology = double("OM::XML::Terminology")
      allow(mock_terminology).to receive(:retrieve_term).and_return(mock_term)
      allow(ActiveFedora::OmDatastream).to receive(:terminology).and_return(mock_terminology)
      @mods_ds.from_solr(@solr_doc)
      term_pointer = [:name,:role,:roleTerm]
      expect(@mods_ds.get_values_from_solr(:name,:role,:roleTerm)).to eq(["creator","submitter","teacher"])
      ar = @mods_ds.get_values_from_solr({:name=>0},:role,:roleTerm)
      expect(ar.length).to eq(2)
      expect(ar.include?("creator")).to eq(true)
      expect(ar.include?("submitter")).to eq(true)
      expect(@mods_ds.get_values_from_solr({:name=>1},:role,:roleTerm)).to eq(["teacher"])
      expect(@mods_ds.get_values_from_solr({:name=>0},{:role=>0},:roleTerm)).to eq(["creator"])
      expect(@mods_ds.get_values_from_solr({:name=>0},{:role=>1},:roleTerm)).to eq(["submitter"])
      expect(@mods_ds.get_values_from_solr({:name=>0},{:role=>2},:roleTerm)).to eq([])
      expect(@mods_ds.get_values_from_solr({:name=>1},{:role=>0},:roleTerm)).to eq(["teacher"])
      expect(@mods_ds.get_values_from_solr({:name=>1},{:role=>1},:roleTerm)).to eq([])
      ar = @mods_ds.get_values_from_solr(:name,{:role=>0},:roleTerm)
      expect(ar.length).to eq(2)
      expect(ar.include?("creator")).to eq(true)
      expect(ar.include?("teacher")).to eq(true)
      expect(@mods_ds.get_values_from_solr(:name,{:role=>1},:roleTerm)).to eq(["submitter"])
    end
  end

  describe '.has_solr_name?' do
    it "should return true if the given key exists in the solr document passed in" do
      expect(@test_ds.has_solr_name?(ActiveFedora::SolrService.solr_name("test_ds__name_0_role_0_roleTerm", type: :string),@solr_doc)).to eq(true)
      expect(@test_ds.has_solr_name?(ActiveFedora::SolrService.solr_name("test_ds__name_0_role_0_roleTerm", type: :string).to_sym,@solr_doc)).to eq(true)
      expect(@test_ds.has_solr_name?(ActiveFedora::SolrService.solr_name("test_ds__name_1_role_1_roleTerm", type: :string),@solr_doc)).to eq(false)
      #if not doc passed in should be new empty solr doc and always return false
      expect(@test_ds.has_solr_name?(ActiveFedora::SolrService.solr_name("test_ds__name_0_role_0_roleTerm", type: :string))).to eq(false)
    end
  end

  describe '.is_hierarchical_term_pointer?' do
    it "should return true only if the pointer passed in is an array that contains a hash" do
      expect(@test_ds.is_hierarchical_term_pointer?(*[:image,{:tag1=>1},:tag2])).to eq(true)
      expect(@test_ds.is_hierarchical_term_pointer?(*[:image,:tag1,{:tag2=>1}])).to eq(true)
      expect(@test_ds.is_hierarchical_term_pointer?(*[:image,:tag1,:tag2])).to eq(false)
      expect(@test_ds.is_hierarchical_term_pointer?(nil)).to eq(false)      
    end
  end

  describe '.update_values' do
    before(:each) do
      @mods_ds = ActiveFedora::OmDatastream.new
      @mods_ds.content= fixture(File.join("mods_articles","mods_article1.xml")).read
    end

    it "should throw an exception if we have initialized the internal_solr_doc." do
      @mods_ds.from_solr(@solr_doc)
      found_exception = false
      begin
        @mods_ds.update_values([{":person"=>"0"}, "role", "text"]=>{"0"=>"role1", "1"=>"role2", "2"=>"role3"})
      rescue
        found_exception = true
      end
      expect(found_exception).to eq(true)
    end

    it "should update a value internally call OM::XML::TermValueOperators::update_values if internal_solr_doc is not set" do
      allow(@mods_ds).to receive(:om_update_values).once()
      term_pointer = [:name,:role,:roleTerm]
      @mods_ds.update_values([{":person"=>"0"}, "role", "text"]=>{"0"=>"role1", "1"=>"role2", "2"=>"role3"})
    end

    it "should set changed to true" do
      mods_ds = Hydra::ModsArticleDatastream.new
      mods_ds.content=fixture(File.join("mods_articles","mods_article1.xml")).read
      mods_ds.update_values([{":person"=>"0"}, "role", "text"]=>{"0"=>"role1", "1"=>"role2", "2"=>"role3"})
      expect(mods_ds).to be_changed
    end
  end

  describe '.term_values' do

    before(:each) do
      @mods_ds = ActiveFedora::OmDatastream.new
      @mods_ds.content=fixture(File.join("mods_articles","mods_article1.xml")).read
    end

    it "should call OM::XML::term_values if internal_solr_doc is not set and return values from xml" do
      allow(@mods_ds).to receive(:om_term_values).once()
      term_pointer = [:name,:role,:roleTerm]
      @mods_ds.term_values(*term_pointer)
    end

    # we will know this is working because solr_doc and xml are not synced so that wrong return mechanism can be detected
    it "should call get_values_from_solr if internal_solr_doc is set" do
      @mods_ds.from_solr(@solr_doc)
      term_pointer = [:name,:role,:roleTerm]
      allow(@mods_ds).to receive(:get_values_from_solr).once()
      @mods_ds.term_values(*term_pointer)
    end
  end

  describe "an instance that exists in the datastore, but hasn't been loaded" do
    before do 
      class MyObj < ActiveFedora::Base
        has_metadata 'descMetadata', type: Hydra::ModsArticleDatastream
      end
      @obj = MyObj.new
      @obj.descMetadata.title = 'Foobar'
      @obj.save
      @obj.reload
    end
    after do
      @obj.destroy
      Object.send(:remove_const, :MyObj)
    end
    it "should not load the descMetadata datastream when calling content_changed?" do
      expect(@obj.inner_object.repository).not_to receive(:datastream_dissemination).with(hash_including(:dsid=>'descMetadata'))
      expect(@obj.descMetadata).not_to be_content_changed
    end
  end
end