starting to work...

[freeside.git] / rt / t / shredder / 02queue.t

diff --git a/rt/t/shredder/02queue.t b/rt/t/shredder/02queue.t
index 197cf63..fb5e36d 100644 (file)
--- a/rt/t/shredder/02queue.t
+++ b/rt/t/shredder/02queue.t
@@ -15,10 +15,10 @@ BEGIN {
 init_db();
 
 
-diag 'simple queue' if $ENV{'TEST_VERBOSE'};
+diag 'simple queue' if $ENV{TEST_VERBOSE};
 {
        create_savepoint('clean');
-    my $queue = RT::Queue->new( $RT::SystemUser );
+    my $queue = RT::Queue->new( RT->SystemUser );
     my ($id, $msg) = $queue->Create( Name => 'my queue' );
     ok($id, 'created queue') or diag "error: $msg";
 
@@ -28,14 +28,14 @@ diag 'simple queue' if $ENV{'TEST_VERBOSE'};
        cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
 }
 
-diag 'queue with scrip' if $ENV{'TEST_VERBOSE'};
+diag 'queue with scrip' if $ENV{TEST_VERBOSE};
 {
        create_savepoint('clean');
-    my $queue = RT::Queue->new( $RT::SystemUser );
+    my $queue = RT::Queue->new( RT->SystemUser );
     my ($id, $msg) = $queue->Create( Name => 'my queue' );
     ok($id, 'created queue') or diag "error: $msg";
 
-    my $scrip = RT::Scrip->new( $RT::SystemUser );
+    my $scrip = RT::Scrip->new( RT->SystemUser );
     ($id, $msg) = $scrip->Create(
         Description    => 'my scrip',
         Queue          => $queue->id,
@@ -51,14 +51,14 @@ diag 'queue with scrip' if $ENV{'TEST_VERBOSE'};
        cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
 }
 
-diag 'queue with template' if $ENV{'TEST_VERBOSE'};
+diag 'queue with template' if $ENV{TEST_VERBOSE};
 {
        create_savepoint('clean');
-    my $queue = RT::Queue->new( $RT::SystemUser );
+    my $queue = RT::Queue->new( RT->SystemUser );
     my ($id, $msg) = $queue->Create( Name => 'my queue' );
     ok($id, 'created queue') or diag "error: $msg";
 
-    my $template = RT::Template->new( $RT::SystemUser );
+    my $template = RT::Template->new( RT->SystemUser );
     ($id, $msg) = $template->Create(
         Name => 'my template',
         Queue => $queue->id,
@@ -72,14 +72,14 @@ diag 'queue with template' if $ENV{'TEST_VERBOSE'};
        cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
 }
 
-diag 'queue with a right granted' if $ENV{'TEST_VERBOSE'};
+diag 'queue with a right granted' if $ENV{TEST_VERBOSE};
 {
        create_savepoint('clean');
-    my $queue = RT::Queue->new( $RT::SystemUser );
+    my $queue = RT::Queue->new( RT->SystemUser );
     my ($id, $msg) = $queue->Create( Name => 'my queue' );
     ok($id, 'created queue') or diag "error: $msg";
 
-    my $group = RT::Group->new( $RT::SystemUser );
+    my $group = RT::Group->new( RT->SystemUser );
     $group->LoadSystemInternalGroup('Everyone');
     ok($group->id, 'loaded group');
 
@@ -95,16 +95,16 @@ diag 'queue with a right granted' if $ENV{'TEST_VERBOSE'};
        cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
 }
 
-diag 'queue with a watcher' if $ENV{'TEST_VERBOSE'};
+diag 'queue with a watcher' if $ENV{TEST_VERBOSE};
 {
 # XXX, FIXME: if uncomment these lines then we'll get 'Bizarre...'
 #      create_savepoint('clean');
-    my $group = RT::Group->new( $RT::SystemUser );
+    my $group = RT::Group->new( RT->SystemUser );
     my ($id, $msg) = $group->CreateUserDefinedGroup(Name => 'my group');
     ok($id, 'created group') or diag "error: $msg";
 
        create_savepoint('bqcreate');
-    my $queue = RT::Queue->new( $RT::SystemUser );
+    my $queue = RT::Queue->new( RT->SystemUser );
     ($id, $msg) = $queue->Create( Name => 'my queue' );
     ok($id, 'created queue') or diag "error: $msg";