#!perl
use Cassandane::Tiny;

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

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

    $res = $jmap->CallMethods([
        ['AddressBook/set', {
            update => {
                $id => {
                    shareWith => {
                        sharee => {
                            unknownAddressBookRight => JSON::true,
                        },
                    },
                },
            },
        }, 'R1'],
    ]);

    $self->assert_str_equals('invalidProperties',
        $res->[0][1]{notUpdated}{$id}{type});

    $self->assert_deep_equals(['shareWith/sharee/unknownAddressBookRight'],
        $res->[0][1]{notUpdated}{$id}{properties});
}
