X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=rt%2Ft%2Fweb%2Fadmin_user.t;fp=rt%2Ft%2Fweb%2Fadmin_user.t;h=fde075f4d217a16f8b15535028aea0a5ae04a0ee;hb=6587f6ba7d047ddc1686c080090afe7d53365bd4;hp=0000000000000000000000000000000000000000;hpb=47153aae5c2fc00316654e7277fccd45f72ff611;p=freeside.git

diff --git a/rt/t/web/admin_user.t b/rt/t/web/admin_user.t
new file mode 100644
index 000000000..fde075f4d
--- /dev/null
+++ b/rt/t/web/admin_user.t
@@ -0,0 +1,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
+