#!perl
use Cassandane::Tiny;

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

    my $res = $talk->create('user.foo.cassandane.sent.Test1');
    $self->assert_null($res); # means it failed
    $self->assert_str_equals('no', $talk->get_last_completion_response());
    $self->assert($talk->get_last_error() =~ m/permission denied/i);

    $res = $talk->create('user.foo.cassandane.Test2');
    $self->assert_null($res); # means it failed
    $self->assert_str_equals('no', $talk->get_last_completion_response());
    $self->assert($talk->get_last_error() =~ m/permission denied/i);

    $res = $talk->create('user.foo.Test3');
    $self->assert_null($res); # means it failed
    $self->assert_str_equals('no', $talk->get_last_completion_response());
    $self->assert($talk->get_last_error() =~ m/permission denied/i);
}
