[Rt-commit] r2770 - in rtfm/branches/2.1-TESTING: . docs t
jesse at bestpractical.com
jesse at bestpractical.com
Mon Apr 18 01:09:49 EDT 2005
Author: jesse
Date: Mon Apr 18 01:09:48 2005
New Revision: 2770
Modified:
rtfm/branches/2.1-TESTING/ (props changed)
rtfm/branches/2.1-TESTING/docs/todo
rtfm/branches/2.1-TESTING/t/Class_Overlay.pm.t
Log:
r12948 at hualien: jesse | 2005-04-15 15:39:15 -0400
Test updates
Modified: rtfm/branches/2.1-TESTING/docs/todo
==============================================================================
--- rtfm/branches/2.1-TESTING/docs/todo (original)
+++ rtfm/branches/2.1-TESTING/docs/todo Mon Apr 18 01:09:48 2005
@@ -9,8 +9,6 @@
Admin
- Move administrative menus underneath the core RT admin menus
-
Add menus to associate custom fields with a given class
Modified: rtfm/branches/2.1-TESTING/t/Class_Overlay.pm.t
==============================================================================
--- rtfm/branches/2.1-TESTING/t/Class_Overlay.pm.t (original)
+++ rtfm/branches/2.1-TESTING/t/Class_Overlay.pm.t Mon Apr 18 01:09:48 2005
@@ -7,6 +7,10 @@
RT::Init();
use_ok(RT::FM::Class);
+$RT::SystemUser || die ;# just shut up the warning
+$RT::FM::System || die; # just shut up the warning;
+
+
my $root = RT::CurrentUser->new('root');
ok ($root->Id, "Loaded root");
my $cl = RT::FM::Class->new($root);
@@ -46,6 +50,7 @@
($id, $msg) = $cl->Create(Name => 'Test-nobody'.$$, Description => 'A test class');
+
ok (!$id, $msg. "- Can not create classes as a random new user - " .$u->Id);
$u->PrincipalObj->GrantRight(Right =>'AdminClass', Object => $RT::FM::System);
($id, $msg) = $cl->Create(Name => 'Test-nobody-'.$$, Description => 'A test class');
More information about the Rt-commit
mailing list