blob: fde075f4d217a16f8b15535028aea0a5ae04a0ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
use strict;
use warnings;
use RT::Test tests => 7;
my ( $url, $m ) = RT::Test->started_ok;
ok( $m->login(), 'logged in' );
my $root = RT::User->new( $RT::SystemUser );
$root->Load('root');
ok( $root->id, 'loaded root' );
diag "test the history page" if $ENV{TEST_VERBOSE};
$m->get_ok( $url . '/Admin/Users/History.html?id=' . $root->id );
$m->content_contains('User created', 'has User created entry');
# TODO more /Admin/Users tests
|
