-#!/usr/bin/perl -w
use strict;
use warnings;
-use RT::Test tests => 8;
+use RT::Test nodata => 1, tests => 10;
my ($uname, $upass, $user) = ('tester', 'tester');
{
- $user = RT::User->new($RT::SystemUser);
+ $user = RT::User->new(RT->SystemUser);
my ($status, $msg) = $user->Create(
Name => $uname,
Password => $upass,
ok $m->login($uname, $upass), "logged in";
{
- $m->content_unlike(qr/Configuration/, 'no configuration');
+ $m->content_lacks('li-admin', 'no Admin tab');
$m->get('/Admin/');
is $m->status, 403, 'no access to /Admin/';
}
{
$m->get('/');
- $m->content_like(qr/Configuration/, 'configuration is there');
+ $m->content_contains('li-admin', 'admin tab is there');
- $m->follow_link_ok({text => 'Configuration'});
+ $m->follow_link_ok({text => 'Admin'});
is $m->status, 200, 'user has access to /Admin/';
}