#!perl
use Cassandane::Tiny;

sub test_email_import_issue3122
    :min_version_3_1 :needs_component_sieve
    ($self)
{
    my $jmap = $self->{jmap};

    my $binary = slurp_file(abs_path('data/mime/msg1.eml'));
    my $data = $jmap->Upload($binary, "message/rfc822");
    my $blobId = $data->{blobId};

    # Not crashing here is enough.

    my $res = $jmap->CallMethods([
                ['Email/import', {
                        emails => {
                                "1" => {
                                        blobId => $blobId,
                                        mailboxIds => {
                                                '$inbox' =>  JSON::true},
                                },
                        },
                }, "R1"]
        ]);
}
