[Rt-commit] r7847 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: t/shredder

[clsung at bestpractical.com]

Author: clsung
Date: Sun May 13 09:35:33 2007
New Revision: 7847

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/02queue.t

Log:
 r1053 at going04:  clsung | 2007-05-13 21:35:50 +0800
 - Name it...


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/02queue.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/02queue.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/shredder/02queue.t	Sun May 13 09:35:33 2007
@@ -95,7 +95,7 @@
 # XXX, FIXME: if uncomment these lines then we'll get 'Bizarre...'
 #	create_savepoint('clean');
     my $group = RT::Group->new( $RT::SystemUser );
-    my ($id, $msg) = $group->CreateUserDefinedGroup('my group');
+    my ($id, $msg) = $group->CreateUserDefinedGroup(Name => 'my group');
     ok($id, 'created group') or diag "error: $msg";
 
 	create_savepoint('bqcreate');