#!perl
use Cassandane::Tiny;

sub test_move_new_user
    :NoAltNameSpace
    ($self)
{
    # test whether the imap_admins setting works correctly

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

    $admintalk->create("user.user2");
    $admintalk->create("user.user2.sub");
    $admintalk->setacl("user.user2.sub", "cassandane", "lrswited");

    $talk->enable("QRESYNC");
    $talk->select("INBOX");

    xlog $self, "create a message and mark it \\Seen";
    $self->make_message("Message foo");
    $talk->store("1", "+flags", "\\Seen");

    xlog $self, "moving to second user works";
    $talk->move("1", "user.user2.sub");
    $talk->select("user.user2.sub");
    my $res = $talk->fetch("1", "(flags)");
    my $flags = $res->{1}->{flags};
    $self->assert_contains("\\Seen", $flags);

    xlog $self, "moving back works";
    $talk->move("1", "INBOX");
    $talk->select("INBOX");
    $res = $talk->fetch("1", "(flags)");
    $flags = $res->{1}->{flags};
    $self->assert_contains("\\Seen", $flags);
}
