<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle 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.
//
// Moodle 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 Moodle.  If not, see <http://www.gnu.org/licenses/>.

namespace core_calendar;

defined('MOODLE_INTERNAL') || die();

global $CFG;
require_once($CFG->dirroot . '/calendar/lib.php');

/**
 * Defines test class to test manage rrule during ical imports.
 *
 * @package core_calendar
 * @category test
 * @copyright 2014 onwards Ankit Agarwal <ankit.agrr@gmail.com>
 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
final class rrule_manager_test extends \advanced_testcase {

    /** @var calendar_event a dummy event */
    protected $event;

    /**
     * Set up method.
     */
    protected function setUp(): void {
        global $DB;
        $this->resetAfterTest();

        // Set our timezone based on the timezone in the RFC's samples (America/New_York).
        $tz = 'America/New_York';
        $this->setTimezone($tz);
        $timezone = new \DateTimeZone($tz);
        // Create our event's DTSTART date based on RFC's samples (most commonly used in RFC is 1997-09-02 09:00:00 EDT).
        $time = \DateTime::createFromFormat('Ymd\THis', '19970902T090000', $timezone);
        $timestart = $time->getTimestamp();

        $user = $this->getDataGenerator()->create_user();
        $sub = new \stdClass();
        $sub->url = '';
        $sub->courseid = 0;
        $sub->groupid = 0;
        $sub->userid = $user->id;
        $sub->pollinterval = 0;
        $subid = $DB->insert_record('event_subscriptions', $sub, true);

        $event = new \stdClass();
        $event->name = 'Event name';
        $event->description = '';
        $event->timestart = $timestart;
        $event->timeduration = 3600;
        $event->uuid = 'uuid';
        $event->subscriptionid = $subid;
        $event->userid = $user->id;
        $event->groupid = 0;
        $event->courseid = 0;
        $event->eventtype = 'user';
        $eventobj = \calendar_event::create($event, false);
        $DB->set_field('event', 'repeatid', $eventobj->id, array('id' => $eventobj->id));
        $eventobj->repeatid = $eventobj->id;
        $this->event = $eventobj;
    }

    /**
     * Test parse_rrule() method.
     */
    public function test_parse_rrule() {
        $rules = [
            'FREQ=YEARLY',
            'COUNT=3',
            'INTERVAL=4',
            'BYSECOND=20,40',
            'BYMINUTE=2,30',
            'BYHOUR=3,4',
            'BYDAY=MO,TH',
            'BYMONTHDAY=20,30',
            'BYYEARDAY=300,-20',
            'BYWEEKNO=22,33',
            'BYMONTH=3,4'
        ];
        $rrule = implode(';', $rules);
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();

        $bydayrules = [
            (object)[
                'day' => 'MO',
                'value' => 0
            ],
            (object)[
                'day' => 'TH',
                'value' => 0
            ],
        ];

        $props = [
            'freq' => rrule_manager::FREQ_YEARLY,
            'count' => 3,
            'interval' => 4,
            'bysecond' => [20, 40],
            'byminute' => [2, 30],
            'byhour' => [3, 4],
            'byday' => $bydayrules,
            'bymonthday' => [20, 30],
            'byyearday' => [300, -20],
            'byweekno' => [22, 33],
            'bymonth' => [3, 4],
        ];

        $reflectionclass = new \ReflectionClass($mang);
        foreach ($props as $prop => $expectedval) {
            $rcprop = $reflectionclass->getProperty($prop);
            $rcprop->setAccessible(true);
            $this->assertEquals($expectedval, $rcprop->getValue($mang));
        }
    }

    /**
     * Test exception is thrown for invalid property.
     */
    public function test_parse_rrule_validation() {
        $rrule = "RANDOM=PROPERTY;";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test exception is thrown for invalid frequency.
     */
    public function test_freq_validation() {
        $rrule = "FREQ=RANDOMLY;";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of rules with both COUNT and UNTIL parameters.
     */
    public function test_until_count_validation() {
        $until = $this->event->timestart + DAYSECS * 4;
        $until = date('Y-m-d', $until);
        $rrule = "FREQ=DAILY;COUNT=2;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of INTERVAL rule.
     */
    public function test_interval_validation() {
        $rrule = "INTERVAL=0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYSECOND rule.
     */
    public function test_bysecond_validation() {
        $rrule = "BYSECOND=30,45,60";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMINUTE rule.
     */
    public function test_byminute_validation() {
        $rrule = "BYMINUTE=30,45,60";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMINUTE rule.
     */
    public function test_byhour_validation() {
        $rrule = "BYHOUR=23,45";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYDAY rule.
     */
    public function test_byday_validation() {
        $rrule = "BYDAY=MO,2SE";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYDAY rule with prefixes.
     */
    public function test_byday_with_prefix_validation() {
        // This is acceptable.
        $rrule = "FREQ=MONTHLY;BYDAY=-1MO,2SA";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();

        // This is also acceptable.
        $rrule = "FREQ=YEARLY;BYDAY=MO,2SA";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();

        // This is invalid.
        $rrule = "FREQ=WEEKLY;BYDAY=MO,2SA";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMONTHDAY rule.
     */
    public function test_bymonthday_upper_bound_validation() {
        $rrule = "BYMONTHDAY=1,32";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMONTHDAY rule.
     */
    public function test_bymonthday_0_validation() {
        $rrule = "BYMONTHDAY=1,0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMONTHDAY rule.
     */
    public function test_bymonthday_lower_bound_validation() {
        $rrule = "BYMONTHDAY=1,-31,-32";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYYEARDAY rule.
     */
    public function test_byyearday_upper_bound_validation() {
        $rrule = "BYYEARDAY=1,366,367";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYYEARDAY rule.
     */
    public function test_byyearday_0_validation() {
        $rrule = "BYYEARDAY=0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYYEARDAY rule.
     */
    public function test_byyearday_lower_bound_validation() {
        $rrule = "BYYEARDAY=-1,-366,-367";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYWEEKNO rule.
     */
    public function test_non_yearly_freq_with_byweekno() {
        $rrule = "BYWEEKNO=1,53";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYWEEKNO rule.
     */
    public function test_byweekno_upper_bound_validation() {
        $rrule = "FREQ=YEARLY;BYWEEKNO=1,53,54";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYWEEKNO rule.
     */
    public function test_byweekno_0_validation() {
        $rrule = "FREQ=YEARLY;BYWEEKNO=0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYWEEKNO rule.
     */
    public function test_byweekno_lower_bound_validation() {
        $rrule = "FREQ=YEARLY;BYWEEKNO=-1,-53,-54";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMONTH rule.
     */
    public function test_bymonth_upper_bound_validation() {
        $rrule = "BYMONTH=1,12,13";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYMONTH rule.
     */
    public function test_bymonth_lower_bound_validation() {
        $rrule = "BYMONTH=0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYSETPOS rule.
     */
    public function test_bysetpos_without_other_byrules() {
        $rrule = "BYSETPOS=1,366";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYSETPOS rule.
     */
    public function test_bysetpos_upper_bound_validation() {
        $rrule = "BYSETPOS=1,366,367";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYSETPOS rule.
     */
    public function test_bysetpos_0_validation() {
        $rrule = "BYSETPOS=0";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test parsing of BYSETPOS rule.
     */
    public function test_bysetpos_lower_bound_validation() {
        $rrule = "BYSETPOS=-1,-366,-367";
        $mang = new rrule_manager($rrule);
        $this->expectException('moodle_exception');
        $mang->parse_rrule();
    }

    /**
     * Test recurrence rules for daily frequency.
     */
    public function test_daily_events() {
        global $DB;

        $rrule = 'FREQ=DAILY;COUNT=3'; // This should generate 2 child events + 1 parent.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(3, $count);
        $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                'timestart' => ($this->event->timestart + DAYSECS)));
        $this->assertTrue($result);
        $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                'timestart' => ($this->event->timestart + 2 * DAYSECS)));
        $this->assertTrue($result);

        $until = $this->event->timestart + DAYSECS * 2;
        $until = date('Y-m-d', $until);
        $rrule = "FREQ=DAILY;UNTIL=$until"; // This should generate 1 child event + 1 parent,since by then until bound would be hit.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(2, $count);
        $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                'timestart' => ($this->event->timestart + DAYSECS)));
        $this->assertTrue($result);

        $rrule = 'FREQ=DAILY;COUNT=3;INTERVAL=3'; // This should generate 2 child events + 1 parent, every 3rd day.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(3, $count);
        $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                'timestart' => ($this->event->timestart + 3 * DAYSECS)));
        $this->assertTrue($result);
        $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                'timestart' => ($this->event->timestart + 6 * DAYSECS)));
        $this->assertTrue($result);
    }

    /**
     * Every 300 days, forever.
     */
    public function test_every_300_days_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the current date.
        $this->change_event_startdate(date('Ymd\T090000'));
        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));

        $interval = new \DateInterval('P300D');
        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P10Y'));
        $until = $untildate->getTimestamp();

        // Forever event. This should generate events for time() + 10 year period, every 300 days.
        $rrule = 'FREQ=DAILY;INTERVAL=300';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', array('repeatid' => $this->event->id), 'timestart ASC', 0, 100);

        $expecteddate = clone($startdatetime);
        $first = true;
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($until, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next iteration.
            $expecteddate->add($interval);
            // Check UUID.
            if ($first) {
                // The first instance of the event contains the UUID.
                $this->assertEquals('uuid', $record->uuid);
                $first = false;
            } else {
                // Succeeding instances will not contain the UUID.
                $this->assertEmpty($record->uuid);
            }
        }
    }

    /**
     * Test recurrence rules for weekly frequency.
     */
    public function test_weekly_events() {
        global $DB;

        $rrule = 'FREQ=WEEKLY;COUNT=1';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(1, $count);
        for ($i = 0; $i < $count; $i++) {
            $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                    'timestart' => ($this->event->timestart + $i * DAYSECS)));
            $this->assertTrue($result);
        }
        // This much seconds after the start of the day.
        $offset = $this->event->timestart - mktime(0, 0, 0, date("n", $this->event->timestart), date("j", $this->event->timestart),
                date("Y", $this->event->timestart));

        // This should generate 4 weekly Monday events.
        $until = $this->event->timestart + WEEKSECS * 4;
        $until = date('Ymd\This\Z', $until);
        $rrule = "FREQ=WEEKLY;BYDAY=MO;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(4, $count);
        $timestart = $this->event->timestart;
        for ($i = 0; $i < $count; $i++) {
            $timestart = strtotime("+$offset seconds next Monday", $timestart);
            $result = $DB->record_exists('event', array('repeatid' => $this->event->id, 'timestart' => $timestart));
            $this->assertTrue($result);
        }

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P3W');

        // Every 3 weeks on Monday, Wednesday for 2 times.
        $rrule = 'FREQ=WEEKLY;INTERVAL=3;BYDAY=MO,WE;COUNT=2';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(2, $records);

        $expecteddate = clone($startdate);
        $expecteddate->modify('1997-09-03');
        foreach ($records as $record) {
            $expecteddate->add($offsetinterval);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            if (date('D', $record->timestart) === 'Mon') {
                // Go to the fifth day of this month.
                $expecteddate->modify('next Wednesday');
            } else {
                // Reset to Monday.
                $expecteddate->modify('last Monday');
                // Go to next period.
                $expecteddate->add($interval);
            }
        }
    }

    /**
     * Test recurrence rules for weekly frequency for RRULE with BYDAY rule set, recurring forever.
     */
    public function test_weekly_byday_forever() {
        global $DB;

        // Set the next Monday as the starting date of this event.
        $startdate = new \DateTime('next Monday');
        // Change the start date of the parent event.
        $startdate = $this->change_event_startdate($startdate->format('Ymd\T090000'));

        // Forever event. This should generate events over time() + 10 year period, every 50 weeks.
        $rrule = 'FREQ=WEEKLY;BYDAY=MO;INTERVAL=50';

        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P10Y'));
        $until = $untildate->getTimestamp();

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $interval = new \DateInterval('P50W');

        // First instance of this set of recurring events.
        $expecteddate = clone($startdate);

        // Iterate over each record and increment the expected date accordingly.
        foreach ($records as $record) {
            $eventdateexpected = $expecteddate->format('Y-m-d H:i:s');
            $eventdateactual = date('Y-m-d H:i:s', $record->timestart);
            $this->assertEquals($eventdateexpected, $eventdateactual);

            $expecteddate->add($interval);
            $this->assertLessThanOrEqual($until, $record->timestart);
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with COUNT and BYMONTHDAY rules set.
     */
    public function test_monthly_events_with_count_bymonthday() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $interval = new \DateInterval('P1M');

        $rrule = "FREQ=MONTHLY;COUNT=3;BYMONTHDAY=2"; // This should generate 3 events in total.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $records = $DB->get_records('event', array('repeatid' => $this->event->id), 'timestart ASC');
        $this->assertCount(3, $records);

        $expecteddate = clone($startdatetime);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next month.
            $expecteddate->add($interval);
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYMONTHDAY and UNTIL rules set.
     */
    public function test_monthly_events_with_until_bymonthday() {
        global $DB;

        // This should generate 10 child event + 1 parent, since by then until bound would be hit.
        $until = strtotime('+1 day +10 months', $this->event->timestart);
        $until = date('Ymd\This\Z', $until);
        $rrule = "FREQ=MONTHLY;BYMONTHDAY=2;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', ['repeatid' => $this->event->id]);
        $this->assertEquals(11, $count);
        for ($i = 0; $i < 11; $i++) {
            $time = strtotime("+$i month", $this->event->timestart);
            $result = $DB->record_exists('event', ['repeatid' => $this->event->id, 'timestart' => $time]);
            $this->assertTrue($result);
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYMONTHDAY and UNTIL rules set.
     */
    public function test_monthly_events_with_until_bymonthday_multi() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));
        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P2M');
        $untildate = clone($startdatetime);
        $untildate->add(new \DateInterval('P10M10D'));
        $until = $untildate->format('Ymd\This\Z');

        // This should generate 11 child event + 1 parent, since by then until bound would be hit.
        $rrule = "FREQ=MONTHLY;INTERVAL=2;BYMONTHDAY=2,5;UNTIL=$until";

        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(12, $records);

        $expecteddate = clone($startdate);
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            if (date('j', $record->timestart) == 2) {
                // Go to the fifth day of this month.
                $expecteddate->add(new \DateInterval('P3D'));
            } else {
                // Reset date to the first day of the month.
                $expecteddate->modify('first day of this month');
                // Go to next month period.
                $expecteddate->add($interval);
                // Go to the second day of the next month period.
                $expecteddate->modify('+1 day');
            }
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYMONTHDAY forever.
     */
    public function test_monthly_events_with_bymonthday_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the 2nd day of the current month and year.
        $this->change_event_startdate(date('Ym02\T090000'));
        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart), new \DateTimeZone('Australia/Perth'));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart), new \DateTimeZone('Australia/Perth'));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P12M');

        // Forever event. This should generate events over a 10-year period, on 2nd day of the month, every 12 months.
        $rrule = "FREQ=MONTHLY;INTERVAL=12;BYMONTHDAY=2";

        $mang = new rrule_manager($rrule);
        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $until = $untildate->getTimestamp();

        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $expecteddate = clone($startdate);
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($until, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Reset date to the first day of the month.
            $expecteddate->modify('first day of this month');
            // Go to next month period.
            $expecteddate->add($interval);
            // Go to the second day of the next month period.
            $expecteddate->modify('+1 day');
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with COUNT and BYDAY rules set.
     */
    public function test_monthly_events_with_count_byday() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P1M');

        $rrule = 'FREQ=MONTHLY;COUNT=3;BYDAY=1MO'; // This should generate 3 events in total, first monday of the month.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        // First occurrence of this set of recurring events: 06-10-1997.
        $expecteddate = clone($startdate);
        $expecteddate->modify('1997-10-06');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next month period.
            $expecteddate->add($interval);
            $expecteddate->modify('first Monday of this month');
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYDAY and UNTIL rules set.
     */
    public function test_monthly_events_with_until_byday() {
        global $DB;

        // This much seconds after the start of the day.
        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $untildate = clone($startdatetime);
        $untildate->add(new \DateInterval('P10M1D'));
        $until = $untildate->format('Ymd\This\Z');

        // This rule should generate 9 events in total from first Monday of October 1997 to first Monday of June 1998.
        $rrule = "FREQ=MONTHLY;BYDAY=1MO;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(9, $records);

        $expecteddate = clone($startdate);
        $expecteddate->modify('first Monday of October 1997');
        foreach ($records as $record) {
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next month.
            $expecteddate->modify('first day of next month');
            // Go to the first Monday of the next month.
            $expecteddate->modify('first Monday of this month');
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYMONTHDAY and UNTIL rules set.
     */
    public function test_monthly_events_with_until_byday_multi() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P2M');

        $untildate = clone($startdatetime);
        $untildate->add(new \DateInterval('P10M20D'));
        $until = $untildate->format('Ymd\This\Z');

        // This should generate 11 events from 17 Sep 1997 to 15 Jul 1998.
        $rrule = "FREQ=MONTHLY;INTERVAL=2;BYDAY=1MO,3WE;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(11, $records);

        $expecteddate = clone($startdate);
        $expecteddate->modify('1997-09-17');
        foreach ($records as $record) {
            $expecteddate->add($offsetinterval);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            if (date('D', $record->timestart) === 'Mon') {
                // Go to the fifth day of this month.
                $expecteddate->modify('third Wednesday of this month');
            } else {
                // Go to next month period.
                $expecteddate->add($interval);
                $expecteddate->modify('first Monday of this month');
            }
        }
    }

    /**
     * Test recurrence rules for monthly frequency for RRULE with BYDAY forever.
     */
    public function test_monthly_events_with_byday_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the 2nd day of the current month and year.
        $this->change_event_startdate(date('Ym02\T090000'));

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart), new \DateTimeZone('Australia/Perth'));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart), new \DateTimeZone('Australia/Perth'));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P12M');

        // Forever event. This should generate events over a 10 year period, on 1st Monday of the month every 12 months.
        $rrule = "FREQ=MONTHLY;INTERVAL=12;BYDAY=1MO";

        $mang = new rrule_manager($rrule);
        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $until = $untildate->getTimestamp();

        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $expecteddate = new \DateTime('first Monday of this month');
        // Move to the next interval's first Monday if the calculated start date is after this month's first Monday.
        if ($expecteddate->getTimestamp() < $startdate->getTimestamp()) {
            $expecteddate->add($interval);
            $expecteddate->modify('first Monday of this month');
        }
        foreach ($records as $record) {
            $expecteddate->add($offsetinterval);
            $this->assertLessThanOrEqual($until, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next month period.
            $expecteddate->add($interval);
            // Reset date to the first Monday of the month.
            $expecteddate->modify('first Monday of this month');
        }
    }

    /**
     * Test recurrence rules for yearly frequency.
     */
    public function test_yearly_events() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P1Y');

        $rrule = "FREQ=YEARLY;COUNT=3;BYMONTH=9"; // This should generate 3 events in total.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(3, $records);

        $expecteddate = clone($startdatetime);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
        }

        // Create a yearly event, until the time limit is hit.
        $until = strtotime('+20 day +10 years', $this->event->timestart);
        $until = date('Ymd\THis\Z', $until);
        $rrule = "FREQ=YEARLY;BYMONTH=9;UNTIL=$until";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(11, $count);
        for ($i = 0, $time = $this->event->timestart; $time < $until; $i++, $yoffset = $i * 2,
            $time = strtotime("+$yoffset years", $this->event->timestart)) {
            $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                    'timestart' => ($time)));
            $this->assertTrue($result);
        }

        // This should generate 5 events in total, every second year in the given month of the event.
        $rrule = "FREQ=YEARLY;BYMONTH=9;INTERVAL=2;COUNT=5";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);
        $count = $DB->count_records('event', array('repeatid' => $this->event->id));
        $this->assertEquals(5, $count);
        for ($i = 0, $time = $this->event->timestart; $i < 5; $i++, $yoffset = $i * 2,
            $time = strtotime("+$yoffset years", $this->event->timestart)) {
            $result = $DB->record_exists('event', array('repeatid' => $this->event->id,
                    'timestart' => ($time)));
            $this->assertTrue($result);
        }

        $rrule = "FREQ=YEARLY;COUNT=3;BYMONTH=9;BYDAY=1MO"; // This should generate 3 events in total.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(3, $records);

        $expecteddate = clone($startdatetime);
        $expecteddate->modify('first Monday of September 1998');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
            $monthyear = $expecteddate->format('F Y');
            $expecteddate->modify('first Monday of ' . $monthyear);
            $expecteddate->add($offsetinterval);
        }

        // Create a yearly event on the specified month, until the time limit is hit.
        $untildate = clone($startdatetime);
        $untildate->add(new \DateInterval('P10Y20D'));
        $until = $untildate->format('Ymd\THis\Z');

        $rrule = "FREQ=YEARLY;BYMONTH=9;UNTIL=$until;BYDAY=1MO";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // 10 yearly records every first Monday of September 1998 to first Monday of September 2007.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(10, $records);

        $expecteddate = clone($startdatetime);
        $expecteddate->modify('first Monday of September 1998');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untildate->getTimestamp(), $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
            $monthyear = $expecteddate->format('F Y');
            $expecteddate->modify('first Monday of ' . $monthyear);
            $expecteddate->add($offsetinterval);
        }

        // This should generate 5 events in total, every second year in the month of September.
        $rrule = "FREQ=YEARLY;BYMONTH=9;INTERVAL=2;COUNT=5;BYDAY=1MO";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // 5 bi-yearly records every first Monday of September 1998 to first Monday of September 2007.
        $interval = new \DateInterval('P2Y');
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(5, $records);

        $expecteddate = clone($startdatetime);
        $expecteddate->modify('first Monday of September 1999');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untildate->getTimestamp(), $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
            $monthyear = $expecteddate->format('F Y');
            $expecteddate->modify('first Monday of ' . $monthyear);
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Test for rrule with FREQ=YEARLY and INTERVAL=2 with BYMONTH rule set, recurring forever.
     */
    public function test_yearly_september_every_two_years_forever() {
        global $DB;

        // Change the start date for forever events to 9am on the 2nd day of September of the current year.
        $this->change_event_startdate(date('Y0902\T090000'));

        $rrule = "FREQ=YEARLY;BYMONTH=9;INTERVAL=2"; // Forever event.
        $mang = new rrule_manager($rrule);
        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $interval = new \DateInterval('P2Y');
        $expecteddate = new \DateTime(date('Y0902\T090000'));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to the next expected date.
            $expecteddate->add($interval);
        }
    }

    /**
     * Test for rrule with FREQ=YEARLY with BYMONTH and BYDAY rules set, recurring forever.
     */
    public function test_yearly_bymonth_byday_forever() {
        global $DB;

        // Change the start date for forever events to the first day of September of the current year at 9am.
        $this->change_event_startdate(date('Y0901\T090000'));

        // Every 2 years on the first Monday of September.
        $rrule = "FREQ=YEARLY;BYMONTH=9;INTERVAL=2;BYDAY=1MO";
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);
        $interval = new \DateInterval('P2Y');

        // First occurrence of this set of events is on the first Monday of September.
        $expecteddate = clone($startdatetime);
        $expecteddate->modify('first Monday of September');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
            $monthyear = $expecteddate->format('F Y');
            $expecteddate->modify('first Monday of ' . $monthyear);
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Test for rrule with FREQ=YEARLY recurring forever.
     */
    public function test_yearly_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the current date.
        $this->change_event_startdate(date('Ymd\T090000'));

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));

        $interval = new \DateInterval('P2Y');

        $rrule = 'FREQ=YEARLY;INTERVAL=2'; // Forever event.
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = clone($startdatetime);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /******************************************************************************************************************************/
    /* Tests based on the examples from the RFC.                                                                                  */
    /******************************************************************************************************************************/

    /**
     * Daily for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=DAILY;COUNT=10
     *   ==> (1997 9:00 AM EDT)September 2-11
     */
    public function test_daily_count() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $interval = new \DateInterval('P1D');

        $rrule = 'FREQ=DAILY;COUNT=10';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(10, $records);

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Daily until December 24, 1997:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=DAILY;UNTIL=19971224T000000Z
     *   ==> (1997 9:00 AM EDT)September 2-30;October 1-25
     *       (1997 9:00 AM EST)October 26-31;November 1-30;December 1-23
     */
    public function test_daily_until() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $interval = new \DateInterval('P1D');

        $untildate = new \DateTime('19971224T000000Z');
        $untiltimestamp = $untildate->getTimestamp();

        $rrule = 'FREQ=DAILY;UNTIL=19971224T000000Z';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 113 daily events from 02-09-1997 to 23-12-1997.
        $this->assertCount(113, $records);

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Every other day - forever:
     *
     * DTSTART;TZID=US-Eastern:[Current date]T090000
     * RRULE:FREQ=DAILY;INTERVAL=2
     *
     * Sample results (e.g. in the year 1997):
     *  (1997 9:00 AM EDT)September2,4,6,8...24,26,28,30;October 2,4,6...20,22,24
     *  (1997 9:00 AM EST)October 26,28,30;November 1,3,5,7...25,27,29;Dec 1,3,...
     */
    public function test_every_other_day_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the current date in America/New_York time.
        $this->change_event_startdate(date('Ymd\T090000'), 'America/New_York');

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $interval = new \DateInterval('P2D');

        $rrule = 'FREQ=DAILY;INTERVAL=2';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Every 10 days, 5 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=DAILY;INTERVAL=10;COUNT=5
     *   ==> (1997 9:00 AM EDT)September 2,12,22;October 2,12
     */
    public function test_every_10_days_5_count() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $interval = new \DateInterval('P10D');

        $rrule = 'FREQ=DAILY;INTERVAL=10;COUNT=5';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(5, $records);

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Everyday in January, for 3 years:
     *
     * DTSTART;TZID=US-Eastern:19980101T090000
     * RRULE:FREQ=YEARLY;UNTIL=20000131T090000Z;BYMONTH=1;BYDAY=SU,MO,TU,WE,TH,FR,SA
     *   ==> (1998 9:00 AM EDT)January 1-31
     *       (1999 9:00 AM EDT)January 1-31
     *       (2000 9:00 AM EDT)January 1-31
     */
    public function test_everyday_in_jan_for_3_years_yearly() {
        global $DB;

        // Change our event's date to 01-01-1998, based on the example from the RFC.
        $this->change_event_startdate('19980101T090000', 'America/New_York');

        $rrule = 'FREQ=YEARLY;UNTIL=20000131T090000Z;BYMONTH=1;BYDAY=SU,MO,TU,WE,TH,FR,SA';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 92 events from 01-01-1998 to 03-01-2000.
        $this->assertCount(92, $records);

        $untildate = new \DateTime('20000131T090000Z');
        $untiltimestamp = $untildate->getTimestamp();
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Assert that the event's date is in January.
            $this->assertEquals('January', date('F', $record->timestart));
        }
    }

    /**
     * Everyday in January, for 3 years:
     *
     * DTSTART;TZID=US-Eastern:19980101T090000
     * RRULE:FREQ=DAILY;UNTIL=20000131T090000Z;BYMONTH=1
     *   ==> (1998 9:00 AM EDT)January 1-31
     *       (1999 9:00 AM EDT)January 1-31
     *       (2000 9:00 AM EDT)January 1-31
     */
    public function test_everyday_in_jan_for_3_years_daily() {
        global $DB;

        // Change our event's date to 01-01-1998, based on the example from the RFC.
        $this->change_event_startdate('19980101T090000', 'America/New_York');

        $rrule = 'FREQ=DAILY;UNTIL=20000131T090000Z;BYMONTH=1';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 92 events from 01-01-1998 to 03-01-2000.
        $this->assertCount(92, $records);

        $untildate = new \DateTime('20000131T090000Z');
        $untiltimestamp = $untildate->getTimestamp();
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Assert that the event's date is in January.
            $this->assertEquals('January', date('F', $record->timestart));
        }
    }

    /**
     * Weekly for 10 occurrences
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;COUNT=10
     *   ==> (1997 9:00 AM EDT)September 2,9,16,23,30;October 7,14,21
     *       (1997 9:00 AM EST)October 28;November 4
     */
    public function test_weekly_10_count() {
        global $DB;

        $interval = new \DateInterval('P1W');

        $rrule = 'FREQ=WEEKLY;COUNT=10';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(10, $records);

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Weekly until December 24, 1997.
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;UNTIL=19971224T000000Z
     *   ==> (1997 9:00 AM EDT)September 2,9,16,23,30;October 7,14,21,28
     *       (1997 9:00 AM EST)November 4,11,18,25;December 2,9,16,23
     */
    public function test_weekly_until_24_dec_1997() {
        global $DB;

        $interval = new \DateInterval('P1W');

        $rrule = 'FREQ=WEEKLY;UNTIL=19971224T000000Z';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 17 iterations from 02-09-1997 13:00 UTC to 23-12-1997 13:00 UTC.
        $this->assertCount(17, $records);

        $untildate = new \DateTime('19971224T000000Z');
        $untiltimestamp = $untildate->getTimestamp();
        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Every other week - forever:
     *
     * DTSTART;TZID=US-Eastern:[Current date]T090000
     * RRULE:FREQ=WEEKLY;INTERVAL=2;WKST=SU
     *
     * Sample results (e.g. in the year 1997):
     *  (1997 9:00 AM EDT)September 2,16,30;October 14
     *  (1997 9:00 AM EST)October 28;November 11,25;December 9,23
     *  (1998 9:00 AM EST)January 6,20;February
     *  ...
     */
    public function test_every_other_week_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the current date in America/New_York time.
        $this->change_event_startdate(date('Ymd\T090000'), 'America/New_York');

        $interval = new \DateInterval('P2W');

        $rrule = 'FREQ=WEEKLY;INTERVAL=2;WKST=SU';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            $expecteddate->add($interval);
        }
    }

    /**
     * Weekly on Tuesday and Thursday for 5 weeks:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH
     *   ==> (1997 9:00 AM EDT)September 2,4,9,11,16,18,23,25,30;October 2
     */
    public function test_weekly_on_tue_thu_for_5_weeks_by_until() {
        global $DB;

        $rrule = 'FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 17 iterations from 02-09-1997 13:00 UTC to 23-12-1997 13:00 UTC.
        $this->assertCount(10, $records);

        $untildate = new \DateTime('19971007T000000Z');
        $untiltimestamp = $untildate->getTimestamp();
        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime($expecteddate->format('Y-m-d'));
        $offset = $expecteddate->diff($startdate, true);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            if ($expecteddate->format('l') === rrule_manager::DAY_TUESDAY) {
                $expecteddate->modify('next Thursday');
            } else {
                $expecteddate->modify('next Tuesday');
            }
            $expecteddate->add($offset);
        }
    }

    /**
     * Weekly on Tuesday and Thursday for 5 weeks:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH
     *   ==> (1997 9:00 AM EDT)September 2,4,9,11,16,18,23,25,30;October 2
     */
    public function test_weekly_on_tue_thu_for_5_weeks_by_count() {
        global $DB;

        $rrule = 'FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 17 iterations from 02-09-1997 13:00 UTC to 23-12-1997 13:00 UTC.
        $this->assertCount(10, $records);

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime($expecteddate->format('Y-m-d'));
        $offset = $expecteddate->diff($startdate, true);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            // Go to next period.
            if ($expecteddate->format('l') === rrule_manager::DAY_TUESDAY) {
                $expecteddate->modify('next Thursday');
            } else {
                $expecteddate->modify('next Tuesday');
            }
            $expecteddate->add($offset);
        }
    }

    /**
     * Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR
     *   ==> (1997 9:00 AM EDT)September 3,5,15,17,19,29;October 1,3,13,15,17
     *       (1997 9:00 AM EST)October 27,29,31;November 10,12,14,24,26,28;December 8,10,12,22
     */
    public function test_every_other_week_until_24_dec_1997_byday() {
        global $DB;

        $rrule = 'FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // 24 iterations every M-W-F from 03-09-1997 13:00 UTC to 22-12-1997 13:00 UTC.
        $this->assertCount(24, $records);

        $untildate = new \DateTime('19971224T000000Z');
        $untiltimestamp = $untildate->getTimestamp();

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);

        // First occurrence of this set of events is on 3 September 1999.
        $expecteddate = clone($startdatetime);
        $expecteddate->modify('next Wednesday');
        $expecteddate->add($offsetinterval);
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            switch ($expecteddate->format('l')) {
                case rrule_manager::DAY_MONDAY:
                    $expecteddate->modify('next Wednesday');
                    break;
                case rrule_manager::DAY_WEDNESDAY:
                    $expecteddate->modify('next Friday');
                    break;
                default:
                    $expecteddate->modify('next Monday');
                    // Increment expected date by 1 week if the next day is Monday.
                    $expecteddate->add(new \DateInterval('P1W'));
                    break;
            }
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Every other week on Tuesday and Thursday, for 8 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH
     *   ==> (1997 9:00 AM EDT)September 2,4,16,18,30;October 2,14,16
     */
    public function test_every_other_week_byday_8_count() {
        global $DB;

        $rrule = 'FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should correspond to COUNT rule.
        $this->assertCount(8, $records);

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));

        $offsetinterval = $startdatetime->diff($startdate, true);

        // First occurrence of this set of events is on 2 September 1999.
        $expecteddate = clone($startdatetime);
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            switch ($expecteddate->format('l')) {
                case rrule_manager::DAY_TUESDAY:
                    $expecteddate->modify('next Thursday');
                    break;
                default:
                    $expecteddate->modify('next Tuesday');
                    // Increment expected date by 1 week if the next day is Tuesday.
                    $expecteddate->add(new \DateInterval('P1W'));
                    break;
            }
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Monthly on the 1st Friday for ten occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970905T090000
     * RRULE:FREQ=MONTHLY;COUNT=10;BYDAY=1FR
     *   ==> (1997 9:00 AM EDT)September 5;October 3
     *       (1997 9:00 AM EST)November 7;Dec 5
     *       (1998 9:00 AM EST)January 2;February 6;March 6;April 3
     *       (1998 9:00 AM EDT)May 1;June 5
     */
    public function test_monthly_every_first_friday_10_count() {
        global $DB;

        // Change our event's date to 05-09-1997, based on the example from the RFC.
        $startdatetime = $this->change_event_startdate('19970905T090000', 'America/New_York');
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;COUNT=10;BYDAY=1FR';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should correspond to COUNT rule.
        $this->assertCount(10, $records);

        foreach ($records as $record) {
            // Get the first Friday of the record's month.
            $recordmonthyear = date('F Y', $record->timestart);
            $expecteddate = new \DateTime('first Friday of ' . $recordmonthyear);
            // Add the time of the event.
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
        }
    }

    /**
     * Monthly on the 1st Friday until December 24, 1997:
     *
     * DTSTART;TZID=US-Eastern:19970905T090000
     * RRULE:FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR
     *   ==> (1997 9:00 AM EDT)September 5;October 3
     *       (1997 9:00 AM EST)November 7;December 5
     */
    public function test_monthly_every_first_friday_until() {
        global $DB;

        // Change our event's date to 05-09-1997, based on the example from the RFC.
        $startdatetime = $this->change_event_startdate('19970905T090000', 'America/New_York');
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 4 events, every first friday of September 1997 to December 1997.
        $this->assertCount(4, $records);

        foreach ($records as $record) {
            // Get the first Friday of the record's month.
            $recordmonthyear = date('F Y', $record->timestart);
            $expecteddate = new \DateTime('first Friday of ' . $recordmonthyear);
            // Add the time of the event.
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
        }
    }

    /**
     * Every other month on the 1st and last Sunday of the month for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970907T090000
     * 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
     */
    public function test_every_other_month_1st_and_last_sunday_10_count() {
        global $DB;

        // Change our event's date to 05-09-1997, based on the example from the RFC.
        $startdatetime = $this->change_event_startdate('19970907T090000', 'America/New_York');
        $startdate = new \DateTime(date('Y-m-d', $this->event->timestart));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        // First occurrence is 07-09-1997 which is the first Sunday.
        $ordinal = 'first';
        foreach ($records as $record) {
            // Get date of the month's first/last Sunday.
            $recordmonthyear = date('F Y', $record->timestart);
            $expecteddate = new \DateTime($ordinal . ' Sunday of ' . $recordmonthyear);
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
            if ($ordinal === 'first') {
                $ordinal = 'last';
            } else {
                $ordinal = 'first';
            }
        }
    }

    /**
     * Monthly on the second to last Monday of the month for 6 months:
     *
     * DTSTART;TZID=US-Eastern:19970922T090000
     * 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
     */
    public function test_monthly_last_monday_for_6_months() {
        global $DB;

        // Change our event's date to 05-09-1997, based on the example from the RFC.
        $startdatetime = $this->change_event_startdate('19970922T090000', 'America/New_York');
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;COUNT=6;BYDAY=-2MO';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 6 records based on COUNT rule.
        $this->assertCount(6, $records);

        foreach ($records as $record) {
            // Get date of the month's last Monday.
            $recordmonthyear = date('F Y', $record->timestart);
            $expecteddate = new \DateTime('last Monday of ' . $recordmonthyear);
            // Modify to get the second to the last Monday.
            $expecteddate->modify('last Monday');
            // Add offset.
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
        }
    }

    /**
     * Monthly on the third to the last day of the month, forever:
     *
     * DTSTART;TZID=US-Eastern:[Current year]0928T090000
     * RRULE:FREQ=MONTHLY;BYMONTHDAY=-3
     *
     * Sample results (e.g. in the year 1997):
     *  (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
     *  ...
     */
    public function test_third_to_the_last_day_of_the_month_forever() {
        global $DB;

        // Change our event's date to 28 September of the current year, based on the example from the RFC.
        $this->change_event_startdate(date('Y0928\T090000'), 'America/New_York');

        $rrule = 'FREQ=MONTHLY;BYMONTHDAY=-3';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $subinterval = new \DateInterval('P2D');
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Get date of the third to the last day of the month.
            $recordmonthyear = date('F Y', $record->timestart);
            $expecteddate = new \DateTime('last day of ' . $recordmonthyear);
            // Set time to 9am.
            $expecteddate->setTime(9, 0);
            // Modify to get the third to the last day of the month.
            $expecteddate->sub($subinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
        }
    }

    /**
     * Monthly on the 2nd and 15th of the month for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15
     *   ==> (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
     */
    public function test_every_2nd_and_15th_of_the_month_10_count() {
        global $DB;

        $startdatetime = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        $day = '02';
        foreach ($records as $record) {
            // Get the first Friday of the record's month.
            $recordmonthyear = date('Y-m', $record->timestart);

            // Get date of the month's last Monday.
            $expecteddate = new \DateTime("$recordmonthyear-$day");
            // Add offset.
            $expecteddate->add($offsetinterval);
            if ($day === '02') {
                $day = '15';
            } else {
                $day = '02';
            }

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));
        }
    }

    /**
     * Monthly on the first and last day of the month for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970930T090000
     * RRULE:FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1
     *   ==> (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
     */
    public function test_every_first_and_last_day_of_the_month_10_count() {
        global $DB;

        $startdatetime = $this->change_event_startdate('19970930T090000', 'America/New_York');
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offsetinterval = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        // First occurrence is 30-Sep-1997.
        $day = 'last';
        foreach ($records as $record) {
            // Get the first Friday of the record's month.
            $recordmonthyear = date('F Y', $record->timestart);

            // Get date of the month's last Monday.
            $expecteddate = new \DateTime("$day day of $recordmonthyear");
            // Add offset.
            $expecteddate->add($offsetinterval);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            if ($day === 'first') {
                $day = 'last';
            } else {
                $day = 'first';
            }
        }
    }

    /**
     * Every 18 months on the 10th thru 15th of the month for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970910T090000
     * 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
     */
    public function test_every_18_months_days_10_to_15_10_count() {
        global $DB;

        $startdatetime = $this->change_event_startdate('19970910T090000', 'America/New_York');

        $rrule = 'FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        // First occurrence is 10-Sep-1997.
        $expecteddate = clone($startdatetime);
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Get next expected date.
            if ($expecteddate->format('d') == 15) {
                // If 15th, increment by 18 months.
                $expecteddate->add(new \DateInterval('P18M'));
                // Then go back to the 10th.
                $expecteddate->sub(new \DateInterval('P5D'));
            } else {
                // Otherwise, increment by 1 day.
                $expecteddate->add(new \DateInterval('P1D'));
            }
        }
    }

    /**
     * Every Tuesday, every other month:
     *
     * DTSTART;TZID=US-Eastern:[Next Tuesday]T090000
     * RRULE:FREQ=MONTHLY;INTERVAL=2;BYDAY=TU
     *
     * Sample results (e.g. in the year 1997):
     *  (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
     *  ...
     */
    public function test_every_tuesday_every_other_month_forever() {
        global $DB;

        // Change the start date for forever events to 9am of the Tuesday on or before of the current date in America/New_York time.
        $nexttuesday = new \DateTime('next Tuesday');
        $this->change_event_startdate($nexttuesday->format('Ymd\T090000'), 'America/New_York');

        $rrule = 'FREQ=MONTHLY;INTERVAL=2;BYDAY=TU';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $this->event->timestart));
        $nextmonth = new \DateTime($expecteddate->format('Y-m-d'));
        $offset = $expecteddate->diff($nextmonth, true);
        $nextmonth->modify('first day of next month');
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Get next expected date.
            $expecteddate->modify('next Tuesday');
            if ($expecteddate->getTimestamp() >= $nextmonth->getTimestamp()) {
                // Go to the end of the month.
                $expecteddate->modify('last day of this month');
                // Find the next Tuesday.
                $expecteddate->modify('next Tuesday');

                // Increment next month by 2 months.
                $nextmonth->add(new \DateInterval('P2M'));
            }
            $expecteddate->add($offset);
        }
    }

    /**
     * Yearly in June and July for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970610T090000
     * 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.
     */
    public function test_yearly_in_june_july_10_count() {
        global $DB;

        $startdatetime = $this->change_event_startdate('19970610T090000', 'America/New_York');

        $rrule = 'FREQ=YEARLY;COUNT=10;BYMONTH=6,7';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        $expecteddate = $startdatetime;
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        $monthinterval = new \DateInterval('P1M');
        $yearinterval = new \DateInterval('P1Y');
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Get next expected date.
            if ($expecteddate->format('m') == 6) {
                // Go to the month of July.
                $expecteddate->add($monthinterval);
            } else {
                // Go to the month of June next year.
                $expecteddate->sub($monthinterval);
                $expecteddate->add($yearinterval);
            }
        }
    }

    /**
     * Every other year on January, February, and March for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970310T090000
     * 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
     */
    public function test_every_other_year_in_june_july_10_count() {
        global $DB;

        $startdatetime = $this->change_event_startdate('19970310T090000', 'America/New_York');

        $rrule = 'FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        $expecteddate = $startdatetime;
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        $monthinterval = new \DateInterval('P1M');
        $yearinterval = new \DateInterval('P2Y');
        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Get next expected date.
            if ($expecteddate->format('m') != 3) {
                // Go to the next month.
                $expecteddate->add($monthinterval);
            } else {
                // Go to the month of January next year.
                $expecteddate->sub($monthinterval);
                $expecteddate->sub($monthinterval);
                $expecteddate->add($yearinterval);
            }
        }
    }

    /**
     * Every 3rd year on the 1st, 100th and 200th day for 10 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970101T090000
     * 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
     */
    public function test_every_3_years_1st_100th_200th_days_10_count() {
        global $DB;

        $startdatetime = $this->change_event_startdate('19970101T090000', 'America/New_York');

        $rrule = 'FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        // Should have 10 records based on COUNT rule.
        $this->assertCount(10, $records);

        $expecteddate = $startdatetime;
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        $hundredthdayinterval = new \DateInterval('P99D');
        $twohundredthdayinterval = new \DateInterval('P100D');
        $yearinterval = new \DateInterval('P3Y');

        foreach ($records as $record) {
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Get next expected date.
            if ($expecteddate->format('z') == 0) { // January 1.
                $expecteddate->add($hundredthdayinterval);
            } else if ($expecteddate->format('z') == 99) { // 100th day of the year.
                $expecteddate->add($twohundredthdayinterval);
            } else { // 200th day of the year.
                $expecteddate->add($yearinterval);
                $expecteddate->modify('January 1');
            }
        }
    }

    /**
     * Every 20th Monday of the year, forever:
     *
     * DTSTART;TZID=US-Eastern:[20th Monday of the current year]T090000
     * RRULE:FREQ=YEARLY;BYDAY=20MO
     *
     * Sample results (e.g. in the year 1997):
     *  (1997 9:00 AM EDT)May 19
     *  (1998 9:00 AM EDT)May 18
     *  (1999 9:00 AM EDT)May 17
     *  ...
     */
    public function test_yearly_every_20th_monday_forever() {
        global $DB;

        // Change our event's date to the 20th Monday of the current year.
        $twentiethmonday = new \DateTime(date('Y-01-01'));
        $twentiethmonday->modify('+20 Monday');
        $startdatetime = $this->change_event_startdate($twentiethmonday->format('Ymd\T000000'), 'America/New_York');

        $interval = new \DateInterval('P1Y');

        $rrule = 'FREQ=YEARLY;BYDAY=20MO';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = $startdatetime;
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->modify('January 1');
            $expecteddate->add($interval);
            $expecteddate->modify("+20 Monday");
        }
    }

    /**
     * Monday of week number 20 (where the default start of the week is Monday), forever:
     *
     * DTSTART;TZID=US-Eastern:[1st day of the 20th week this year]T090000
     * RRULE:FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO
     *
     * Sample results (e.g. in the year 1997):
     *  (1997 9:00 AM EDT)May 12
     *  (1998 9:00 AM EDT)May 11
     *  (1999 9:00 AM EDT)May 17
     *  ...
     */
    public function test_yearly_byweekno_forever() {
        global $DB;

        // Change our event's date to the start of the 20th week of the current year.
        $twentiethweek = new \DateTime(date('Y-01-01'));
        $twentiethweek->setISODate($twentiethweek->format('Y'), 20);
        $startdatetime = $this->change_event_startdate($twentiethweek->format('Ymd\T090000'), 'America/New_York');

        $startdate = clone($startdatetime);
        $startdate->modify($startdate->format('Y-m-d'));

        $offset = $startdatetime->diff($startdate, true);

        $interval = new \DateInterval('P1Y');

        $rrule = 'FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->add($interval);
            $expecteddate->setISODate($expecteddate->format('Y'), 20);
            $expecteddate->add($offset);
        }
    }

    /**
     * Every Thursday in March, forever:
     *
     * DTSTART;TZID=US-Eastern:[First thursday of March of the current year]T090000
     * RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=TH
     *
     * Sample results (e.g. in the year 1997):
     *  (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
     *  ...
     */
    public function test_every_thursday_in_march_forever() {
        global $DB;

        // Change our event's date to the first Thursday of March of the current year at 9am America/New_York time.
        $firstthursdayofmarch = new \DateTime('first Thursday of March');
        $startdatetime = $this->change_event_startdate($firstthursdayofmarch->format('Ymd\T090000'), 'America/New_York');

        $interval = new \DateInterval('P1Y');

        $rrule = 'FREQ=YEARLY;BYMONTH=3;BYDAY=TH';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = $startdatetime;
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offsetinterval = $startdatetime->diff($startdate, true);
        $expecteddate->setTimezone(new \DateTimeZone(get_user_timezone()));
        $april1st = new \DateTime('April 1');
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->modify('next Thursday');
            if ($expecteddate->getTimestamp() >= $april1st->getTimestamp()) {
                // Reset to 1st of March.
                $expecteddate->modify('first day of March');
                // Go to next year.
                $expecteddate->add($interval);
                if ($expecteddate->format('l') !== rrule_manager::DAY_THURSDAY) {
                    $expecteddate->modify('next Thursday');
                }
                // Increment to next year's April 1st.
                $april1st->add($interval);
            }
            $expecteddate->add($offsetinterval);
        }
    }

    /**
     * Every Thursday, but only during June, July, and August, forever:
     *
     * DTSTART;TZID=US-Eastern:[First Thursday of June of the current year]T090000
     * RRULE:FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8
     *
     * Sample results (e.g. in the year 1997):
     *  (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
     *  ...
     */
    public function test_every_thursday_june_july_august_forever() {
        global $DB;

        // Change our event's date to the first Thursday of June in the current year at 9am America/New_York time.
        $firstthursdayofjune = new \DateTime('first Thursday of June');
        $startdatetime = $this->change_event_startdate($firstthursdayofjune->format('Ymd\T090000'), 'America/New_York');

        $startdate = new \DateTime($startdatetime->format('Y-m-d'));

        $offset = $startdatetime->diff($startdate, true);

        $interval = new \DateInterval('P1Y');

        $rrule = 'FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $expecteddate = new \DateTime(date('Y-m-d H:i:s', $startdatetime->getTimestamp()));
        $september1st = new \DateTime('September 1');
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Go to next period.
            $expecteddate->modify('next Thursday');
            if ($expecteddate->getTimestamp() >= $september1st->getTimestamp()) {
                $expecteddate->add($interval);
                $expecteddate->modify('June 1');
                if ($expecteddate->format('l') !== rrule_manager::DAY_THURSDAY) {
                    $expecteddate->modify('next Thursday');
                }
                $september1st->add($interval);
            }
            $expecteddate->add($offset);
        }
    }

    /**
     * Every Friday the 13th, forever:
     *
     * DTSTART;TZID=US-Eastern:[Current date]T090000
     * RRULE:FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13
     *
     * Sample results (e.g. in the year 1997):
     *  (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
     *  ...
     */
    public function test_friday_the_thirteenth_forever() {
        global $DB;

        // Change our event's date to the first Thursday of June in the current year at 9am America/New_York time.
        $this->change_event_startdate(date('Ymd\T090000'), 'America/New_York');

        $rrule = 'FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);
            // Assert that the day of the month and the day correspond to Friday the 13th.
            $this->assertEquals('Friday 13', date('l d', $record->timestart));
        }
    }

    /**
     * The first Saturday that follows the first Sunday of the month, forever:
     *
     * DTSTART;TZID=US-Eastern:[The Saturday after the month's first Sunday]T090000
     * RRULE:FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13
     *
     * Sample results (e.g. from 13 September 1997):
     *  (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...
     */
    public function test_first_saturday_following_first_sunday_forever() {
        global $DB;

        // Change our event's date to the next Saturday after the first Sunday of the current month at 9am America/New_York time.
        $firstsaturdayafterfirstsunday = new \DateTime('first Sunday of this month');
        $firstsaturdayafterfirstsunday->modify('next Saturday');
        $startdatetime = $this->change_event_startdate($firstsaturdayafterfirstsunday->format('Ymd\T090000'), 'America/New_York');
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offset = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 100 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 100);

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();
        $bymonthdays = [7, 8, 9, 10, 11, 12, 13];
        foreach ($records as $record) {
            $recordmonthyear = date('F Y', $record->timestart);
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Get first Saturday after the first Sunday of the month.
            $expecteddate = new \DateTime('first Sunday of ' . $recordmonthyear);
            $expecteddate->modify('next Saturday');
            $expecteddate->add($offset);

            // Assert the record's date corresponds to the first Saturday of the month.
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Assert that the record is either the 7th, 8th, 9th, ... 13th day of the month.
            $this->assertContainsEquals(date('j', $record->timestart), $bymonthdays);
        }
    }

    /**
     * Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day):
     *
     * DTSTART;TZID=US-Eastern:[Most recent election date]T090000
     * RRULE:FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8
     *
     * Sample results (e.g. from 05 November 1996):
     *  (1996 9:00 AM EST)November 5
     *  (2000 9:00 AM EST)November 7
     *  (2004 9:00 AM EST)November 2
     *  ...
     */
    public function test_every_us_presidential_election_forever() {
        global $DB;

        // Calculate the most recent election date, starting from 1996 (e.g. today's 2017 so the most recent election was in 2016).
        $currentyear = (int) date('Y');
        $electionyear = 1996;
        while ($electionyear + 4 < $currentyear) {
            $electionyear += 4;
        }
        $electiondate = new \DateTime('first Monday of November ' . $electionyear);
        $electiondate->modify('+1 Tuesday');

        // Use the most recent election date as the starting date of our recurring events.
        $startdatetime = $this->change_event_startdate($electiondate->format('Ymd\T090000'), 'America/New_York');
        $startdate = new \DateTime($startdatetime->format('Y-m-d'));
        $offset = $startdatetime->diff($startdate, true);

        $rrule = 'FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();
        $bymonthdays = [2, 3, 4, 5, 6, 7, 8];
        foreach ($records as $record) {
            $recordmonthyear = date('F Y', $record->timestart);
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Get first Saturday after the first Sunday of the month.
            $expecteddate = new \DateTime('first Monday of ' . $recordmonthyear);
            $expecteddate->modify('next Tuesday');
            $expecteddate->add($offset);

            // Assert the record's date corresponds to the first Saturday of the month.
            $this->assertEquals($expecteddate->format('Y-m-d H:i:s'), date('Y-m-d H:i:s', $record->timestart));

            // Assert that the record is either the 2nd, 3rd, 4th ... 8th day of the month.
            $this->assertContainsEquals(date('j', $record->timestart), $bymonthdays);
        }
    }

    /**
     * The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months:
     *
     * DTSTART;TZID=US-Eastern:19970904T090000
     * 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
     */
    public function test_monthly_bysetpos_3_count() {
        global $DB;

        $this->change_event_startdate('19970904T090000', 'America/New_York');

        $rrule = 'FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(3, $records);

        $expecteddates = [
            (new \DateTime('1997-09-04 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-10-07 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-11-06 09:00:00 EST'))->getTimestamp()
        ];
        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * The 2nd to last weekday of the month:
     *
     * DTSTART;TZID=US-Eastern:19970929T090000
     * RRULE:FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2;COUNT=7
     *   ==> (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
     *       ...
     *
     * (Original RFC example is set to recur forever. But we just want to verify that the results match the dates listed from
     * the RFC example. So just limit the count to 7.)
     */
    public function test_second_to_the_last_weekday_of_the_month() {
        global $DB;

        $this->change_event_startdate('19970929T090000', 'America/New_York');

        $rrule = 'FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2;COUNT=7';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        // Get the first 7 samples. This should be enough to verify that we have generated the recurring events correctly.
        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart', 0, 7);

        $expecteddates = [
            (new \DateTime('1997-09-29 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-10-30 09:00:00 EST'))->getTimestamp(),
            (new \DateTime('1997-11-27 09:00:00 EST'))->getTimestamp(),
            (new \DateTime('1997-12-30 09:00:00 EST'))->getTimestamp(),
            (new \DateTime('1998-01-29 09:00:00 EST'))->getTimestamp(),
            (new \DateTime('1998-02-26 09:00:00 EST'))->getTimestamp(),
            (new \DateTime('1998-03-30 09:00:00 EST'))->getTimestamp(),
        ];

        $untildate = new \DateTime();
        $untildate->add(new \DateInterval('P' . $mang::TIME_UNLIMITED_YEARS . 'Y'));
        $untiltimestamp = $untildate->getTimestamp();

        $i = 0;
        foreach ($records as $record) {
            $this->assertLessThanOrEqual($untiltimestamp, $record->timestart);

            // Confirm that the first 7 records correspond to the expected dates listed above.
            $this->assertEquals($expecteddates[$i], $record->timestart);
            $i++;
        }
    }

    /**
     * Every 3 hours from 9:00 AM to 5:00 PM on a specific day:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T210000Z
     *   ==> (September 2, 1997 EDT)09:00,12:00,15:00
     */
    public function test_every_3hours_9am_to_5pm() {
        global $DB;

        $rrule = 'FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T210000Z';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(3, $records);

        $expecteddates = [
            (new \DateTime('1997-09-02 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 12:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 15:00:00 EDT'))->getTimestamp(),
        ];
        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * Every 15 minutes for 6 occurrences:
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=MINUTELY;INTERVAL=15;COUNT=6
     *   ==> (September 2, 1997 EDT)09:00,09:15,09:30,09:45,10:00,10:15
     */
    public function test_every_15minutes_6_count() {
        global $DB;

        $rrule = 'FREQ=MINUTELY;INTERVAL=15;COUNT=6';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(6, $records);

        $expecteddates = [
            (new \DateTime('1997-09-02 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 09:15:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 09:30:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 09:45:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 10:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 10:15:00 EDT'))->getTimestamp(),
        ];
        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

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

        $rrule = 'FREQ=MINUTELY;INTERVAL=90;COUNT=4';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(4, $records);

        $expecteddates = [
            (new \DateTime('1997-09-02 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 10:30:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 12:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-09-02 13:30:00 EDT'))->getTimestamp(),
        ];
        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * Every 20 minutes from 9:00 AM to 4:40 PM every day for 100 times:
     *
     * (Original RFC example is set to everyday forever, but that will just take a lot of time for the test,
     * so just limit the count to 50).
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40;COUNT=50
     *   ==> (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
     *       ...
     */
    public function test_every_20minutes_daily_byhour_byminute_50_count() {
        global $DB;

        $rrule = 'FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40;COUNT=50';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $byminuteinterval = new \DateInterval('PT20M');
        $bydayinterval = new \DateInterval('P1D');
        $date = new \DateTime('1997-09-02 09:00:00 EDT');
        $expecteddates = [];
        $count = 50;
        for ($i = 0; $i < $count; $i++) {
            $expecteddates[] = $date->getTimestamp();
            $date->add($byminuteinterval);
            if ($date->format('H') > 16) {
                // Go to next day.
                $date->add($bydayinterval);
                // Reset time to 9am.
                $date->setTime(9, 0);
            }
        }

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount($count, $records);

        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * Every 20 minutes from 9:00 AM to 4:40 PM every day for 100 times:
     *
     * (Original RFC example is set to everyday forever, but that will just take a lot of time for the test,
     * so just limit the count to 50).
     *
     * DTSTART;TZID=US-Eastern:19970902T090000
     * RRULE:FREQ=MINUTELY;INTERVAL=20;BYHOUR=9,10,11,12,13,14,15,16;COUNT=50
     *   ==> (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
     *       ...
     */
    public function test_every_20minutes_minutely_byhour_50_count() {
        global $DB;

        $rrule = 'FREQ=MINUTELY;INTERVAL=20;BYHOUR=9,10,11,12,13,14,15,16;COUNT=50';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $byminuteinterval = new \DateInterval('PT20M');
        $bydayinterval = new \DateInterval('P1D');
        $date = new \DateTime('1997-09-02 09:00:00');
        $expecteddates = [];
        $count = 50;
        for ($i = 0; $i < $count; $i++) {
            $expecteddates[] = $date->getTimestamp();
            $date->add($byminuteinterval);
            if ($date->format('H') > 16) {
                // Go to next day.
                $date->add($bydayinterval);
                // Reset time to 9am.
                $date->setTime(9, 0);
            }
        }

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount($count, $records);

        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * An example where the days generated makes a difference because of WKST:
     *
     * DTSTART;TZID=US-Eastern:19970805T090000
     * RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=MO
     *   ==> (1997 EDT)Aug 5,10,19,24
     */
    public function test_weekly_byday_with_wkst_mo() {
        global $DB;

        $this->change_event_startdate('19970805T090000', 'America/New_York');

        $rrule = 'FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=MO';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(4, $records);

        $expecteddates = [
            (new \DateTime('1997-08-05 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-10 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-19 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-24 09:00:00 EDT'))->getTimestamp(),
        ];
        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /**
     * An example where the days generated makes a difference because of WKST:
     * Changing only WKST from MO to SU, yields different results...
     *
     * DTSTART;TZID=US-Eastern:19970805T090000
     * RRULE:FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU
     *   ==> (1997 EDT)August 5,17,19,31
     */
    public function test_weekly_byday_with_wkst_su() {
        global $DB;

        $this->change_event_startdate('19970805T090000', 'America/New_York');

        $rrule = 'FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(4, $records);

        $expecteddates = [
            (new \DateTime('1997-08-05 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-17 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-19 09:00:00 EDT'))->getTimestamp(),
            (new \DateTime('1997-08-31 09:00:00 EDT'))->getTimestamp(),
        ];

        foreach ($records as $record) {
            $this->assertContainsEquals($record->timestart, $expecteddates,
                date('Y-m-d H:i:s', $record->timestart) . ' is not found.');
        }
    }

    /*
     * Other edge case tests.
     */

    /**
     * Tests for MONTHLY RRULE with BYMONTHDAY set to 31.
     * Should not include February, April, June, September and November.
     */
    public function test_monthly_bymonthday_31() {
        global $DB;

        $rrule = 'FREQ=MONTHLY;BYMONTHDAY=31;COUNT=20';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(20, $records);

        $non31months = ['February', 'April', 'June', 'September', 'November'];

        foreach ($records as $record) {
            $month = date('F', $record->timestart);
            $this->assertNotContains($month, $non31months);
        }
    }

    /**
     * Tests for the last day in February. (Leap year test)
     */
    public function test_yearly_on_the_last_day_of_february() {
        global $DB;

        $rrule = 'FREQ=YEARLY;BYMONTH=2;BYMONTHDAY=-1;COUNT=30';
        $mang = new rrule_manager($rrule);
        $mang->parse_rrule();
        $mang->create_events($this->event);

        $records = $DB->get_records('event', ['repeatid' => $this->event->id], 'timestart ASC', 'id, repeatid, timestart');
        $this->assertCount(30, $records);

        foreach ($records as $record) {
            $date = new \DateTime(date('Y-m-d H:i:s', $record->timestart));
            $year = $date->format('Y');
            $day = $date->format('d');
            if ($year % 4 == 0) {
                $this->assertEquals(29, $day);
            } else {
                $this->assertEquals(28, $day);
            }
        }
    }

    /**
     * Change the event's timestart (DTSTART) based on the test's needs.
     *
     * @param string $datestr The date string. In 'Ymd\This' format. e.g. 19990902T090000.
     * @param null|string $timezonestr A valid timezone string. e.g. 'America/New_York'.
     *                                 If not provided, the default timezone will be used.
     * @return bool|DateTime
     */
    protected function change_event_startdate($datestr, $timezonestr = null) {
        // Use default timezone if not provided.
        if ($timezonestr === null) {
            $newdatetime = \DateTime::createFromFormat('Ymd\THis', $datestr);
        } else {
            $timezone = new \DateTimeZone($timezonestr);
            $newdatetime = \DateTime::createFromFormat('Ymd\THis', $datestr, $timezone);
        }

        // Update the start date of the parent event.
        $calevent = \calendar_event::load($this->event->id);
        $updatedata = (object)[
            'timestart' => $newdatetime->getTimestamp(),
            'repeatid' => $this->event->id
        ];
        $calevent->update($updatedata, false);
        $this->event->timestart = $calevent->timestart;

        return $newdatetime;
    }
}
