-#!/usr/bin/perl -w
use strict;
use warnings;
ok $m->login($uname, $upass), "logged in";
{
- $m->content_lacks('Configuration', 'no configuration tab');
+ $m->content_lacks('li-admin', 'no Admin tab');
$m->get('/Admin/');
is $m->status, 403, 'no access to /Admin/';
}
{
$m->get('/');
- $m->content_contains('Configuration', 'configuration tab 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/';
}