#-- encoding: UTF-8

#-- copyright
# OpenProject is a project management system.
# Copyright (C) 2012-2017 the OpenProject Foundation (OPF)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License version 3.
#
# OpenProject is a fork of ChiliProject, which is a fork of Redmine. The copyright follows:
# Copyright (C) 2006-2017 Jean-Philippe Lang
# Copyright (C) 2010-2013 the ChiliProject Team
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
#
# See doc/COPYRIGHT.rdoc for more details.
#++

require 'spec_helper'

describe UpdateWorkPackageService, type: :model do
  let(:user) { FactoryGirl.build_stubbed(:user) }
  let(:project) do
    p = FactoryGirl.build_stubbed(:project)
    allow(p).to receive(:shared_versions).and_return([])

    p
  end
  let(:work_package) do
    wp = FactoryGirl.build_stubbed(:work_package, project: project)
    wp.type = FactoryGirl.build_stubbed(:type)
    wp.send(:clear_changes_information)

    wp
  end
  let(:instance) do
    UpdateWorkPackageService.new(user: user,
                                 work_package: work_package)
  end

  describe '.contract' do
    it 'uses the UpdateContract contract' do
      expect(described_class.contract).to eql WorkPackages::UpdateContract
    end
  end

  describe 'call' do
    let(:mock_contract) do
      double(WorkPackages::UpdateContract,
             new: mock_contract_instance)
    end
    let(:mock_contract_instance) do
      mock_model(WorkPackages::UpdateContract)
    end

    before do
      allow(described_class).to receive(:contract).and_return(mock_contract)
    end

    let(:send_notifications) { true }

    before do
      expect(JournalManager)
        .to receive(:with_send_notifications)
        .with(send_notifications)
        .and_yield

      allow(work_package).to receive(:save).and_return true
      allow(mock_contract_instance).to receive(:validate).and_return true
    end

    shared_examples_for 'service call' do
      subject { instance.call(attributes: call_attributes, send_notifications: send_notifications) }

      it 'is successful' do
        expect(subject.success?).to be_truthy
      end

      it 'sets the value' do
        subject

        attributes.each do |attribute, key|
          expect(work_package.send(attribute)).to eql key
        end
      end

      it 'has no errors' do
        expect(subject.errors).to be_empty
      end

      context 'when the contract does not validate' do
        before do
          expect(mock_contract_instance).to receive(:validate).and_return false
        end

        it 'is unsuccessful' do
          expect(subject.success?).to be_falsey
        end

        it 'does not persist the changes' do
          subject

          expect(work_package).to_not receive(:save)
        end

        it "exposes the contract's errors" do
          errors = double('errors')
          allow(mock_contract_instance).to receive(:errors).and_return(errors)

          subject

          expect(subject.errors).to eql errors
        end
      end

      context 'when the saving is unsuccessful' do
        before do
          expect(work_package).to receive(:save).and_return false
        end

        it 'is unsuccessful' do
          expect(subject.success?).to be_falsey
        end

        it 'leaves the value unchanged' do
          subject

          expect(work_package.changed?).to be_truthy
        end

        it "exposes the work_packages's errors" do
          errors = double('errors')
          allow(work_package).to receive(:errors).and_return(errors)

          subject

          expect(subject.errors).to eql errors
        end
      end
    end

    context 'update subject before calling the service' do
      let(:call_attributes) { {} }
      let(:attributes) { { subject: 'blubs blubs' } }

      before do
        work_package.attributes = attributes
      end

      it_behaves_like 'service call'
    end

    context 'updating subject via attributes' do
      let(:call_attributes) { attributes }
      let(:attributes) { { subject: 'blubs blubs' } }

      it_behaves_like 'service call'
    end

    context 'when switching the project' do
      let(:target_project) do
        FactoryGirl.build_stubbed(:project)
      end
      let(:call_attributes) { attributes }
      let(:attributes) { { project: target_project } }

      it_behaves_like 'service call'

      context 'relations' do
        it 'removes the relations if the setting does not permit cross project relations' do
          allow(Setting)
            .to receive(:cross_project_work_package_relations?)
            .and_return false
          expect(work_package)
            .to receive_message_chain(:relations_from, :clear)
          expect(work_package)
            .to receive_message_chain(:relations_to, :clear)

          instance.call(attributes: { project: target_project })
        end

        it 'leaves the relations unchanged if the setting allows cross project relations' do
          allow(Setting)
            .to receive(:cross_project_work_package_relations?)
            .and_return true
          expect(work_package)
            .to_not receive(:relations_from)
          expect(work_package)
            .to_not receive(:relations_to)

          instance.call(attributes: { project: target_project })
        end
      end

      context 'time_entries' do
        it 'moves the time entries' do
          expect(work_package)
            .to receive(:move_time_entries)
            .with(target_project)

          instance.call(attributes: { project: target_project })
        end
      end

      context 'when having children' do
        let(:child_work_package) do
          child_work_package = FactoryGirl.build_stubbed(:work_package,
                                                         parent: work_package,
                                                         project: project)

          allow(work_package)
            .to receive(:children)
            .and_return [child_work_package]

          child_work_package
        end

        let(:attributes) do
          { attributes: { project: target_project } }
        end

        let(:child_service) do
          double('UpdateChildWorkPackageChildService')
        end

        it 'calls the service again with the same attributes for each child' do
          expect(UpdateChildWorkPackageService)
            .to receive(:new)
            .with(user: user,
                  work_package: child_work_package)
            .and_return child_service

          expect(child_service)
            .to receive(:call)
            .with(attributes)
            .and_return true

          instance.call(attributes)
        end

        it 'returns errors of the child service calls and returns false' do
          expect(UpdateChildWorkPackageService)
            .to receive(:new)
            .with(user: user,
                  work_package: child_work_package)
            .and_return child_service

          errors = double('child service errors')

          expect(child_service)
            .to receive(:call)
            .with(attributes)
            .and_return [false, errors]

          result = instance.call(attributes)

          expect(result.success?).to be_falsey
          expect(result.errors).to eql errors
        end
      end
    end

    context 'when switching the type' do
      let(:target_type) { FactoryGirl.build_stubbed(:type) }

      context 'custom_values' do
        it 'resets the custom values' do
          expect(work_package)
            .to receive(:reset_custom_values!)

          instance.call(attributes: { type: target_type })
        end
      end

      context 'with a type that is no milestone' do
        before do
          allow(target_type)
            .to receive(:is_milestone?)
            .and_return(false)
        end

        it 'sets the start date to the due date' do
          work_package.due_date = Date.today

          instance.call(attributes: { type: target_type })

          expect(work_package.start_date).to be_nil
        end
      end

      context 'with a type that is a milestone' do
        before do
          allow(target_type)
            .to receive(:is_milestone?)
            .and_return(true)
        end

        it 'sets the start date to the due date' do
          date = Date.today
          work_package.due_date = date

          instance.call(attributes: { type: target_type })

          expect(work_package.start_date).to eql date
        end

        it 'set the due date to the start date if the due date is nil' do
          date = Date.today
          work_package.start_date = date

          instance.call(attributes: { type: target_type })

          expect(work_package.due_date).to eql date
        end
      end
    end

    context 'when setting a parent' do
      let(:parent) { FactoryGirl.build_stubbed(:work_package) }

      context "with the parent being restricted in it's ability to be moved" do
        let(:soonest_date) { Date.today + 3.days }

        before do
          allow(parent)
            .to receive(:soonest_start)
            .and_return(soonest_date)
        end

        it 'sets the start date to the earliest possible date' do
          instance.call(attributes: { parent: parent })

          expect(work_package.start_date).to eql(Date.today + 3.days)
        end
      end

      context 'with the parent being resticted but the attributes define a later date' do
        let(:soonest_date) { Date.today + 3.days }

        before do
          allow(parent)
            .to receive(:soonest_start)
            .and_return(soonest_date)
        end

        it 'sets the dates to provided dates' do
          instance.call(attributes: { parent: parent, start_date: Date.today + 4.days, due_date: Date.today + 5.days })

          expect(work_package.start_date).to eql(Date.today + 4.days)
          expect(work_package.due_date).to eql(Date.today + 5.days)
        end
      end

      context 'with the parent being resticted but the attributes define an earlier date' do
        let(:soonest_date) { Date.today + 3.days }

        before do
          allow(parent)
            .to receive(:soonest_start)
            .and_return(soonest_date)
        end

        # This would be invalid but the dates should be set nevertheless
        # so we can have a correct error handling.
        it 'sets the dates to provided dates' do
          instance.call(attributes: { parent: parent, start_date: Date.today + 1.days, due_date: Date.today + 2.days })

          expect(work_package.start_date).to eql(Date.today + 1.days)
          expect(work_package.due_date).to eql(Date.today + 2.days)
        end
      end
    end
  end
end