<?php
/* Copyright (C) 2010 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2023 Alexandre Janniaux   <alexandre.janniaux@gmail.com>
 *
 * 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 3 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, see <https://www.gnu.org/licenses/>.
 * or see https://www.gnu.org/
 */

/**
 *      \file       test/phpunit/DateLibTest.php
 *		\ingroup    test
 *      \brief      PHPUnit test
 *		\remarks	To run this script as CLI:  phpunit filename.php
 */

global $conf,$user,$langs,$db;
//define('TEST_DB_FORCE_TYPE','mysql');	// This is to force using mysql driver
//require_once 'PHPUnit/Autoload.php';
require_once dirname(__FILE__).'/../../htdocs/master.inc.php';
require_once dirname(__FILE__).'/../../htdocs/core/lib/date.lib.php';
require_once dirname(__FILE__).'/CommonClassTest.class.php';

if (empty($user->id)) {
	print "Load permissions for admin user nb 1\n";
	$user->fetch(1);
	$user->getrights();
}
$conf->global->MAIN_DISABLE_ALL_MAILS = 1;

print "\n".$langs->trans("CurrentTimeZone").' : '.getServerTimeZoneString();
print "\n".$langs->trans("CurrentHour").' : '.dol_print_date(dol_now('gmt'), 'dayhour', 'tzserver');
print "\n";


/**
 * Class for PHPUnit tests
 *
 * @backupGlobals disabled
 * @backupStaticAttributes enabled
 * @remarks	backupGlobals must be disabled to have db,conf,user and lang not erased.
 */
class DateLibTest extends CommonClassTest
{
	/**
	 * testNumBetweenDay
	 *
	 * @return	void
	 */
	public function testNumBetweenDay()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		// With same hours
		$date1 = dol_mktime(0, 0, 0, 1, 1, 2012, 'gmt');
		$date2 = dol_mktime(0, 0, 0, 1, 2, 2012, 'gmt');

		$result = num_between_day($date1, $date2, 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result);

		$result = num_between_day($date1, $date2, 0);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result);

		// With different hours
		$date1 = dol_mktime(0, 0, 0, 1, 1, 2012, 'gmt');
		$date2 = dol_mktime(12, 0, 0, 1, 2, 2012, 'gmt');

		$result = num_between_day($date1, $date2, 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result);

		$result = num_between_day($date1, $date2, 0);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result);

		// With different date before and after sunlight hour (day to change sunlight hour is 2014-03-30)
		$date1 = dol_mktime(0, 0, 0, 3, 28, 2014, true);
		$date2 = dol_mktime(0, 0, 0, 3, 31, 2014, true);

		$result = num_between_day($date1, $date2, 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(4, $result);

		$result = num_between_day($date1, $date2, 0);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(3, $result);

		return $result;
	}

	/**
	 * testNumPublicHoliday
	 *
	 * @return	void
	 */
	public function testNumPublicHoliday()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		// With same hours - Tuesday/Wednesday jan 2013
		$date1 = dol_mktime(0, 0, 0, 1, 1, 2013, 'gmt');
		$date2 = dol_mktime(0, 0, 0, 1, 2, 2013, 'gmt');
		$date3 = dol_mktime(0, 0, 0, 1, 3, 2013, 'gmt');

		$result = num_public_holiday($date1, $date2, 'FR', 1);
		print __METHOD__." for Tuesday 1 - Wednesday 2 jan 2013 for FR result=".$result."\n";
		$this->assertEquals(1, $result, 'NumPublicHoliday for Tuesday 1 - Wednesday 2 jan 2013 for FR');   // 1 closed days (country france)

		$result = num_public_holiday($date1, $date2, 'XX', 1);
		print __METHOD__." for Tuesday 1 - Wednesday 2 jan 2013 for XX result=".$result."\n";
		$this->assertEquals(1, $result, 'NumPublicHoliday for Tuesday 1 - Wednesday 2 jan 2013 for XX');   // 1 closed days (country unknown)

		print '----'."\n";
		$result = num_public_holiday($date2, $date3, 'FR', 1);
		print __METHOD__." for Wednesday 2 - Thursday 3 jan 2013 for FR result=".$result."\n";
		$this->assertEquals(0, $result, 'NumPublicHoliday for Wednesday 2 - Thursday 3 jan 2013 for FR');   // no closed days

		// Check with easter monday
		$date1 = dol_mktime(0, 0, 0, 4, 21, 2019, 'gmt');
		$date2 = dol_mktime(0, 0, 0, 4, 23, 2019, 'gmt');

		$result = num_public_holiday($date1, $date2, 'XX', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumPublicHoliday including eastermonday for XX');   // 2 opened day, 1 closed days (sunday)

		$result = num_public_holiday($date1, $date2, 'FR', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumPublicHoliday including eastermonday for FR');   // 1 opened day, 2 closed days (sunday + easter monday)

		// Check for sunday/saturday - Friday 4 - Sunday 6 jan 2013
		$date1 = dol_mktime(0, 0, 0, 1, 4, 2013, 'gmt');
		$date2 = dol_mktime(0, 0, 0, 1, 6, 2013, 'gmt');

		$result = num_public_holiday($date1, $date2, 'FR', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumPublicHoliday for FR');   // 1 opened day, 2 closed days

		$result = num_public_holiday($date1, $date2, 'FR', 1, 1, 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumPublicHoliday for FR');   // 1 opened day, 2 closed days

		$result = num_public_holiday($date1, $date2, 'FR', 1, 1, 0);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumPublicHoliday for FR');   // 2 opened day, 1 closed days

		$result = num_public_holiday($date1, $date2, 'FR', 1, 0, 0);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(0, $result, 'NumPublicHoliday for FR');   // 3 opened day, 0 closed days

		$result = num_public_holiday($date1, $date2, 'XX', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumPublicHoliday for XX');   // 1 opened day, 2 closed days (even if country unknown)
	}

	/**
	 * testNumOpenDay
	 *
	 * @return	void
	 */
	public function testNumOpenDay()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		// With same hours - Tuesday/Wednesday jan 2013
		$date1 = dol_mktime(0, 0, 0, 1, 1, 2013, 'gmt');	// tuesday
		$date2 = dol_mktime(0, 0, 0, 1, 2, 2013, 'gmt');	// wednesday
		$date3 = dol_mktime(0, 0, 0, 1, 3, 2013, 'gmt');	// thursday

		$result = num_open_day($date1, $date2, 0, 1, 0, 'FR');
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumOpenDay Tuesday 1 - Wednesday 2 jan 2013 for FR');   // 1 opened days (country france)

		$result = num_open_day($date1, $date2, 0, 1, 0, 'XX');
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumOpenDay Tuesday 1 - Wednesday 2 jan 2013 for XX');   // 1 opened days (country unknown)

		$result = num_open_day($date2, $date3, 0, 1, 0, 'FR');
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumOpenDay Wednesday 2 - Thursday 3 jan 2013 for FR');   // 2 opened days

		// With same hours - Friday/Sunday jan 2013
		$date1 = dol_mktime(0, 0, 0, 1, 4, 2013, 'gmt');	// friday
		$date2 = dol_mktime(0, 0, 0, 1, 6, 2013, 'gmt');	// sunday

		$result = num_open_day($date1, $date2, 0, 1, 0, 'FR');
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumOpenDay for FR');   // 1 opened day, 2 closed

		$result = num_open_day($date1, $date2, 'XX', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(1, $result, 'NumOpenDay for XX');   // 1 opened day, 2 closes (even if country unknown)

		// Test option MAIN_NON_WORKING_DAYS_INCLUDE_SATURDAY and MAIN_NON_WORKING_DAYS_INCLUDE_SUNDAY
		$conf->global->MAIN_NON_WORKING_DAYS_INCLUDE_SATURDAY = 0;
		$result = num_open_day($date1, $date2, 0, 1, 0, 'FR');
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(2, $result, 'NumOpenDay for FR when saturday is a working day');   //2 opened day, 1 closed

		$conf->global->MAIN_NON_WORKING_DAYS_INCLUDE_SUNDAY = 0;
		$result = num_open_day($date1, $date2, 'XX', 1);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(3, $result, 'NumOpenDay for XX when saturday + sunday are working days');   // 3 opened day, 0 closes (even if country unknown)
	}

	/**
	 * testConvertTime2Seconds
	 *
	 * @return	void
	 */
	public function testConvertTime2Seconds()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		$result = convertTime2Seconds(1, 1, 2);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(3662, $result);

		return $result;
	}

	/**
	 * testConvertSecondToTime
	 *
	 * @return void
	 */
	public function testConvertSecondToTime()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		$result = convertSecondToTime(0, 'all', 86400);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('0', $result);

		$result = convertSecondToTime(86400, 'all', 86400);
		print __METHOD__." result=".$result."\n";
		$this->assertSame('1 '.$langs->trans("d"), $result);

		return $result;
	}

	/**
	 * testDolPrintDate
	 *
	 * @return void
	 */
	public function testDolPrintDate()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		// Check %Y-%m-%d %H:%M:%S format
		$result = dol_print_date('1970-01-01', '%Y-%m-%d %H:%M:%S', true);	// A case for compatibility check
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1970-01-01 00:00:00', $result);


		// Check %Y-%m-%d %H:%M:%S format
		$result = dol_print_date(0, '%Y-%m-%d %H:%M:%S', true);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1970-01-01 00:00:00', $result);

		// Same with T and Z
		$result = dol_print_date(0, '%Y-%m-%dT%H:%M:%SZ', true);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1970-01-01T00:00:00Z', $result);

		// Check %Y-%m-%d %H:%M:%S format
		$result = dol_print_date(16725225600, '%Y-%m-%d %H:%M:%S', true);	// http://www.epochconverter.com/
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('2500-01-01 00:00:00', $result);

		// Check %Y-%m-%d %H:%M:%S format
		$result = dol_print_date(-1830384000, '%Y-%m-%d %H:%M:%S', true);	// http://www.epochconverter.com/
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1912-01-01 00:00:00', $result);	// dol_print_date use TZ (good) but epoch converter does not use it.

		// Check %Y-%m-%d %H:%M:%S format
		$result = dol_print_date(-11676096000, '%Y-%m-%d %H:%M:%S', true);	// http://www.epochconverter.com/
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1600-01-01 00:00:00', $result);

		// test with negative timezone
		$result = dol_print_date(-1, '%Y-%m-%d %H:%M:%S', true);	// http://www.epochconverter.com/
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('1969-12-31 23:59:59', $result);

		// Check dayhour format for fr_FR
		$outputlangs = new Translate('', $conf);
		$outputlangs->setDefaultLang('fr_FR');
		$outputlangs->load("main");

		$result = dol_print_date(0 + 24 * 3600, 'dayhour', true, $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('02/01/1970 00:00', $result);

		// Check %a and %b format for fr_FR
		$result = dol_print_date(0, '%a %b %B', true, $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('Jeu Jan. Janvier', $result);


		$result = dol_print_date(1619388000, '%Y-%m-%d %a', 'gmt', $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('2021-04-25 Dim', $result);

		/* This test is disabled because result depends on TZ of server
		$result=dol_print_date(1619388000, '%Y-%m-%d %a', 'tzserver', $outputlangs);	// If TZ is +2, then result will be Lun for 1619388000
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('2021-04-26 Lun', $result);
		*/

		// Check day format for en_US
		$outputlangs = new Translate('', $conf);
		$outputlangs->setDefaultLang('en_US');
		$outputlangs->load("main");

		$result = dol_print_date(0 + 24 * 3600, 'day', true, $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('01/02/1970', $result);

		// Check %a and %b format for en_US
		$result = dol_print_date(0, '%a %b %B', true, $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('Thu Jan January', $result);

		return $result;
	}

	/**
	 * testDolTimePlusDuree
	 *
	 * @return int
	 */
	public function testDolTimePlusDuree()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		// Check dayhour format for fr_FR
		$outputlangs = new Translate('', $conf);
		$outputlangs->setDefaultLang('fr_FR');
		$outputlangs->load("main");

		$result = dol_print_date(dol_time_plus_duree(dol_time_plus_duree(dol_time_plus_duree(0, 1, 'm'), 1, 'y'), 1, 'd'), 'dayhour', true, $outputlangs);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals('02/02/1971 00:00', $result);

		return $result;
	}

	/**
	 * testDolStringToTime
	 *
	 * @return int
	 */
	public function testDolStringToTime()
	{
		global $conf,$user,$langs,$db;
		$conf = $this->savconf;
		$user = $this->savuser;
		$langs = $this->savlangs;
		$db = $this->savdb;

		$stime = '19700102';
		$result = dol_stringtotime($stime);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(86400, $result);

		$stime = '1970-01-01T02:00:00Z';
		$result = dol_stringtotime($stime);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(7200, $result);

		$stime = '1970-01-01 02:00:00';
		$result = dol_stringtotime($stime);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(7200, $result);

		$stime = '19700101T020000Z';
		$result = dol_stringtotime($stime);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(7200, $result);

		$stime = '19700101020000';
		$result = dol_stringtotime($stime);
		print __METHOD__." result=".$result."\n";
		$this->assertEquals(7200, $result);

		return $result;
	}

	/**
	 * testDolGetFirstDayWeek
	 *
	 * @return int
	 */
	public function testDolGetFirstDayWeek()
	{
		global $conf;

		$day = 3;
		$month = 2;
		$year = 2015;
		$conf->global->MAIN_START_WEEK = 1;	// start on monday
		$prev = dol_get_first_day_week($day, $month, $year);
		$this->assertEquals(2, (int) $prev['first_day']);		// monday for month 2, year 2014 is the 2

		$day = 3;
		$month = 2;
		$year = 2015;
		$conf->global->MAIN_START_WEEK = 0;	// start on sunday
		$prev = dol_get_first_day_week($day, $month, $year);
		$this->assertEquals(1, (int) $prev['first_day']);		// sunday for month 2, year 2015 is the 1st

		return 1;
	}


	/**
	 * testDolGetFirstHour
	 *
	 * @return int
	 */
	public function testDolGetFirstHour()
	{
		global $conf;

		$now = 1800 + (24 * 3600 * 10);	// The 11th of january 1970 at 0:30 in UTC
		$result = dol_get_first_hour($now, 'gmt');
		print __METHOD__." now = ".$now.", dol_print_date(now, 'dayhourrfc', 'gmt') = ".dol_print_date($now, 'dayhourrfc', 'gmt').", result = ".$result.", dol_print_date(result, 'dayhourrfc', 'gmt') = ".dol_print_date($result, 'dayhourrfc', 'gmt')."\n";
		$this->assertEquals('1970-01-11T00:00:00Z', dol_print_date($result, 'dayhourrfc', 'gmt'));		// monday for month 2, year 2014 is the 2

		$now = 23.5 * 3600 + (24 * 3600 * 10);	// The 11th of january 1970 at 23:30 in UTC
		$result = dol_get_first_hour($now, 'gmt');
		print __METHOD__." now = ".$now.", dol_print_date(now, 'dayhourrfc', 'gmt') = ".dol_print_date($now, 'dayhourrfc', 'gmt').", result = ".$result.", dol_print_date(result, 'dayhourrfc', 'gmt') = ".dol_print_date($result, 'dayhourrfc', 'gmt')."\n";
		$this->assertEquals('1970-01-11T00:00:00Z', dol_print_date($result, 'dayhourrfc', 'gmt'));		// monday for month 2, year 2014 is the 2

		return 1;
	}

	/**
	 * testDolSqlDateFilter
	 *
	 * @return int
	 */
	public function testDolSqlDateFilter()
	{
		global $conf;

		$result = dolSqlDateFilter('field1', 0, 0, 1970, 0);
		print __METHOD__." result = ".$result."\n";
		$this->assertEquals(" AND field1 BETWEEN '1970-01-01 00:00:00' AND '1970-12-31 23:59:59'", $result, 'Test dolSqlDateFilter 1');

		/* If server/company is in TZ America/Bahia, and we need range with a date set in GMT
		$result = dolSqlDateFilter('field1', 0, 0, 1970, 0, 'gmt');
		print __METHOD__." result = ".$result."\n";
		$this->assertEquals(" AND field1 BETWEEN '1969-12-31 21:00:00' AND '1970-12-31 20:59:59'", $result, 'Test dolSqlDateFilter 2');
		*/

		return 1;
	}
}