mirror of
https://gitlab.com/davical-project/davical.git
synced 2026-03-11 07:44:26 +00:00
79 lines
2.5 KiB
PHP
79 lines
2.5 KiB
PHP
<?php
|
|
require_once("../inc/always.php");
|
|
require_once("RRule.php");
|
|
|
|
header("Content-type: text/plain");
|
|
|
|
echo <<<EOTXT
|
|
Testing the RRule Library
|
|
|
|
EOTXT;
|
|
|
|
class RRuleTest {
|
|
var $dtstart;
|
|
var $recur;
|
|
var $description;
|
|
var $result_description;
|
|
|
|
function RRuleTest( $description, $start, $recur, $result_description = null ) {
|
|
$this->description = $description;
|
|
$this->dtstart = $start;
|
|
$this->recur = $recur;
|
|
$this->result_description = $result_description;
|
|
}
|
|
|
|
function PHPTest() {
|
|
echo "=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=\n";
|
|
echo "$this->dtstart - $this->recur\n";
|
|
echo "$this->description\n";
|
|
|
|
$rule = new RRule( new iCalDate($this->dtstart), $this->recur );
|
|
$i = 0;
|
|
do {
|
|
if ( ($i % 4) == 0 ) echo "\n";
|
|
$date = $rule->GetNext();
|
|
if ( isset($date) ) {
|
|
echo " " . $date->Render();
|
|
}
|
|
}
|
|
while( isset($date) && $i++ < 30 );
|
|
|
|
echo "\n\n";
|
|
}
|
|
|
|
function SQLTest() {
|
|
$sql = "SELECT event_instances::timestamp AS event_date FROM event_instances(?,?) LIMIT 30;";
|
|
$qry = new PgQuery($sql, $this->dtstart, $this->recur);
|
|
printf( "%s\n", $qry->querystring);
|
|
if ( $qry->Exec("test") && $qry->rows > 0 ) {
|
|
$i = 0;
|
|
while( $row = $qry->Fetch() ) {
|
|
if ( ($i++ % 4) == 0 ) echo "\n";
|
|
echo " " . $row->event_date;
|
|
}
|
|
}
|
|
echo "\n\n";
|
|
}
|
|
}
|
|
|
|
|
|
$tests = array(
|
|
new RRuleTest( "Daily for 7 days", "20061103T073000", "RRULE:FREQ=DAILY;COUNT=7" )
|
|
, new RRuleTest( "Weekly for 26 weeks", "20061102T100000", "RRULE:FREQ=WEEKLY;COUNT=26;INTERVAL=1;BYDAY=TH" )
|
|
, new RRuleTest( "Fortnightly for 28 events", "20061103T160000", "RRULE:FREQ=WEEKLY;INTERVAL=2;UNTIL=20071122T235900" )
|
|
, new RRuleTest( "3/wk for 5 weeks", "20081101T160000", "RRULE:FREQ=WEEKLY;COUNT=15;INTERVAL=1;BYDAY=MO,WE,FR" )
|
|
, new RRuleTest( "Monthly forever", "20061104T073000", "RRULE:FREQ=MONTHLY" )
|
|
, new RRuleTest( "Monthly, on the 1st monday, 2nd wednesday, 3rd friday and last sunday, forever", "20061117T073000", "RRULE:FREQ=MONTHLY;BYDAY=1MO,2WE,3FR,-1SU" )
|
|
, new RRuleTest( "Every working day", "20081020T103000", "RRULE:FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR" )
|
|
, new RRuleTest( "The last working day of each month", "20061107T113000", "RRULE:FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1" )
|
|
, new RRuleTest( "Every working day", "20081020T110000", "RRULE:FREQ=DAILY;INTERVAL=1;BYDAY=MO,TU,WE,TH,FR" )
|
|
);
|
|
|
|
foreach( $tests AS $k => $test ) {
|
|
$test->PHPTest();
|
|
// $test->SQLTest();
|
|
}
|
|
|
|
|
|
exit(0);
|