View source
<?php
class DateRepeatTestCase extends DrupalWebTestCase {
public static function getInfo() {
return array(
'name' => t('Date Repeat'),
'description' => t('Test Date Repeat functions to create arrays of dates from iCal rules.'),
'group' => t('Date'),
);
}
public function setUp() {
parent::setUp('date_api', 'date_repeat');
}
public function testDateRepeat() {
require_once './' . drupal_get_path('module', 'date_api') . '/date_api_ical.inc';
require_once './' . drupal_get_path('module', 'date_repeat') . '/date_repeat_calc.inc';
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=DAILY;COUNT=10";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-03 09:00:00, 1997-09-04 09:00:00, 1997-09-05 09:00:00, 1997-09-06 09:00:00, 1997-09-07 09:00:00, 1997-09-08 09:00:00, 1997-09-09 09:00:00, 1997-09-10 09:00:00, 1997-09-11 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=DAILY;UNTIL=19970924T000000Z";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-03 09:00:00, 1997-09-04 09:00:00, 1997-09-05 09:00:00, 1997-09-06 09:00:00, 1997-09-07 09:00:00, 1997-09-08 09:00:00, 1997-09-09 09:00:00, 1997-09-10 09:00:00, 1997-09-11 09:00:00, 1997-09-12 09:00:00, 1997-09-13 09:00:00, 1997-09-14 09:00:00, 1997-09-15 09:00:00, 1997-09-16 09:00:00, 1997-09-17 09:00:00, 1997-09-18 09:00:00, 1997-09-19 09:00:00, 1997-09-20 09:00:00, 1997-09-21 09:00:00, 1997-09-22 09:00:00, 1997-09-23 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=DAILY;INTERVAL=2";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-04 09:00:00, 1997-09-06 09:00:00, 1997-09-08 09:00:00, 1997-09-10 09:00:00, 1997-09-12 09:00:00, 1997-09-14 09:00:00, 1997-09-16 09:00:00, 1997-09-18 09:00:00, 1997-09-20 09:00:00, 1997-09-22 09:00:00, 1997-09-24 09:00:00, 1997-09-26 09:00:00, 1997-09-28 09:00:00, 1997-09-30 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=DAILY;INTERVAL=10;COUNT=2";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-12 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;COUNT=3";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-09 09:00:00, 1997-09-16 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;UNTIL=19970924T000000Z";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-09 09:00:00, 1997-09-16 09:00:00, 1997-09-23 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;WKST=SU";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-16 09:00:00, 1997-09-30 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;COUNT=8;WKST=SU;BYDAY=TU,TH";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-04 09:00:00, 1997-09-09 09:00:00, 1997-09-11 09:00:00, 1997-09-16 09:00:00, 1997-09-18 09:00:00, 1997-09-23 09:00:00, 1997-09-25 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=5;WKST=SU;BYDAY=TU,TH";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-04 09:00:00, 1997-09-16 09:00:00, 1997-09-18 09:00:00, 1997-09-30 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1997-09-30 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;UNTIL=19970924T000000Z;WKST=SU;BYDAY=MO,WE,FR";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-03 09:00:00, 1997-09-05 09:00:00, 1997-09-15 09:00:00, 1997-09-17 09:00:00, 1997-09-19 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-05 09:00:00";
$end = "1997-10-31 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;COUNT=2;BYDAY=1FR";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-05 09:00:00, 1997-10-03 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-05 09:00:00";
$end = "1998-10-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-05 09:00:00, 1997-10-03 09:00:00, 1997-11-07 09:00:00, 1997-12-05 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-07 09:00:00";
$end = "1998-10-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-07 09:00:00, 1997-09-28 09:00:00, 1997-11-02 09:00:00, 1997-11-30 09:00:00, 1998-01-04 09:00:00, 1998-01-25 09:00:00, 1998-03-01 09:00:00, 1998-03-29 09:00:00, 1998-05-03 09:00:00, 1998-05-31 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-22 09:00:00";
$end = "1998-10-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;COUNT=6;BYDAY=-2MO";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-22 09:00:00, 1997-10-20 09:00:00, 1997-11-17 09:00:00, 1997-12-22 09:00:00, 1998-01-19 09:00:00, 1998-02-16 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1998-02-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;INTERVAL=2;BYDAY=TU";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-09 09:00:00, 1997-09-16 09:00:00, 1997-09-23 09:00:00, 1997-09-30 09:00:00, 1997-11-04 09:00:00, 1997-11-11 09:00:00, 1997-11-18 09:00:00, 1997-11-25 09:00:00, 1998-01-06 09:00:00, 1998-01-13 09:00:00, 1998-01-20 09:00:00, 1998-01-27 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-06-10 09:00:00";
$end = "2002-01-01 09:00:00";
$rule = "RRULE:FREQ=YEARLY;COUNT=10;BYMONTH=6,7";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-06-10 09:00:00, 1997-07-10 09:00:00, 1998-06-10 09:00:00, 1998-07-10 09:00:00, 1999-06-10 09:00:00, 1999-07-10 09:00:00, 2000-06-10 09:00:00, 2000-07-10 09:00:00, 2001-06-10 09:00:00, 2001-07-10 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-03-10 09:00:00";
$end = "2004-01-01 09:00:00";
$rule = "RRULE:FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-03-10 09:00:00, 1999-01-10 09:00:00, 1999-02-10 09:00:00, 1999-03-10 09:00:00, 2001-01-10 09:00:00, 2001-02-10 09:00:00, 2001-03-10 09:00:00, 2003-01-10 09:00:00, 2003-02-10 09:00:00, 2003-03-10 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-08-05 09:00:00";
$end = "2004-01-01 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=MO";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-08-05 09:00:00, 1997-08-10 09:00:00, 1997-08-19 09:00:00, 1997-08-24 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-08-05 09:00:00";
$end = "2004-01-01 09:00:00";
$rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-08-05 09:00:00, 1997-08-17 09:00:00, 1997-08-19 09:00:00, 1997-08-31 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-10 09:00:00";
$end = "2004-01-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-10 09:00:00, 1997-09-11 09:00:00, 1997-09-12 09:00:00, 1997-09-13 09:00:00, 1997-09-14 09:00:00, 1997-09-15 09:00:00, 1999-03-10 09:00:00, 1999-03-11 09:00:00, 1999-03-12 09:00:00, 1999-03-13 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-28 09:00:00";
$end = "1998-03-01 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;BYMONTHDAY=-3";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-28 09:00:00, 1997-10-29 09:00:00, 1997-11-28 09:00:00, 1997-12-29 09:00:00, 1998-01-29 09:00:00, 1998-02-26 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-03-13 09:00:00";
$end = "1999-03-31 09:00:00";
$rule = "RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=TH";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-03-13 09:00:00, 1997-03-20 09:00:00, 1997-03-27 09:00:00, 1998-03-05 09:00:00, 1998-03-12 09:00:00, 1998-03-19 09:00:00, 1998-03-26 09:00:00, 1999-03-04 09:00:00, 1999-03-11 09:00:00, 1999-03-18 09:00:00, 1999-03-25 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-06-05 09:00:00";
$end = "1999-08-31 09:00:00";
$rule = "RRULE:FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-06-05 09:00:00, 1997-06-12 09:00:00, 1997-06-19 09:00:00, 1997-06-26 09:00:00, 1997-07-03 09:00:00, 1997-07-10 09:00:00, 1997-07-17 09:00:00, 1997-07-24 09:00:00, 1997-07-31 09:00:00, 1997-08-07 09:00:00, 1997-08-14 09:00:00, 1997-08-21 09:00:00, 1997-08-28 09:00:00, 1998-06-04 09:00:00, 1998-06-11 09:00:00, 1998-06-18 09:00:00, 1998-06-25 09:00:00, 1998-07-02 09:00:00, 1998-07-09 09:00:00, 1998-07-16 09:00:00, 1998-07-23 09:00:00, 1998-07-30 09:00:00, 1998-08-06 09:00:00, 1998-08-13 09:00:00, 1998-08-20 09:00:00, 1998-08-27 09:00:00, 1999-06-03 09:00:00, 1999-06-10 09:00:00, 1999-06-17 09:00:00, 1999-06-24 09:00:00, 1999-07-01 09:00:00, 1999-07-08 09:00:00, 1999-07-15 09:00:00, 1999-07-22 09:00:00, 1999-07-29 09:00:00, 1999-08-05 09:00:00, 1999-08-12 09:00:00, 1999-08-19 09:00:00, 1999-08-26 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-02 09:00:00";
$end = "1998-01-31 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1997-09-15 09:00:00, 1997-10-02 09:00:00, 1997-10-15 09:00:00, 1997-11-02 09:00:00, 1997-11-15 09:00:00, 1997-12-02 09:00:00, 1997-12-15 09:00:00, 1998-01-02 09:00:00, 1998-01-15 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-30 09:00:00";
$end = "1998-03-31 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-30 09:00:00, 1997-10-01 09:00:00, 1997-10-31 09:00:00, 1997-11-01 09:00:00, 1997-11-30 09:00:00, 1997-12-01 09:00:00, 1997-12-31 09:00:00, 1998-01-01 09:00:00, 1998-01-31 09:00:00, 1998-02-01 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$rule = "EXDATE;TZID=US-Eastern:19970902T090000";
$start = "1997-09-02 09:00:00";
$end = "2000-12-31 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-02 09:00:00, 1998-02-13 09:00:00, 1998-03-13 09:00:00, 1998-11-13 09:00:00, 1999-08-13 09:00:00, 2000-10-13 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-09-13 09:00:00";
$end = "1998-06-30 09:00:00";
$rule = "RRULE:FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-09-13 09:00:00, 1997-10-11 09:00:00, 1997-11-08 09:00:00, 1997-12-13 09:00:00, 1998-01-10 09:00:00, 1998-02-07 09:00:00, 1998-03-07 09:00:00, 1998-04-11 09:00:00, 1998-05-09 09:00:00, 1998-06-13 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1996-11-05 09:00:00";
$end = "2004-11-30 09:00:00";
$rule = "RRULE:FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8";
$shouldbe = '1996-11-05 09:00:00, 2000-11-07 09:00:00, 2004-11-02 09:00:00';
$dates = date_repeat_calc($rule, $start, $end, array());
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-05-19 09:00:00";
$end = "2000-01-01 09:00:00";
$rule = "RRULE:FREQ=YEARLY;BYDAY=20MO";
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-05-19 09:00:00, 1998-05-18 09:00:00, 1999-05-17 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$start = "1997-01-05 09:00:00";
$end = "2001-02-01 09:00:00";
$rule = 'RRULE:FREQ=YEARLY;INTERVAL=2;BYMONTH=1;BYDAY=SU';
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '1997-01-05 09:00:00, 1997-01-12 09:00:00, 1997-01-19 09:00:00, 1997-01-26 09:00:00, 1999-01-03 09:00:00, 1999-01-10 09:00:00, 1999-01-17 09:00:00, 1999-01-24 09:00:00, 1999-01-31 09:00:00, 2001-01-07 09:00:00, 2001-01-14 09:00:00, 2001-01-21 09:00:00, 2001-01-28 09:00:00';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
return;
$start = "1997-01-01 09:00:00";
$end = "2001-02-01 09:00:00";
$rule = 'RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=11;BYDAY=4TH';
$dates = date_repeat_calc($rule, $start, $end, array());
$shouldbe = '';
$result = implode(', ', $dates);
$this
->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . '; results: ' . $result);
$date = "DTSTART;TZID=US-Eastern:19970101T090000";
$rule = "RRULE:FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200";
$date = "DTSTART;TZID=US-Eastern:19970512T090000";
$rule = "RRULE:FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO";
$date = "DTSTART;TZID=US-Eastern:19970904T090000";
$rule = "RRULE:FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3";
$date = "DTSTART;TZID=US-Eastern:19970929T090000";
$rule = "RRULE:FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2";
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T170000Z";
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=15;COUNT=6";
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=90;COUNT=4";
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40";
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=20;BYHOUR=9,10,11,12,13,14,15,16";
}
}