#!perl
use Cassandane::Tiny;

sub test_delete_subuser ($self)
{
    my $adminstore = $self->{adminstore};
    my $admintalk = $adminstore->get_client();

    xlog $self, "Test Cyrus extension which renames a user to a different partition";

    # create and prepare the user
    $self->{instance}->create_user('admin1');
    $adminstore->set_folder('user.admin1');
    for ('A'..'Z') {
        $self->make_message("Message $_", store => $adminstore);
    }
    $admintalk->unselect();

    $admintalk->delete('user.admin1');
}
