#!perl
use Cassandane::Tiny;

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

    my $imaptalk = $self->{store}->get_client();
    my $admintalk = $self->{adminstore}->get_client();

    # Create user and share mailbox
    $self->{instance}->create_user("foo");
    $admintalk->setacl("user.foo", "cassandane", "lrwikxd") or die;

    # Create user but don't share mailbox
    $self->{instance}->create_user("bar");

    my $upload = $jmap->upload({
        type => "text/rubbish",
        blob => \"an email with some text",
        accountId => "foo",
    });

    $self->assert($upload->is_success);

    $upload = $jmap->upload({
        type => "text/rubbish",
        blob => \"an email with some text",
        accountId => "bar",
    });
    $self->assert(!$upload->is_success);
    $self->assert_str_equals('404', $upload->http_response->code);
}
