#!perl
use Cassandane::Tiny;

sub test_calendar_get_default
    :min_version_3_1
    ($self)
{
    my $jmap = $self->default_user->jmap;

    # XXX - A previous CalDAV test might have created the default
    # calendar already. To make this test self-sufficient, we need
    # to create a test user just for this test. How?
    xlog $self, "get default calendar";
    my $res = $jmap->CallMethods([['Calendar/get', { }, "R1"]]);
    $self->assert_equals(JSON::true, $res->[0][1]{list}[0]{isDefault});
    $self->assert_str_equals("/dav/calendars/user/cassandane/Default",
                             $res->[0][1]{list}[0]{'x-href'});
}
