#!perl
use Cassandane::Tiny;

sub test_addressbook_set_destroy_default
    :min_version_3_9
    ($self)
{
    my $jmap = $self->{jmap};

    xlog $self, "get addressbook ids";
    my $res = $jmap->CallMethods([['AddressBook/get', {}, "R1"]]);
    my $defaultId = $res->[0][1]{list}[0]{id};

    xlog "Attempt to destroy default addressbook";
    $res = $jmap->CallMethods([
        ['AddressBook/set', {
            destroy => [$defaultId],
        }, 'R1'],
    ]);
    $self->assert_str_equals('forbidden',
        $res->[0][1]{notDestroyed}{$defaultId}{type});
}
