rt/t/web/admin_user.t

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