#!perl
use Cassandane::Tiny;

sub test_calendarevent_set_recurrence_bymonthday
    :min_version_3_1
    ($self)
{
    my $jmap = $self->default_user->jmap;
    my $default_cal_id = $self->default_user->calendars->default->id;

    my $calid = $self->default_user->calendars->default->id;

    my $event =  {
        "uid" => "90c2697e-acbc-4508-9e72-6b8828e8d9f3",
        calendarIds => {
            $calid => JSON::true,
        },
        "start" => "2019-01-31T09:00:00",
        "duration" => "PT1H",
        "timeZone" => "Australia/Melbourne",
        "\@type" => "Event",
        "title" => "Recurrence test",
        "description" => "",
        "showWithoutTime" => JSON::false,
        "recurrenceRules" => [{
            "frequency" => "monthly",
            "byMonthDay" => [
                -1
            ]
        }],
    };

    my $ret = $self->createandget_event($event);
    $event->{id} = $ret->{id};
    $self->assert_normalized_event_equals($event, $ret);
}
