[Rt-commit] r9070 - rt/branches/3.7-EXPERIMENTAL/t/api

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Sep 16 12:25:40 2007
New Revision: 9070

Modified:
   rt/branches/3.7-EXPERIMENTAL/t/api/ace.t
   rt/branches/3.7-EXPERIMENTAL/t/api/attribute-tests.t
   rt/branches/3.7-EXPERIMENTAL/t/api/queue.t

Log:
typo fix

Modified: rt/branches/3.7-EXPERIMENTAL/t/api/ace.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/ace.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/ace.t	Sun Sep 16 12:25:40 2007
@@ -81,7 +81,7 @@
 ($val, $msg) = $user_a->PrincipalObj->GrantRight( Right => 'DelegateRights');
 ok($val, "user a is granted the right to 'delegate rights' - $msg");
 
-ok($user_a->HasRight( Object => $RT::System, Right => 'DelegateRights')    ,"user a has the right 'AdminOwnPersonalGroups' directly");
+ok($user_a->HasRight( Object => $RT::System, Right => 'DelegateRights') ,"user a has the right 'DeletgateRights'");
 
 ($val, $msg) = $own_ticket_ace->Delegate(PrincipalId => $a_delegates->PrincipalId) ;
 
@@ -102,7 +102,7 @@
 ($val, $msg) = $own_ticket_ace->Delegate(PrincipalId => $a_delegates->PrincipalId)  ;
 ok(  $val  ,"user a delegates pg 'delegates' right to 'OwnTickets' in queue 'DelegationTest' - $msg");
 
-ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q)    ,"user a does not have the right to own tickets in queue 'DelegationTest'");
+ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q)    ,"user b has the right to own tickets in queue 'DelegationTest'");
 
 ($val, $msg) = $user_a->PrincipalObj->RevokeRight(Object=>$q, Right => 'OwnTicket');
 ok($val, "Revoked user a's right to own tickets in queue 'DelegationTest". $msg);
@@ -157,7 +157,7 @@
 # }}}
 
 # {{{ Grant a right to a group and make sure that a submember can delegate the right and that it does not get yanked
-# when a user is removed as a submember, when they're a sumember through another path 
+# when a user is removed as a submember, when they're a submember through another path 
 ($val, $msg) = $del1->PrincipalObj->GrantRight( Object=> $q, Right => 'OwnTicket');
 ok( $val   ,"grant del1  the right to 'OwnTicket' in queue 'DelegationTest' - $msg");
 
@@ -202,7 +202,7 @@
 ok( $val   ,"user a tries and succeeds to delegate the right 'ownticket' in queue 'DelegationTest' gotten via del2 to personal group 'delegates' - $msg");
 
 # They have it via del1 and del2
-ok( $user_a->HasRight(Right => 'OwnTicket', Object => $q)   ,"user b has the right to own tickets in queue 'DelegationTest'");
+ok( $user_b->HasRight(Right => 'OwnTicket', Object => $q)   ,"user b has the right to own tickets in queue 'DelegationTest'");
 
 
 ($val, $msg) = $del2->PrincipalObj->RevokeRight(Object=>$q, Right => 'OwnTicket');

Modified: rt/branches/3.7-EXPERIMENTAL/t/api/attribute-tests.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/attribute-tests.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/attribute-tests.t	Sun Sep 16 12:25:40 2007
@@ -30,7 +30,7 @@
 
 ($id, $msg) =  $user->AddAttribute(Name => 'TestAttr', Content => 'The attribute has content'); 
 ok ($id, $msg);
-is ($attr->Count,1, " One attr after adidng a first one");
+is ($attr->Count,1, " One attr after adding a first one");
 
 my $first_attr = $user->FirstAttribute('TestAttr');
 ok($first_attr, "got some sort of attribute");

Modified: rt/branches/3.7-EXPERIMENTAL/t/api/queue.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/api/queue.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/api/queue.t	Sun Sep 16 12:25:40 2007
@@ -61,7 +61,7 @@
                 );
 ok ($id, "Foo $id was created");
 ok(my $group = RT::Group->new($RT::SystemUser));
-ok($group->LoadQueueRoleGroup(Queue => $id, Type=> 'Cc'));
+ok($group->LoadQueueRoleGroup(Queue => $id, Type=> 'Requestor'));
 ok ($group->Id, "Found the requestors object for this Queue");