#!perl
use Cassandane::Tiny;

sub test_create_dupe
    :NoAltNameSpace
    ($self)
{
    my $imaptalk = $self->{store}->get_client();

    $imaptalk->create("INBOX.Rubbish", "(USE (\\Trash))");
    $self->assert_equals('ok', $imaptalk->get_last_completion_response());

    $imaptalk->create("INBOX.Trash", "(USE (\\Trash))");
    $self->assert_equals('no', $imaptalk->get_last_completion_response());
}
