# encoding: utf-8
#
# This file is part of the lazier gem. Copyright (C) 2013 and above Shogun <shogun@cowtech.it>.
# Licensed under the MIT license, which can be found at http://www.opensource.org/licenses/mit-license.php.
#

require "spec_helper"

describe Lazier::DateTime do
  let(:random_reference) { ::DateTime.civil(1990 + rand(30), 1 + rand(10), 1 + rand(25), 1 + rand(20), 1 + rand(58), 1 + rand(58)).in_time_zone }
  let(:fixed_reference){ ::DateTime.civil(2005, 6, 7, 8, 9, 10, ::DateTime.rationalize_offset(25200)) }
  let(:reference_zone) { ::ActiveSupport::TimeZone["Mountain Time (US & Canada)"] }
  let(:zone_without_dst) { ::ActiveSupport::TimeZone["International Date Line West"] }

  before(:all) do
    Lazier.load!
    ::Lazier::Settings.instance.i18n = :en
  end

  describe ".days" do
    it "should return the list of the days of the week" do
      expect(::DateTime.days).to be_a(::Array)
      expect(::DateTime.days[3]).to eq({value: "4", label: "Wed"})
      expect(::DateTime.days(false)).to be_a(::Array)
      expect(::DateTime.days(false)[3]).to eq({value: "4", label: "Wednesday"})

      ::Lazier.settings.setup_date_names(nil, nil, 7.times.collect {|i| (i + 1).to_s * 2}, 7.times.collect {|i| (i + 1).to_s})
      expect(::DateTime.days).to be_a(::Array)
      expect(::DateTime.days[3]).to eq({value: "4", label: "4"})
      expect(::DateTime.days(false)).to be_a(::Array)
      expect(::DateTime.days(false)[3]).to eq({value: "4", label: "44"})
    end
  end

  describe ".months" do
    it "should return the list of the months of the year" do
      expect(::DateTime.months).to be_a(::Array)
      expect(::DateTime.months[6]).to eq({value: "07", label: "Jul"})
      expect(::DateTime.months(false)).to be_a(::Array)
      expect(::DateTime.months(false)[6]).to eq({value: "07", label: "July"})

      ::Lazier.settings.setup_date_names(12.times.collect {|i| (i + 1).to_s * 2}, 12.times.collect {|i| (i + 1).to_s}, nil, nil)
      expect(::DateTime.months).to be_a(::Array)
      expect(::DateTime.months[6]).to eq({value: "07", label: "7"})
      expect(::DateTime.months(false)).to be_a(::Array)
      expect(::DateTime.months(false)[6]).to eq({value: "07", label: "77"})
    end
  end

  describe ".years" do
    it "should return a range of years" do
      expect(::DateTime.years).to eq((::Date.today.year - 10..::Date.today.year + 10).to_a)
      expect(::DateTime.years(5)).to eq((::Date.today.year - 5..::Date.today.year + 5).to_a)
      expect(::DateTime.years(5, true, nil, true).collect(&:value)).to eq((::Date.today.year - 5..::Date.today.year + 5).to_a)
      expect(::DateTime.years(5, false)).to eq((::Date.today.year - 5..::Date.today.year).to_a)
      expect(::DateTime.years(5, false, 1900)).to eq((1895..1900).to_a)
    end
  end

  describe ".timezones" do
    it "should list all timezones" do
      expect(::DateTime.timezones).to eq(::ActiveSupport::TimeZone.all)
    end
  end

  describe ".list_timezones" do
    it "should forward to ActiveSupport::TimeZone" do
      expect(::ActiveSupport::TimeZone).to receive(:list_all)
      ::DateTime.list_timezones
    end
  end

  describe ".find_timezone" do
    it "should forward to ActiveSupport::TimeZone" do
      expect(::ActiveSupport::TimeZone).to receive(:find)
      ::DateTime.find_timezone(reference_zone.name)
    end
  end

  describe ".rationalize_offset" do
    it "should return the correct rational value" do
      expect(::ActiveSupport::TimeZone).to receive(:rationalize_offset)
      ::DateTime.rationalize_offset(0)
    end
  end

  describe ".parameterize_zone" do
    it "should forward to ActiveSupport::TimeZone" do
      expect(::ActiveSupport::TimeZone).to receive(:parameterize_zone)
      ::DateTime.parameterize_zone(reference_zone)
    end
  end

  describe ".unparameterize_zone" do
    it "should forward to ActiveSupport::TimeZone" do
      expect(::ActiveSupport::TimeZone).to receive(:unparameterize_zone)
      ::DateTime.unparameterize_zone(reference_zone)
    end
  end

  describe ".easter" do
    it "should compute the valid Easter day" do
      {1984 => "0422", 1995 => "0416", 2006 => "0416", 2017 => "0416"}.each do |year, date|
        expect(::DateTime.easter(year).strftime("%Y%m%d")).to eq("#{year}#{date}")
      end
    end
  end

  describe ".custom_format" do
    it "should find the format" do
      expect(::DateTime.custom_format(:ct_date)).to eq("%Y-%m-%d")
      expect(::DateTime.custom_format("ct_date")).to eq("%Y-%m-%d")

      ::Lazier.settings.setup_date_formats({ct_foo: "%ABC"})

      expect(::DateTime.custom_format(:ct_foo)).to eq("%ABC")
      expect(::DateTime.custom_format("ct_foo")).to eq("%ABC")
    end

    it "should return the key if format is not found" do
      ::DateTime.custom_format(:ct_unused) == "ct_unused"
    end
  end

  describe ".is_valid?" do
    it "should recognize a valid date" do
      expect(::DateTime.is_valid?("2012-04-05", "%F")).to be_true
      expect(::DateTime.is_valid?("2012-04-05", :ct_date)).to be_true
    end

    it "should fail if the argument or the format is not valid" do
      expect(::DateTime.is_valid?("ABC", "%F")).to be_false
      expect(::DateTime.is_valid?("2012-04-05", "%X")).to be_false
    end
  end

  describe "#utc_time" do
    it "should convert to UTC Time" do
      expect(random_reference.utc_time).to be_a(::Time)
    end
  end

  describe "#in_months" do
    it "should return the amount of months passed since the start of the reference year" do
      expect(::Date.today.in_months).to eq(::Date.today.month)
      expect(fixed_reference.in_months(2000)).to eq(66)
    end
  end

  describe "#padded_month" do
    it "should pad the month number" do
      expect(random_reference.padded_month).to eq(random_reference.month.to_s.rjust(2, "0"))
      expect(::Date.civil(2000, 8, 8).padded_month).to eq("08")
    end
  end

  describe "#lstrftime" do
    it "should return corrected formatted string" do
      expect(fixed_reference.lstrftime(:db)).to eq("db")
      expect(fixed_reference.lstrftime("%F")).to eq("2005-06-07")
      expect(fixed_reference.lstrftime(:ct_iso_8601)).to eq("2005-06-07T08:09:10+0700")

      ::Lazier.settings.setup_date_names
      ::Lazier.settings.setup_date_formats({ct_local_test: "%a %A %b %B %d %Y %H"})
      expect(fixed_reference.lstrftime(:ct_local_test)).to eq("Tue Tuesday Jun June 07 2005 08")

      ::Lazier.settings.setup_date_names(
          12.times.collect {|i| (i + 1).to_s * 2}, 12.times.collect {|i| (i + 1).to_s},
          7.times.collect {|i| (i + 1).to_s * 2}, 7.times.collect {|i| (i + 1).to_s}
      )

      expect(fixed_reference.lstrftime(:ct_local_test)).to eq("3 33 6 66 07 2005 08")
    end
  end

  describe "#local_strftime" do
    it "should retrieve the date in the current timezone" do
      ::Time.zone = ::ActiveSupport::TimeZone[0]
      ::Lazier.settings.setup_date_formats({ct_local_test: "%a %A %b %B %d %Y %H"})
      expect(fixed_reference.local_strftime(:ct_local_test)).to eq("Tue Tuesday Jun June 07 2005 01")
    end
  end

  describe "#local_lstrftime" do
    it "should retrieve the date in the current timezone" do
      ::Time.zone = ::ActiveSupport::TimeZone[0]

      ::Lazier.settings.setup_date_names
      ::Lazier.settings.setup_date_formats({ct_local_test: "%a %A %b %B %d %Y %H"})

      ::Lazier.settings.setup_date_names(
          12.times.collect {|i| (i + 1).to_s * 2}, 12.times.collect {|i| (i + 1).to_s},
          7.times.collect {|i| (i + 1).to_s * 2}, 7.times.collect {|i| (i + 1).to_s}
      )

      expect(fixed_reference.local_lstrftime(:ct_local_test)).to eq("3 33 6 66 07 2005 01")
    end
  end
end

describe Lazier::TimeZone do
  let(:reference_zone) { ::ActiveSupport::TimeZone["Mountain Time (US & Canada)"] }
  let(:reference_zone) { ::ActiveSupport::TimeZone["Mountain Time (US & Canada)"] }
  let(:zone_without_dst) { ::ActiveSupport::TimeZone["International Date Line West"] }

  before(:all) do
    ::Lazier::Settings.instance(true)
    ::Lazier::Settings.instance.i18n = :en
    ::Lazier.load!
  end

  describe ".rationalize_offset" do
    it "should return the correct rational value" do
      expect(::ActiveSupport::TimeZone.rationalize_offset(::ActiveSupport::TimeZone[4])).to eq(Rational(1, 6))
      expect(::ActiveSupport::TimeZone.rationalize_offset(-25200)).to eq(Rational(-7, 24))
    end
  end

  describe ".format_offset" do
    it "should correctly format an offset" do
      expect(::ActiveSupport::TimeZone.format_offset(-25200)).to eq("-07:00")
      expect(::ActiveSupport::TimeZone.format_offset(Rational(-4, 24), false)).to eq("-0400")
    end
  end

  describe ".parameterize_zone" do
    it "should return the parameterized version of the zone" do
      expect(::ActiveSupport::TimeZone.parameterize_zone(reference_zone.to_str)).to eq(reference_zone.to_str_parameterized)
      expect(::ActiveSupport::TimeZone.parameterize_zone(reference_zone.to_str)).to eq(reference_zone.to_str_parameterized)
      expect(::ActiveSupport::TimeZone.parameterize_zone(reference_zone.to_str, false)).to eq(reference_zone.to_str_parameterized(false))
      expect(::ActiveSupport::TimeZone.parameterize_zone("INVALID")).to eq("invalid")
    end
  end

  describe ".unparameterize_zone" do
    it "should return the parameterized version of the zone" do
      expect(::ActiveSupport::TimeZone.unparameterize_zone(reference_zone.to_str_parameterized)).to eq(reference_zone)
      expect(::ActiveSupport::TimeZone.unparameterize_zone(reference_zone.to_str_parameterized, true)).to eq(reference_zone.to_str)
      expect(::ActiveSupport::TimeZone.unparameterize_zone(reference_zone.to_str_with_dst_parameterized)).to eq(reference_zone)
      expect(::ActiveSupport::TimeZone.unparameterize_zone(reference_zone.to_str_with_dst_parameterized, true)).to eq(reference_zone.to_str_with_dst)
      expect(::ActiveSupport::TimeZone.unparameterize_zone("INVALID")).to eq(nil)
    end
  end

  describe ".find" do
    it "should find timezones" do
      expect(::ActiveSupport::TimeZone.find("(GMT-07:00) Mountain Time (US & Canada)")).to eq(reference_zone)
      expect(::ActiveSupport::TimeZone.find("(GMT-06:00) Mountain Time (US & Canada) (DST)")).to eq(reference_zone)
      expect(::ActiveSupport::TimeZone.find("(GMT-06:00) Mountain Time (US & Canada) Daylight Saving Time", "Daylight Saving Time")).to eq(reference_zone)
      expect(::ActiveSupport::TimeZone.find("INVALID", "INVALID")).to be_nil
    end
  end

  describe ".list_all" do
    it "should list all timezones" do
      expect(::ActiveSupport::TimeZone.list_all(false)).to eq(::ActiveSupport::TimeZone.all.collect(&:to_s))
      expect(::ActiveSupport::TimeZone.list_all(true)).to include("(GMT-06:00) #{reference_zone.aliases.first} (DST)")
      expect(::ActiveSupport::TimeZone.list_all(true, "Daylight Saving Time")).to include("(GMT-06:00) #{reference_zone.aliases.first} Daylight Saving Time")
    end
  end

  describe "#offset" do
    it "should correctly return zone offset" do
      expect(reference_zone.offset).to eq(reference_zone.utc_offset)
    end
  end

  describe "#current_offset" do
    it "should correctly return current zone offset" do
      expect(reference_zone.current_offset(false, ::DateTime.civil(2012, 1, 15))).to eq(reference_zone.offset)
      expect(reference_zone.current_offset(true, ::DateTime.civil(2012, 7, 15))).to eq(reference_zone.dst_offset(true))
    end
  end

  describe "#current_alias" do
    it "should correctly return current zone alias or the first one" do
      zone = ActiveSupport::TimeZone["America/Halifax"]
      expect(zone.current_alias).to eq("America/Halifax")
      allow(zone.tzinfo).to receive(:identifier).and_return("INVALID")
      expect(zone.current_alias).to eq("America/Atlantic Time (Canada)")
    end
  end

  describe "#dst_period" do
    it "should correctly return zone offset" do
      expect(reference_zone.dst_period).to be_a(::TZInfo::TimezonePeriod)
      expect(reference_zone.dst_period(1000)).to be_nil
      expect(zone_without_dst.dst_period).to be_nil
    end
  end

  describe "#uses_dst?" do
    it "should correctly detect offset usage" do
      expect(reference_zone.uses_dst?).to be_true
      expect(reference_zone.uses_dst?(::DateTime.civil(2012, 7, 15))).to be_true
      expect(reference_zone.uses_dst?(::DateTime.civil(2012, 1, 15))).to be_false
      expect(reference_zone.uses_dst?(1000)).to be_false
      expect(zone_without_dst.uses_dst?).to be_false
    end
  end

  describe "#dst_name" do
    it "should correctly get zone name with Daylight Saving Time" do
      expect(reference_zone.dst_name).to eq("Mountain Time (US & Canada) (DST)")
      expect(reference_zone.dst_name("Daylight Saving Time")).to eq("Mountain Time (US & Canada) Daylight Saving Time")
      expect(reference_zone.dst_name(nil, 1000)).to be_nil
      expect(zone_without_dst.to_str_with_dst).to be_nil
    end
  end

  describe "#dst_correction" do
    it "should correctly detect offset usage" do
      expect(reference_zone.dst_correction).to eq(3600)
      expect(reference_zone.dst_correction(true)).to eq(Rational(1, 24))
      expect(reference_zone.dst_correction(false, 1000)).to eq(0)
      expect(zone_without_dst.dst_correction).to eq(0)
    end
  end

  describe "#dst_offset" do
    it "should correctly return zone offset" do
      expect(reference_zone.dst_offset).to eq(reference_zone.dst_correction + reference_zone.utc_offset)
      expect(reference_zone.dst_offset(true)).to eq(::ActiveSupport::TimeZone.rationalize_offset(reference_zone.dst_correction + reference_zone.utc_offset))
      expect(zone_without_dst.dst_offset(false, 1000)).to eq(0)
      expect(zone_without_dst.dst_offset).to eq(0)
    end
  end

  describe "#to_str_with_dst" do
    it "should correctly format zone with Daylight Saving Time" do
      expect(reference_zone.to_str_with_dst).to eq("(GMT-06:00) #{reference_zone.aliases.first} (DST)")
      expect(reference_zone.to_str_with_dst("Daylight Saving Time")).to eq("(GMT-06:00) #{reference_zone.aliases.first} Daylight Saving Time")
      expect(reference_zone.to_str_with_dst("Daylight Saving Time", nil, "NAME")).to eq("(GMT-06:00) NAME Daylight Saving Time")
      expect(reference_zone.to_str_with_dst(nil, 1000)).to be_nil
      expect(zone_without_dst.to_str_with_dst).to be_nil
    end
  end

  describe "#to_str_parameterized" do
    it "should correctly format (parameterized) zone" do
      expect(reference_zone.to_str_parameterized).to eq(::ActiveSupport::TimeZone.parameterize_zone(reference_zone.to_str))
      expect(reference_zone.to_str_parameterized(false)).to eq(::ActiveSupport::TimeZone.parameterize_zone(reference_zone.to_str, false))
      expect(reference_zone.to_str_parameterized(false, "NAME SPACE")).to eq(::ActiveSupport::TimeZone.parameterize_zone("NAME SPACE", false))
    end
  end

  describe "#to_str_with_dst_parameterized" do
    it "should correctly format (parameterized) zone with Daylight Saving Time" do
      expect(reference_zone.to_str_with_dst_parameterized).to eq("-0600@america-denver-dst")
      expect(reference_zone.to_str_with_dst_parameterized("Daylight Saving Time")).to eq("-0600@america-denver-daylight-saving-time")
      expect(reference_zone.to_str_with_dst_parameterized(nil, 1000)).to be_nil
      expect(reference_zone.to_str_with_dst_parameterized("Daylight Saving Time", nil, "NAME SPACE")).to eq("-0600@name-space-daylight-saving-time")
      expect(zone_without_dst.to_str_with_dst_parameterized).to be_nil
    end
  end
end