#!/usr/bin/perl -w
use strict;
use warnings;

use RT::Test tests => 8;

my ($uname, $upass, $user) = ('tester', 'tester');
{
    $user = RT::User->new($RT::SystemUser);
    my ($status, $msg) = $user->Create(
        Name => $uname,
        Password => $upass,
        Disabled => 0,
        Privileged => 1,
    );
    ok($status, 'created a user');
}

my ($baseurl, $m) = RT::Test->started_ok;
ok $m->login($uname, $upass), "logged in";

{
    $m->content_unlike(qr/Configuration/, 'no configuration');
    $m->get('/Admin/');
    is $m->status, 403, 'no access to /Admin/';
}

RT::Test->set_rights(
    { Principal => $user->PrincipalObj,
      Right => [qw(ShowConfigTab)],
    },
);

{
    $m->get('/');
    $m->content_like(qr/Configuration/, 'configuration is there');

    $m->follow_link_ok({text => 'Configuration'});
    is $m->status, 200, 'user has access to /Admin/';
}