#!perl
use Cassandane::Tiny;

sub test_card_get_invalid_utf8
    ($self)
{
    my $jmap = $self->{jmap};

    my $datadir = $self->{instance}->folder_to_directory("user.cassandane.#addressbooks.Default");
    copy('data/vcard/invalid-utf8.eml', "$datadir/1.") or die;
    $self->{instance}->run_command({ cyrus => 1 },
        'reconstruct', 'user.cassandane.#addressbooks.Default');

    my $res = $jmap->CallMethods([
        ['ContactCard/get', {
            properties => ['emails'],
        }, 'R1']
    ]);
    $self->assert_str_equals("beno\N{REPLACEMENT CHARACTER}t\@local",
                             $res->[0][1]{list}[0]{emails}{e1}{address});
}
