RSpec.shared_examples "a DDR model" do

  it_behaves_like "a describable object"
  it_behaves_like "a governable object"
  it_behaves_like "a licensable object"
  it_behaves_like "an access controllable object"
  it_behaves_like "an object that has properties"
  it_behaves_like "an object that has a display title"
  it_behaves_like "an object that has identifiers"

  describe "events" do
    describe "on deletion with #destroy" do
      before { subject.save(validate: false) }
      it "should create a deletion event" do
        expect { subject.destroy }.to change { Ddr::Events::DeletionEvent.for_object(subject).count }.from(0).to(1)
      end
    end

    describe "last virus check" do
      let!(:fixity_check) { Ddr::Events::FixityCheckEvent.new }
      before { allow(subject).to receive(:last_fixity_check) { fixity_check } }
      its(:last_fixity_check_on) { should eq(fixity_check.event_date_time) }
      its(:last_fixity_check_outcome) { should eq(fixity_check.outcome) }
    end
  end

  describe "move first desc metadata identifier to local id" do
    let(:local_id) { 'locl001' }
    let(:identifiers) { [ 'id001', 'id002' ] }
    context "no desc metadata identifiers" do
      context "local id present" do
        before { subject.local_id = local_id }
        it "should not change the local id" do
          result = subject.move_first_identifier_to_local_id
          expect(result).to be false
          expect(subject.local_id).to eq(local_id)
        end
      end
    end
    context "one desc metadata identifier" do
      before { subject.identifier = Array(identifiers.first) }
      context "local id not present" do
        it "should set the local id and remove the identifier" do
          result = subject.move_first_identifier_to_local_id
          expect(result).to be true
          expect(subject.local_id).to eq(identifiers.first)
          expect(subject.identifier).to be_empty
        end
      end
      context "local id present" do
        before { subject.local_id = local_id }
        context "replace option is true" do
          it "should set the local id and remove the identifier" do
            result = subject.move_first_identifier_to_local_id
            expect(result).to be true
            expect(subject.local_id).to eq(identifiers.first)
            expect(subject.identifier).to be_empty
          end
        end
        context "replace option is false" do
          context "local id matches first identifier" do
            before { subject.identifier = Array(local_id) }
            it "should remove the identifier" do
              result = subject.move_first_identifier_to_local_id(replace: false)
              expect(result).to be true
              expect(subject.local_id).to eq(local_id)
              expect(subject.identifier).to be_empty
            end
          end
          context "local id does not match first identifier" do
            it "should not change the local id and not remove the identifier" do
              result = subject.move_first_identifier_to_local_id(replace: false)
              expect(result).to be false
              expect(subject.local_id).to eq(local_id)
              expect(subject.identifier).to eq(Array(identifiers.first))
            end
          end
        end
      end
    end
    context "more than one desc metadata identifer" do
      before { subject.identifier = identifiers }
      context "local id not present" do
        it "should set the local id and remove the identifier" do
          result = subject.move_first_identifier_to_local_id
          expect(result).to be true
          expect(subject.local_id).to eq(identifiers.first)
          expect(subject.identifier).to eq(Array(identifiers.last))
        end
      end
      context "local id present" do
        before { subject.local_id = local_id }
        context "replace option is true" do
          it "should set the local id and remove the identifier" do
            result = subject.move_first_identifier_to_local_id
            expect(result).to be true
            expect(subject.local_id).to eq(identifiers.first)
            expect(subject.identifier).to eq(Array(identifiers.last))
          end
        end
        context "replace option is false" do
          context "local id matches first identifier" do
            before { subject.identifier = [ local_id, identifiers.last ] }
            it "should remove the identifier" do
              result = subject.move_first_identifier_to_local_id(replace: false)
              expect(result).to be true
              expect(subject.local_id).to eq(local_id)
              expect(subject.identifier).to eq(Array(identifiers.last))
            end
          end
          context "local id does not match first identifier" do
            it "should not change the local id and not remove the identifier" do
              result = subject.move_first_identifier_to_local_id(replace: false)
              expect(result).to be false
              expect(subject.local_id).to eq(local_id)
              expect(subject.identifier).to eq(identifiers)
            end
          end
        end
      end
    end
  end

end