<?php

/**
 * @file
 * Test Date Repeat calculations.
 */

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'),
    );
  }

  /**
   * Implements setUp().
   */
  public function setUp() {
    // Load the date_repeat module.
    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');
    // Examples adapted from http://www.faqs.org/rfcs/rfc2445.html and
    // http://www.kanzaki.com/docs/ical/rrule.html.

    //  Invalid value:
    $start = "1997-09-02 09:00:00";
    $end = "1997-09-30 09:00:00";
    $rule = "RRULE:FREQ=NONE;INTERVAL=0;COUNT=10";
    $dates = date_repeat_calc($rule, $start, $end, array());
    //  should be (1997 9:00 AM EDT)September 2-11
    $shouldbe = '';
    $result = implode(', ', $dates);
    $this->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . ';  results: ' . $result);

    //  Daily for 10 occurrences:
    $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());
    //  should be (1997 9:00 AM EDT)September 2-11
    $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);

    //Daily until September 24, 1997:
    $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());
    //  should be (1997 9:00 AM EDT)September 2-23
    $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);

    //Every other day - until September 30:
    $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());
    // should be (1997 9:00 AM EDT)September2,4,6,8...24,26,28,30;
    $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);

    //Every 10 days, 2 occurrences:
    $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());
    //  should be (1997 9:00 AM EDT)September 2,12
    $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);

    //Weekly for 3 occurrences
    $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());
    //  should be (1997 9:00 AM EDT)September 2,9,16
    $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);

    //Weekly until September 24, 1997
    $start = "1997-09-02 09:00:00";
    $end = "1997-09-30 09:00:00";
    $rule = "RRULE:FREQ=WEEKLY;UNTIL=19970924T000000Z";
    //  ==> (1997 9:00 AM EDT)September 2,9,16,23
    $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);

    //Every other week - forever:
    $start = "1997-09-02 09:00:00";
    $end = "1997-09-30 09:00:00";
    $rule = "RRULE:FREQ=WEEKLY;INTERVAL=2;WKST=SU";
    //  should be (1997 9:00 AM EDT)September 2,16,30
    $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);

    //Weekly on Tuesday and Thursday for 4 weeks:
    $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";
    // should be(1997 9:00 AM EDT)September 2,4,9,11,16,18,23,25
    $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);

    //Every other week on Tuesday and Thursday, for 5 occurrences:
    $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";
    //  should be  (1997 9:00 AM EDT)September 2,4,16,18,30
    $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);

    //Every other week on Monday, Wednesday and Friday until September 24, 1997,
    $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";
    // should be (1997 9:00 AM EDT)September 2,3,5,15,17,19
    $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);

    //Monthly on the 1st Friday for 2 occurrences:
    $start = "1997-09-05 09:00:00";
    $end = "1997-10-31 09:00:00";
    $rule = "RRULE:FREQ=MONTHLY;COUNT=2;BYDAY=1FR";
    //  should be (1997 9:00 AM EDT)September 5;October 3
    $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);

    //Monthly on the 1st Friday until December 24, 1997:
    $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);

    //Every other month on the 1st and last Sunday of the month for 10 occurrences:
    $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";
    //  ==> (1997 9:00 AM EDT)September 7,28
    //      (1997 9:00 AM EST)November 2,30
    //      (1998 9:00 AM EST)January 4,25;March 1,29
    //      (1998 9:00 AM EDT)May 3,31
    $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);

    //Monthly on the second to last Monday of the month for 6 months:
    $start = "1997-09-22 09:00:00";
    $end = "1998-10-01 09:00:00";
    $rule = "RRULE:FREQ=MONTHLY;COUNT=6;BYDAY=-2MO";
    //==> (1997 9:00 AM EDT)September 22;October 20
    //  (1997 9:00 AM EST)November 17;December 22
    //  (1998 9:00 AM EST)January 19;February 16
    $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);

    //Every Tuesday, every other month:
    $start = "1997-09-02 09:00:00";
    $end = "1998-02-01 09:00:00";
    $rule = "RRULE:FREQ=MONTHLY;INTERVAL=2;BYDAY=TU";
    //  ==> (1997 9:00 AM EDT)September 2,9,16,23,30
    //      (1997 9:00 AM EST)November 4,11,18,25
    //      (1998 9:00 AM EST)January 6,13,20,27;March 3,10,17,24,31
    $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);

    //Yearly in June and July for 10 occurrences:
    $start = "1997-06-10 09:00:00";
    $end = "2002-01-01 09:00:00";
    $rule = "RRULE:FREQ=YEARLY;COUNT=10;BYMONTH=6,7";
    //  ==> (1997 9:00 AM EDT)June 10;July 10
    //      (1998 9:00 AM EDT)June 10;July 10
    //      (1999 9:00 AM EDT)June 10;July 10
    //      (2000 9:00 AM EDT)June 10;July 10
    //      (2001 9:00 AM EDT)June 10;July 10
    //  Note: Since none of the BYDAY, BYMONTHDAY or BYYEARDAY components
    //  are specified, the day is gotten from DTSTART
    $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);

    //Every other year on January, February, and March for 10 occurrences:
    $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";
    //  ==> (1997 9:00 AM EST)March 10
    //      (1999 9:00 AM EST)January 10;February 10;March 10
    //      (2001 9:00 AM EST)January 10;February 10;March 10
    //      (2003 9:00 AM EST)January 10;February 10;March 10
    $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);

    //An example where the days generated makes a difference because of WKST:
    $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";
    //  ==> (1997 EDT)Aug 5,10,19,24
    $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);

    //changing only WKST from MO to SU, yields different results...
    $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";
    // Result: 1997 EDT August 5,17,19,31;
    $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);

    //Every 18 months on the 10th thru 15th of the month for 10 occurrences:
    $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";
    //  ==> (1997 9:00 AM EDT)September 10,11,12,13,14,15
    //      (1999 9:00 AM EST)March 10,11,12,13
    $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);

    //Monthly on the third to the last day of the month, forever:
    $start = "1997-09-28 09:00:00";
    $end = "1998-03-01 09:00:00";
    $rule = "RRULE:FREQ=MONTHLY;BYMONTHDAY=-3";
    //  ==> (1997 9:00 AM EDT)September 28
    //      (1997 9:00 AM EST)October 29;November 28;December 29
    //      (1998 9:00 AM EST)January 29;February 26
    $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);

    //Every Thursday in March, forever:
    //  ==> (1997 9:00 AM EST)March 13,20,27
    //      (1998 9:00 AM EST)March 5,12,19,26
    //      (1999 9:00 AM EST)March 4,11,18,25
    $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);

    //Every Thursday, but only during June, July, and August, forever:
    //  ==> (1997 9:00 AM EDT)June 5,12,19,26;July 3,10,17,24,31;August 7,14,21,28
    //      (1998 9:00 AM EDT)June 4,11,18,25;July 2,9,16,23,30;August 6,13,20,27
    //      (1999 9:00 AM EDT)June 3,10,17,24;July 1,8,15,22,29;August 5,12,19,26
    $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);

    //Monthly on the 2nd and 15th of the month for 10 occurrences:
    //  ==> (1997 9:00 AM EDT)September 2,15;October 2,15
    //      (1997 9:00 AM EST)November 2,15;December 2,15
    //      (1998 9:00 AM EST)January 2,15
    $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);

    //Monthly on the first and last day of the month for 10 occurrences:
    //  ==> (1997 9:00 AM EDT)September 30;October 1
    //      (1997 9:00 AM EST)October 31;November 1,30;December 1,31
    //      (1998 9:00 AM EST)January 1,31;February 1
    $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);

    //Every Friday the 13th, forever:
    $rule = "EXDATE;TZID=US-Eastern:19970902T090000";
    //  ==> (1998 9:00 AM EST)February 13;March 13;November 13
    //      (1999 9:00 AM EDT)August 13
    //      (2000 9:00 AM EDT)October 13
    $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);

    //The first Saturday that follows the first Sunday of the month, forever:
    //  ==> (1997 9:00 AM EDT)September 13;October 11
    //      (1997 9:00 AM EST)November 8;December 13
    //      (1998 9:00 AM EST)January 10;February 7;March 7
    //      (1998 9:00 AM EDT)April 11;May 9;June 13...
    $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);

    //Every four years, the first Tuesday after a Monday in November,
    //forever (U.S. Presidential Election day):
    //  ==> (1996 9:00 AM EST)November 5
    //      (2000 9:00 AM EST)November 7
    //      (2004 9:00 AM EST)November 2
    $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);

    //Every 20th Monday of the year, forever:
    $start = "1997-05-19 09:00:00";
    $end = "2000-01-01 09:00:00";
    $rule = "RRULE:FREQ=YEARLY;BYDAY=20MO";
    //  ==> (1997 9:00 AM EDT)May 19
    //      (1998 9:00 AM EDT)May 18
    //      (1999 9:00 AM EDT)May 17
    $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);

    //Every Sunday in January, every other year, forever:
    $start = "1997-01-05 09:00:00";
    $end = "2001-02-01 09:00:00";
    $rule = 'RRULE:FREQ=YEARLY;INTERVAL=2;BYMONTH=1;BYDAY=SU';
    //  ==> (1997 9:00 AM EDT)January 5,12,19,26
    //      (1999 9:00 AM EDT)January 3,10,17,24,31
    //      (2001 9:00 AM EDT)January 7,14,21,28
    $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);

    //Every Last Thursday in November, every year, five times:
    $start = "2014-11-27 00:00:00";
    $rule = 'FREQ=YEARLY;INTERVAL=1;BYDAY=-1TH;BYMONTH=11;COUNT=5;WKST=SU';
    //  ==> (2014 00:00 AM EDT)November 27
    //      (2015 00:00 AM EDT)November 26
    //      (2016 00:00 AM EDT)November 24
    //      (2017 00:00 AM EDT)November 30
    //      (2018 00:00 AM EDT)November 29
    $dates = date_repeat_calc($rule, $start, NULL, array());
    $shouldbe = '2014-11-27 00:00:00, 2015-11-26 00:00:00, 2016-11-24 00:00:00, 2017-11-30 00:00:00, 2018-11-29 00:00:00';
    $result = implode(', ', $dates);
    $this->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . ';  results: ' . $result);

return;

    //Every Thanksgiving, forever:
    $start = "1997-01-01 09:00:00";
    $end = "2001-02-01 09:00:00";
    $rule = 'RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=11;BYDAY=4TH';
    //  ==> (1997 9:00 AM EDT)Nov
    //      (1999 9:00 AM EDT)Nov
    //      (2001 9:00 AM EDT)Nov
    $dates = date_repeat_calc($rule, $start, $end, array());
    $shouldbe = '';
    $result = implode(', ', $dates);
    $this->assertEqual($result, $shouldbe, $rule . '; Starting ' . $start . ';  results: ' . $result);

// TODO:
// BYYEARDAY, BYSETPOS,
// BYHOUR, BYMINUTE, HOURLY, MINUTELY, SECONDLY
// have not yet been implemented in date_repeat.

//Every 3rd year on the 1st, 100th and 200th day for 10 occurrences:
$date = "DTSTART;TZID=US-Eastern:19970101T090000";
$rule = "RRULE:FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200";
//  ==> (1997 9:00 AM EST)January 1
//      (1997 9:00 AM EDT)April 10;July 19
//      (2000 9:00 AM EST)January 1
//      (2000 9:00 AM EDT)April 9;July 18
//      (2003 9:00 AM EST)January 1
//      (2003 9:00 AM EDT)April 10;July 19
//      (2006 9:00 AM EST)January 1

//Monday of week number 20 (where the default start of the week is Monday), forever:
$date = "DTSTART;TZID=US-Eastern:19970512T090000";
$rule = "RRULE:FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO";
//  ==> (1997 9:00 AM EDT)May 12
//      (1998 9:00 AM EDT)May 11
//      (1999 9:00 AM EDT)May 17

//The 3rd instance into the month of one of Tuesday, Wednesday or
//Thursday, for the next 3 months:
$date = "DTSTART;TZID=US-Eastern:19970904T090000";
$rule = "RRULE:FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3";
//  ==> (1997 9:00 AM EDT)September 4;October 7
//      (1997 9:00 AM EST)November 6

//The 2nd to last weekday of the month:
$date = "DTSTART;TZID=US-Eastern:19970929T090000";
$rule = "RRULE:FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2";
//  ==> (1997 9:00 AM EDT)September 29
//      (1997 9:00 AM EST)October 30;November 27;December 30
//      (1998 9:00 AM EST)January 29;February 26;March 30

//Every 3 hours from 9:00 AM to 5:00 PM on a specific day:
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T170000Z";
//  ==> (September 2, 1997 EDT)09:00,12:00,15:00

//Every 15 minutes for 6 occurrences:
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=15;COUNT=6";
//  ==> (September 2, 1997 EDT)09:00,09:15,09:30,09:45,10:00,10:15

//Every hour and a half for 4 occurrences:
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=90;COUNT=4";
//  ==> (September 2, 1997 EDT)09:00,10:30;12:00;13:30

//Every 20 minutes from 9:00 AM to 4:40 PM every day:
$date = "DTSTART;TZID=US-Eastern:19970902T090000";
$rule = "RRULE:FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40";
//  or
$rule = "RRULE:FREQ=MINUTELY;INTERVAL=20;BYHOUR=9,10,11,12,13,14,15,16";
//  ==> (September 2, 1997 EDT)9:00,9:20,9:40,10:00,10:20,16:00,16:20,16:40
//      (September 3, 1997 EDT)9:00,9:20,9:40,10:00,10:20,16:00,16:20,16:40

  }
}