352 lines
13 KiB
PHP
352 lines
13 KiB
PHP
|
<?php
|
||
|
|
/**
|
||
|
|
* iCalcreator, the PHP class package managing iCal (rfc2445/rfc5445) calendar information.
|
||
|
|
*
|
||
|
|
* This file is a part of iCalcreator.
|
||
|
|
*
|
||
|
|
* @author Kjell-Inge Gustafsson, kigkonsult <ical@kigkonsult.se>
|
||
|
|
* @copyright 2007-2022 Kjell-Inge Gustafsson, kigkonsult, All rights reserved
|
||
|
|
* @link https://kigkonsult.se
|
||
|
|
* @license Subject matter of licence is the software iCalcreator.
|
||
|
|
* The above copyright, link, package and version notices,
|
||
|
|
* this licence notice and the invariant [rfc5545] PRODID result use
|
||
|
|
* as implemented and invoked in iCalcreator shall be included in
|
||
|
|
* all copies or substantial portions of the iCalcreator.
|
||
|
|
*
|
||
|
|
* iCalcreator is free software: you can redistribute it and/or modify
|
||
|
|
* it under the terms of the GNU Lesser General Public License as
|
||
|
|
* published by the Free Software Foundation, either version 3 of
|
||
|
|
* the License, or (at your option) any later version.
|
||
|
|
*
|
||
|
|
* iCalcreator 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 Lesser General Public License for more details.
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU Lesser General Public License
|
||
|
|
* along with iCalcreator. If not, see <https://www.gnu.org/licenses/>.
|
||
|
|
*/
|
||
|
|
namespace Kigkonsult\Icalcreator;
|
||
|
|
|
||
|
|
use Kigkonsult\Icalcreator\Util\DateTimeFactory;
|
||
|
|
use Kigkonsult\Icalcreator\Util\RecurFactory;
|
||
|
|
use Kigkonsult\Icalcreator\Util\RecurFactory2;
|
||
|
|
use DateTime;
|
||
|
|
use Exception;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* class RecurTest, testing selectComponents
|
||
|
|
*
|
||
|
|
* @since 2.29.29 - 2020-09-11
|
||
|
|
*/
|
||
|
|
class RecurWeekTest extends RecurBaseTest
|
||
|
|
{
|
||
|
|
/**
|
||
|
|
* recur2dateTest3Weekly provider
|
||
|
|
*
|
||
|
|
* @return mixed[]
|
||
|
|
* @throws Exception
|
||
|
|
*/
|
||
|
|
public function recur2dateTest3WeeklyProvider() : array
|
||
|
|
{
|
||
|
|
|
||
|
|
$dataArr = [];
|
||
|
|
|
||
|
|
$interval = 1;
|
||
|
|
for( $ix = 301; $ix <= 309; $ix++ ) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$start = DateTimeFactory::factory( '20190101T0900', 'Europe/Stockholm' );
|
||
|
|
$wDate = clone $start;
|
||
|
|
$expects = [];
|
||
|
|
$count = 5;
|
||
|
|
$x = 1;
|
||
|
|
while( $x < $count ) {
|
||
|
|
$expects[] = $wDate->modify( ( $interval * 7 ) . ' days' )->format( 'Ymd' );
|
||
|
|
++$x;
|
||
|
|
} // end while
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
$dataArr[] = [
|
||
|
|
$ix . '-' . $interval,
|
||
|
|
$start,
|
||
|
|
(clone $start)->modify( RecurFactory::EXTENDYEAR . ' year' ),
|
||
|
|
[
|
||
|
|
IcalInterface::FREQ => IcalInterface::WEEKLY,
|
||
|
|
IcalInterface::COUNT => $count,
|
||
|
|
IcalInterface::INTERVAL => $interval
|
||
|
|
],
|
||
|
|
$expects,
|
||
|
|
$execTime
|
||
|
|
];
|
||
|
|
$interval += 2;
|
||
|
|
} // end for
|
||
|
|
|
||
|
|
// same as above but with BYDAY MO
|
||
|
|
$interval = 1;
|
||
|
|
$expects = [
|
||
|
|
311 => [ 20200914, 20200921, 20200928, 20201005 ],
|
||
|
|
312 => [ 20200928, 20201019, 20201109, 20201130 ],
|
||
|
|
313 => [ 20201012, 20201116, 20201221, 20210125 ],
|
||
|
|
314 => [ 20201026, 20201214, 20210201, 20210322 ],
|
||
|
|
315 => [ 20201109, 20210111, 20210315, 20210517 ]
|
||
|
|
];
|
||
|
|
for( $ix = 311; $ix <= 315; $ix++ ) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$start = DateTimeFactory::factory( '20200909', 'Europe/Stockholm' );
|
||
|
|
$count = 5;
|
||
|
|
$dataArr[] = [
|
||
|
|
$ix . '-' . $interval,
|
||
|
|
$start,
|
||
|
|
(clone $start)->modify( RecurFactory::EXTENDYEAR . ' year' ),
|
||
|
|
[
|
||
|
|
IcalInterface::FREQ => IcalInterface::WEEKLY,
|
||
|
|
IcalInterface::COUNT => $count,
|
||
|
|
IcalInterface::INTERVAL => $interval,
|
||
|
|
IcalInterface::BYDAY => [ [ IcalInterface::DAY => IcalInterface::MO ] ]
|
||
|
|
],
|
||
|
|
$expects[$ix],
|
||
|
|
0.0
|
||
|
|
];
|
||
|
|
$interval += 2;
|
||
|
|
} // end for
|
||
|
|
|
||
|
|
$interval = 1;
|
||
|
|
for( $ix = 321; $ix <= 329; $ix++ ) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$start = DateTimeFactory::factory( '20190101T0900', 'Europe/Stockholm' );
|
||
|
|
$end = (clone $start)->modify( RecurFactory::EXTENDYEAR . ' year' );
|
||
|
|
$endYmd = $end->format( 'Ymd' );
|
||
|
|
$expects = [];
|
||
|
|
$wDate = clone $start;
|
||
|
|
$saveWeekNo = (int) $wDate->format( 'W' );
|
||
|
|
while( true ) {
|
||
|
|
if( $saveWeekNo === (int) $wDate->format( 'W' )) {
|
||
|
|
$wDate = $wDate->modify( '1 day' );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$wDate = $wDate->modify( (( $interval * 7 ) - 6 ) . ' days' );
|
||
|
|
$saveWeekNo = (int) $wDate->format( 'W' );
|
||
|
|
}
|
||
|
|
$ymd = $wDate->format( 'Ymd' );
|
||
|
|
if( $endYmd < $ymd ) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if( in_array((int) $wDate->format( 'w' ), [ 4, 5 ], true )) {
|
||
|
|
$expects[] = $ymd;
|
||
|
|
}
|
||
|
|
} // end while
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
$dataArr[] = [
|
||
|
|
$ix . '-' . $interval,
|
||
|
|
$start,
|
||
|
|
$end,
|
||
|
|
[
|
||
|
|
IcalInterface::FREQ => IcalInterface::WEEKLY,
|
||
|
|
IcalInterface::UNTIL => clone $end,
|
||
|
|
IcalInterface::INTERVAL => $interval,
|
||
|
|
IcalInterface::BYDAY => [
|
||
|
|
[ IcalInterface::DAY => IcalInterface::TH ],
|
||
|
|
[ IcalInterface::DAY => IcalInterface::FR ]
|
||
|
|
]
|
||
|
|
],
|
||
|
|
$expects,
|
||
|
|
$execTime
|
||
|
|
];
|
||
|
|
$interval += 2;
|
||
|
|
} // end for
|
||
|
|
|
||
|
|
$interval = 1;
|
||
|
|
$byMonth = [ 12 ];
|
||
|
|
for( $ix = 331; $ix <= 339; $ix++ ) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$start = DateTimeFactory::factory( '20190101T0900', 'Europe/Stockholm' );
|
||
|
|
$end = (clone $start)->modify( RecurFactory::EXTENDYEAR . ' years' );
|
||
|
|
$endYmd = $end->format( 'Ymd' );
|
||
|
|
$expects = [];
|
||
|
|
$wDate = clone $start;
|
||
|
|
while( true ) {
|
||
|
|
$wDate = $wDate->modify( ( $interval * 7 ) . ' days' );
|
||
|
|
if( ! in_array((int) $wDate->format( 'm' ), $byMonth, true )) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$ymd = $wDate->format( 'Ymd' );
|
||
|
|
if( $endYmd <= $ymd ) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$expects[] = $ymd;
|
||
|
|
} // end while
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
$dataArr[] = [
|
||
|
|
$ix . '-' . $interval,
|
||
|
|
$start,
|
||
|
|
$end,
|
||
|
|
[
|
||
|
|
IcalInterface::FREQ => IcalInterface::WEEKLY,
|
||
|
|
IcalInterface::UNTIL => clone $end,
|
||
|
|
IcalInterface::INTERVAL => $interval,
|
||
|
|
IcalInterface::BYMONTH => $byMonth
|
||
|
|
],
|
||
|
|
$expects,
|
||
|
|
$execTime
|
||
|
|
];
|
||
|
|
$interval += 2;
|
||
|
|
$byMonth[] = $interval;
|
||
|
|
sort( $byMonth );
|
||
|
|
} // end for
|
||
|
|
|
||
|
|
$interval = 1;
|
||
|
|
$byMonth = [ 1, 12 ];
|
||
|
|
for( $ix = 341; $ix <= 349; $ix++ ) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$start = DateTimeFactory::factory( '20190101T0900', 'Europe/Stockholm' );
|
||
|
|
$startYmd = $start->format( 'Ymd' );
|
||
|
|
$end = (clone $start)->modify( RecurFactory::EXTENDYEAR . ' years' );
|
||
|
|
$endYmd = $end->format( 'Ymd' );
|
||
|
|
$expects = [];
|
||
|
|
$wDate = clone $start;
|
||
|
|
$targetWeekNo = (int) $wDate->format( 'W' );
|
||
|
|
// go back to first day of week or first day in month
|
||
|
|
while(( 1 !== (int) $wDate->format( 'w' )) &&
|
||
|
|
( 1 !== (int) $wDate->format( 'd' ))) {
|
||
|
|
$wDate = $wDate->modify( '-1 day' );
|
||
|
|
}
|
||
|
|
while( true ) {
|
||
|
|
$currWeekNo = (int) $wDate->format( 'W' );
|
||
|
|
$Ymd = $wDate->format( 'Ymd' );
|
||
|
|
switch( true ) {
|
||
|
|
case( $Ymd <= $startYmd ) :
|
||
|
|
$wDate = $wDate->modify( '1 day' );
|
||
|
|
break;
|
||
|
|
case( $endYmd < $Ymd ) :
|
||
|
|
break 2;
|
||
|
|
case( $currWeekNo === $targetWeekNo ) :
|
||
|
|
if( in_array((int) $wDate->format( 'w' ), [ 4, 5 ], true ) && // TH+FR
|
||
|
|
in_array((int) $wDate->format( 'm' ), $byMonth, true )) {
|
||
|
|
$expects[] = $Ymd;
|
||
|
|
}
|
||
|
|
$wDate = $wDate->modify( '1 day' );
|
||
|
|
break;
|
||
|
|
default :
|
||
|
|
// now is the first day of next week
|
||
|
|
if( 1 < $interval ) {
|
||
|
|
$wDate = $wDate->modify( ( 7 * ( $interval - 1 )) . ' days' );
|
||
|
|
}
|
||
|
|
$targetWeekNo = (int) $wDate->format( 'W' );
|
||
|
|
} // end switch
|
||
|
|
} // end while
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
$dataArr[] = [
|
||
|
|
$ix . '-' . $interval,
|
||
|
|
$start,
|
||
|
|
$end,
|
||
|
|
[
|
||
|
|
IcalInterface::FREQ => IcalInterface::WEEKLY,
|
||
|
|
IcalInterface::UNTIL => clone $end,
|
||
|
|
IcalInterface::INTERVAL => $interval,
|
||
|
|
IcalInterface::BYMONTH => $byMonth,
|
||
|
|
IcalInterface::BYDAY => [
|
||
|
|
[ IcalInterface::DAY => IcalInterface::TH ],
|
||
|
|
[ IcalInterface::DAY => IcalInterface::FR ]
|
||
|
|
]
|
||
|
|
],
|
||
|
|
$expects,
|
||
|
|
$execTime
|
||
|
|
];
|
||
|
|
$interval += 3;
|
||
|
|
$byMonth[] = $interval;
|
||
|
|
sort( $byMonth );
|
||
|
|
} // end for
|
||
|
|
|
||
|
|
return $dataArr;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Testing recur2date
|
||
|
|
*
|
||
|
|
* @test
|
||
|
|
* @dataProvider recur2dateTest3WeeklyProvider
|
||
|
|
* @param string $case
|
||
|
|
* @param DateTime $start
|
||
|
|
* @param DateTime|mixed[] $end
|
||
|
|
* @param mixed[] $recur
|
||
|
|
* @param mixed[] $expects
|
||
|
|
* @param float $prepTime
|
||
|
|
* @throws Exception
|
||
|
|
*/
|
||
|
|
public function recur2dateTest3Weekly(
|
||
|
|
string $case,
|
||
|
|
DateTime $start,
|
||
|
|
DateTime | array $end,
|
||
|
|
array $recur,
|
||
|
|
array $expects,
|
||
|
|
float $prepTime
|
||
|
|
) : void
|
||
|
|
{
|
||
|
|
$saveStartDate = clone $start;
|
||
|
|
|
||
|
|
$case3 = substr( $case, 0, 3 );
|
||
|
|
if(( '311' <= $case3 ) && ( '319' >= $case3 )) {
|
||
|
|
$result = array_flip( $expects );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
$result = $this->recur2dateTest(
|
||
|
|
$case,
|
||
|
|
$start,
|
||
|
|
$end,
|
||
|
|
$recur,
|
||
|
|
$expects,
|
||
|
|
$prepTime
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
if( ! isset( $recur[IcalInterface::INTERVAL] )) {
|
||
|
|
$recur[IcalInterface::INTERVAL] = 1;
|
||
|
|
}
|
||
|
|
$strCase = str_pad( $case, 12 );
|
||
|
|
$recurDisp = str_replace( [PHP_EOL, ' ' ], '', var_export( $recur, true ));
|
||
|
|
if( RecurFactory2::isRecurWeekly1( $recur )) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$resultX = RecurFactory2::recurWeekly1( $recur, $start, clone $start, $end );
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
if( defined( 'DISPRECUR' ) && ( '1' === DISPRECUR )) {
|
||
|
|
echo $strCase . 'week smpl1 time:' . number_format( $execTime, 6 ) . ' : ' .
|
||
|
|
implode( ' - ', array_keys( $resultX ) ) . PHP_EOL; // test ###
|
||
|
|
echo $recurDisp . PHP_EOL; // test ###
|
||
|
|
}
|
||
|
|
$this->assertEquals(
|
||
|
|
array_keys( $result ),
|
||
|
|
array_keys( $resultX ),
|
||
|
|
sprintf( self::$ERRFMT, __FUNCTION__, $case . '-31',
|
||
|
|
$saveStartDate->format( 'Ymd' ),
|
||
|
|
$end->format( 'Ymd' ),
|
||
|
|
var_export( $recur, true )
|
||
|
|
)
|
||
|
|
);
|
||
|
|
}
|
||
|
|
elseif( RecurFactory2::isRecurWeekly2( $recur )) {
|
||
|
|
$time = microtime( true );
|
||
|
|
$resultX = RecurFactory2::recurWeekly2( $recur, $start, clone $start, $end );
|
||
|
|
$execTime = microtime( true ) - $time;
|
||
|
|
if( defined( 'DISPRECUR' ) && ( '1' === DISPRECUR )) {
|
||
|
|
echo $strCase . 'week smpl2 time:' . number_format( $execTime, 6 ) . ' : ' .
|
||
|
|
implode( ' - ', array_keys( $resultX ) ) . PHP_EOL; // test ###
|
||
|
|
echo $recurDisp . PHP_EOL; // test ###
|
||
|
|
}
|
||
|
|
$this->assertEquals(
|
||
|
|
array_keys( $result ),
|
||
|
|
array_keys( $resultX ),
|
||
|
|
sprintf( self::$ERRFMT, __FUNCTION__, $case . '-32',
|
||
|
|
$saveStartDate->format( 'Ymd' ),
|
||
|
|
$end->format( 'Ymd' ),
|
||
|
|
var_export( $recur, true )
|
||
|
|
)
|
||
|
|
);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
if( defined( 'DISPRECUR' ) && ( '1' === DISPRECUR )) {
|
||
|
|
echo $strCase . ' NOT isRecurWeekly1/2 ' . $recurDisp . PHP_EOL;
|
||
|
|
}
|
||
|
|
$this->fail();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|