diff options
Diffstat (limited to 'rt/t/shredder/02queue.t')
| -rw-r--r-- | rt/t/shredder/02queue.t | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/rt/t/shredder/02queue.t b/rt/t/shredder/02queue.t index 197cf63c8..fb5e36d6e 100644 --- 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"; |