require 'spec_helper'

describe Spree::Order do
  describe "setting variant attributes" do
    it "sets attributes on line items for variants" do
      d = create(:distributor_enterprise)
      p = create(:product, :distributors => [d])

      subject.distributor = d
      subject.save!

      subject.add_variant(p.master, 1, 3)

      li = Spree::LineItem.last
      li.max_quantity.should == 3
    end

    it "does nothing when the line item is not found" do
      p = create(:simple_product)
      subject.set_variant_attributes(p.master, {'max_quantity' => '3'}.with_indifferent_access)
    end
  end

  describe "Payment methods" do
    let(:order_distributor) { create(:distributor_enterprise) }
    let(:some_other_distributor) { create(:distributor_enterprise) }
    let(:order) { build(:order, distributor: order_distributor) }
    let(:pm1) { create(:payment_method, distributors: [order_distributor])}
    let(:pm2) { create(:payment_method, distributors: [some_other_distributor])}

    it "finds the correct payment methods" do
      Spree::PaymentMethod.stub(:available).and_return [pm1, pm2]
      order.available_payment_methods.include?(pm2).should == false
      order.available_payment_methods.include?(pm1).should == true
    end

  end

  describe "updating the distribution charge" do
    let(:order) { build(:order) }

    it "clears all enterprise fee adjustments on the order" do
      EnterpriseFee.should_receive(:clear_all_adjustments_on_order).with(subject)
      subject.update_distribution_charge!
    end

    it "ensures the correct adjustment(s) are created for the product distribution" do
      EnterpriseFee.stub(:clear_all_adjustments_on_order)
      line_item = double(:line_item)
      subject.stub(:line_items) { [line_item] }
      subject.stub(:provided_by_order_cycle?) { false }

      product_distribution = double(:product_distribution)
      product_distribution.should_receive(:create_adjustment_for).with(line_item)
      subject.stub(:product_distribution_for) { product_distribution }

      subject.update_distribution_charge!
    end

    it "skips line items that don't have a product distribution" do
      EnterpriseFee.stub(:clear_all_adjustments_on_order)
      line_item = double(:line_item)
      subject.stub(:line_items) { [line_item] }
      subject.stub(:provided_by_order_cycle?) { false }

      subject.stub(:product_distribution_for) { nil }

      subject.update_distribution_charge!
    end

    it "skips order cycle per-order adjustments for orders that don't have an order cycle" do
      EnterpriseFee.stub(:clear_all_adjustments_on_order)
      subject.stub(:line_items) { [] }

      subject.stub(:order_cycle) { nil }

      subject.update_distribution_charge!
    end

    it "ensures the correct adjustment(s) are created for order cycles" do
      EnterpriseFee.stub(:clear_all_adjustments_on_order)
      line_item = double(:line_item)
      subject.stub(:line_items) { [line_item] }
      subject.stub(:provided_by_order_cycle?) { true }

      order_cycle = double(:order_cycle)
      OpenFoodNetwork::EnterpriseFeeCalculator.any_instance.
        should_receive(:create_line_item_adjustments_for).
        with(line_item)
      OpenFoodNetwork::EnterpriseFeeCalculator.any_instance.stub(:create_order_adjustments_for)
      subject.stub(:order_cycle) { order_cycle }

      subject.update_distribution_charge!
    end

    it "ensures the correct per-order adjustment(s) are created for order cycles" do
      EnterpriseFee.stub(:clear_all_adjustments_on_order)
      subject.stub(:line_items) { [] }

      order_cycle = double(:order_cycle)
      OpenFoodNetwork::EnterpriseFeeCalculator.any_instance.
        should_receive(:create_order_adjustments_for).
        with(subject)

      subject.stub(:order_cycle) { order_cycle }

      subject.update_distribution_charge!
    end

    describe "looking up whether a line item can be provided by an order cycle" do
      it "returns true when the variant is provided" do
        v = double(:variant)
        line_item = double(:line_item, variant: v)
        order_cycle = double(:order_cycle, variants: [v])
        subject.stub(:order_cycle) { order_cycle }

        subject.send(:provided_by_order_cycle?, line_item).should be_true
      end

      it "returns false otherwise" do
        v = double(:variant)
        line_item = double(:line_item, variant: v)
        order_cycle = double(:order_cycle, variants: [])
        subject.stub(:order_cycle) { order_cycle }

        subject.send(:provided_by_order_cycle?, line_item).should be_false
      end

      it "returns false when there is no order cycle" do
        v = double(:variant)
        line_item = double(:line_item, variant: v)
        subject.stub(:order_cycle) { nil }

        subject.send(:provided_by_order_cycle?, line_item).should be_false
      end
    end

    it "looks up product distribution enterprise fees for a line item" do
      product = double(:product)
      variant = double(:variant, product: product)
      line_item = double(:line_item, variant: variant)

      product_distribution = double(:product_distribution)
      product.should_receive(:product_distribution_for).with(subject.distributor) { product_distribution }

      subject.send(:product_distribution_for, line_item).should == product_distribution
    end
  end

  describe "getting the admin and handling charge" do
    let(:o) { create(:order) }
    let(:li) { create(:line_item, order: o) }

    it "returns the sum of eligible enterprise fee adjustments" do
      ef = create(:enterprise_fee, calculator: Spree::Calculator::FlatRate.new )
      ef.calculator.set_preference :amount, 123.45
      a = ef.create_locked_adjustment("adjustment", o, o, true)

      o.admin_and_handling_total.should == 123.45
    end

    it "does not include ineligible adjustments" do
      ef = create(:enterprise_fee, calculator: Spree::Calculator::FlatRate.new )
      ef.calculator.set_preference :amount, 123.45
      a = ef.create_locked_adjustment("adjustment", o, o, true)

      a.update_column :eligible, false

      o.admin_and_handling_total.should == 0
    end

    it "does not include adjustments that do not originate from enterprise fees" do
      sm = create(:shipping_method, calculator: Spree::Calculator::FlatRate.new )
      sm.calculator.set_preference :amount, 123.45
      sm.create_adjustment("adjustment", o, o, true)

      o.admin_and_handling_total.should == 0
    end

    it "does not include adjustments whose source is a line item" do
      ef = create(:enterprise_fee, calculator: Spree::Calculator::PerItem.new )
      ef.calculator.set_preference :amount, 123.45
      ef.create_adjustment("adjustment", li.order, li, true)

      o.admin_and_handling_total.should == 0
    end
  end

  describe "an order without shipping method" do
    let(:order)           { create(:order) }

    it "cannot be shipped" do
      order.ready_to_ship?.should == false
    end
  end

  describe "an unpaid order with a shipment" do
    let(:order)           { create(:order, shipping_method: shipping_method) }
    let(:shipping_method) { create(:shipping_method) }

    before do
      order.create_shipment!
      order.reload
      order.state = 'complete'
      order.shipment.update!(order)
    end

    it "cannot be shipped" do
      order.ready_to_ship?.should == false
    end
  end

  describe "a paid order without a shipment" do
    let(:order)           { create(:order) }

    before do
      order.payment_state = 'paid'
      order.state = 'complete'
    end

    it "cannot be shipped" do
      order.ready_to_ship?.should == false
    end
  end

  describe "a paid order with a shipment" do
    let(:order)           { create(:order, shipping_method: shipping_method) }
    let(:shipping_method) { create(:shipping_method) }

    before do
      order.create_shipment!
      order.payment_state = 'paid'
      order.state = 'complete'
      order.shipment.update!(order)
    end

    it "can be shipped" do
      order.ready_to_ship?.should == true
    end
  end

  describe "getting the shipping tax" do
    let(:order)           { create(:order, shipping_method: shipping_method) }
    let(:shipping_method) { create(:shipping_method, calculator: Spree::Calculator::FlatRate.new(preferred_amount: 50.0)) }

    context "with a taxed shipment" do
      before do
        Spree::Config.shipment_inc_vat = true
        Spree::Config.shipping_tax_rate = 0.25
        order.create_shipment!
      end

      it "returns the shipping tax" do
        order.shipping_tax.should == 10
      end
    end

    it "returns zero when the order has not been shipped" do
      order.shipping_tax.should == 0
    end
  end

  describe "getting the enterprise fee tax" do
    let!(:order) { create(:order) }
    let(:enterprise_fee1) { create(:enterprise_fee) }
    let(:enterprise_fee2) { create(:enterprise_fee) }
    let!(:adjustment1) { create(:adjustment, adjustable: order, originator: enterprise_fee1, label: "EF 1", amount: 123, included_tax: 10.00) }
    let!(:adjustment2) { create(:adjustment, adjustable: order, originator: enterprise_fee2, label: "EF 2", amount: 123, included_tax: 2.00) }

    it "returns a sum of the tax included in all enterprise fees" do
      order.reload.enterprise_fee_tax.should == 12
    end
  end

  describe "getting the total tax" do
    let(:order)           { create(:order, shipping_method: shipping_method) }
    let(:shipping_method) { create(:shipping_method, calculator: Spree::Calculator::FlatRate.new(preferred_amount: 50.0)) }
    let(:enterprise_fee)  { create(:enterprise_fee) }
    let!(:adjustment)     { create(:adjustment, adjustable: order, originator: enterprise_fee, label: "EF", amount: 123, included_tax: 2) }

    before do
      Spree::Config.shipment_inc_vat = true
      Spree::Config.shipping_tax_rate = 0.25
      order.create_shipment!
      order.reload
    end

    it "returns a sum of all tax on the order" do
      order.total_tax.should == 12
    end
  end

  describe "setting the distributor" do
    it "sets the distributor when no order cycle is set" do
      d = create(:distributor_enterprise)
      subject.set_distributor! d
      subject.distributor.should == d
    end

    it "keeps the order cycle when it is available at the new distributor" do
      d = create(:distributor_enterprise)
      oc = create(:simple_order_cycle)
      create(:exchange, order_cycle: oc, sender: oc.coordinator, receiver: d, incoming: false)

      subject.order_cycle = oc
      subject.set_distributor! d

      subject.distributor.should == d
      subject.order_cycle.should == oc
    end

    it "clears the order cycle if it is not available at that distributor" do
      d = create(:distributor_enterprise)
      oc = create(:simple_order_cycle)

      subject.order_cycle = oc
      subject.set_distributor! d

      subject.distributor.should == d
      subject.order_cycle.should be_nil
    end

    it "clears the distributor when setting to nil" do
      d = create(:distributor_enterprise)
      subject.set_distributor! d
      subject.set_distributor! nil

      subject.distributor.should be_nil
    end
  end

  describe "emptying the order" do
    it "removes shipping method" do
      subject.shipping_method = create(:shipping_method)
      subject.save!
      subject.empty!
      subject.shipping_method.should == nil
    end

    it "removes payments" do
      subject.payments << create(:payment)
      subject.save!
      subject.empty!
      subject.payments.should == []
    end
  end

  describe "setting the order cycle" do
    let(:oc) { create(:simple_order_cycle) }

    it "empties the cart when changing the order cycle" do
      subject.should_receive(:empty!)
      subject.set_order_cycle! oc
    end

    it "doesn't empty the cart if the order cycle is not different" do
      subject.should_not_receive(:empty!)
      subject.set_order_cycle! subject.order_cycle
    end

    it "sets the order cycle when no distributor is set" do
      subject.set_order_cycle! oc
      subject.order_cycle.should == oc
    end

    it "keeps the distributor when it is available in the new order cycle" do
      d = create(:distributor_enterprise)
      create(:exchange, order_cycle: oc, sender: oc.coordinator, receiver: d, incoming: false)

      subject.distributor = d
      subject.set_order_cycle! oc

      subject.order_cycle.should == oc
      subject.distributor.should == d
    end

    it "clears the distributor if it is not available at that order cycle" do
      d = create(:distributor_enterprise)

      subject.distributor = d
      subject.set_order_cycle! oc

      subject.order_cycle.should == oc
      subject.distributor.should be_nil
    end

    it "clears the order cycle when setting to nil" do
      d = create(:distributor_enterprise)
      subject.set_order_cycle! oc
      subject.distributor = d

      subject.set_order_cycle! nil

      subject.order_cycle.should be_nil
      subject.distributor.should == d
    end
  end

  context "validating distributor changes" do
    it "checks that a distributor is available when changing" do
      set_feature_toggle :order_cycles, false
      order_enterprise = FactoryGirl.create(:enterprise, id: 1, :name => "Order Enterprise")
      subject.distributor = order_enterprise
      product1 = FactoryGirl.create(:product)
      product2 = FactoryGirl.create(:product)
      product3 = FactoryGirl.create(:product)
      variant11 = FactoryGirl.create(:variant, product: product1)
      variant12 = FactoryGirl.create(:variant, product: product1)
      variant21 = FactoryGirl.create(:variant, product: product2)
      variant31 = FactoryGirl.create(:variant, product: product3)
      variant32 = FactoryGirl.create(:variant, product: product3)

      # Product Distributions
      # Order Enterprise sells product 1 and product 3
      FactoryGirl.create(:product_distribution, product: product1, distributor: order_enterprise)
      FactoryGirl.create(:product_distribution, product: product3, distributor: order_enterprise)

      # Build the current order
      line_item1 = FactoryGirl.create(:line_item, order: subject, variant: variant11)
      line_item2 = FactoryGirl.create(:line_item, order: subject, variant: variant12)
      line_item3 = FactoryGirl.create(:line_item, order: subject, variant: variant31)
      subject.reload
      subject.line_items = [line_item1,line_item2,line_item3]

      test_enterprise = FactoryGirl.create(:enterprise, id: 2, :name => "Test Enterprise")
      # Test Enterprise sells only product 1
      FactoryGirl.create(:product_distribution, product: product1, distributor: test_enterprise)

      subject.distributor = test_enterprise
      subject.should_not be_valid
      subject.errors.messages.should == {:distributor_id => ["cannot supply the products in your cart"]}
    end
  end

  describe "scopes" do
    describe "not_state" do
      it "finds only orders not in specified state" do
        o = FactoryGirl.create(:completed_order_with_totals)
        o.cancel!
        Spree::Order.not_state(:canceled).should_not include o
      end
    end

    describe "with payment method names" do
      let!(:o1) { create(:order) }
      let!(:o2) { create(:order) }
      let!(:pm1) { create(:payment_method, name: 'foo') }
      let!(:pm2) { create(:payment_method, name: 'bar') }
      let!(:p1) { create(:payment, order: o1, payment_method: pm1) }
      let!(:p2) { create(:payment, order: o2, payment_method: pm2) }

      it "returns the order with payment method name when one specified" do
        Spree::Order.with_payment_method_name('foo').should == [o1]
      end

      it "returns the orders with payment method name when many specified" do
        Spree::Order.with_payment_method_name(['foo', 'bar']).should include o1, o2
      end

      it "doesn't return rows with a different payment method name" do
        Spree::Order.with_payment_method_name('foobar').should_not include o1
        Spree::Order.with_payment_method_name('foobar').should_not include o2
      end

      it "doesn't return duplicate rows" do
        p2 = FactoryGirl.create(:payment, order: o1, payment_method: pm1)
        Spree::Order.with_payment_method_name('foo').length.should == 1
      end
    end
  end

  describe "shipping address prepopulation" do
    let(:distributor) { create(:distributor_enterprise) }
    let(:order) { build(:order, distributor: distributor) }

    before do
      order.ship_address = distributor.address.clone
      order.save # just to trigger our autopopulate the first time ;)
    end

    it "autopopulates the shipping address on save" do
      order.should_receive(:shipping_address_from_distributor).and_return true
      order.save
    end

    it "populates the shipping address if the shipping method doesn't require a delivery address" do
      order.shipping_method = create(:shipping_method, require_ship_address: false)
      order.ship_address.update_attribute :firstname, "will"
      order.save
      order.ship_address.firstname.should == distributor.address.firstname
    end

    it "does not populate the shipping address if the shipping method requires a delivery address" do
      order.shipping_method = create(:shipping_method, require_ship_address: true)
      order.ship_address.update_attribute :firstname, "will"
      order.save
      order.ship_address.firstname.should == "will"
    end

    it "doesn't attempt to create a shipment if the order is not yet valid" do
      order.shipping_method = create(:shipping_method, require_ship_address: false)
      #Shipment.should_not_r
      order.create_shipment!
    end
  end

  describe "sending confirmation emails" do
    it "sends confirmation emails" do
      expect do
        create(:order).deliver_order_confirmation_email
      end.to enqueue_job ConfirmOrderJob
    end
  end

  describe "associating a customer" do
    let(:user) { create(:user) }
    let(:distributor) { create(:distributor_enterprise) }

    context "when a user has been set on the order" do
      let!(:order) { create(:order, distributor: distributor, user: user) }
      context "and a customer for order.distributor and order.user.email already exists" do
        let!(:customer) { create(:customer, enterprise: distributor, email: user.email) }
        it "associates the order with the existing customer" do
          order.send(:associate_customer)
          expect(order.customer).to eq customer
        end
      end
      context "and a customer for order.distributor and order.user.email does not alread exist" do
        let!(:customer) { create(:customer, enterprise: distributor, email: 'some-other-email@email.com') }
        it "creates a new customer" do
          expect{order.send(:associate_customer)}.to change{Customer.count}.by 1
        end
      end
    end

    context "when a user has not been set on the order" do
      let!(:order) { create(:order, distributor: distributor, user: nil) }
      context "and a customer for order.distributor and order.email already exists" do
        let!(:customer) { create(:customer, enterprise: distributor, email: order.email) }
        it "creates a new customer" do
          order.send(:associate_customer)
          expect(order.customer).to eq customer
        end
      end
      context "and a customer for order.distributor and order.email does not alread exist" do
        let!(:customer) { create(:customer, enterprise: distributor, email: 'some-other-email@email.com') }
        it "creates a new customer" do
          expect{order.send(:associate_customer)}.to change{Customer.count}.by 1
        end
      end
    end
  end
end