diff options
Diffstat (limited to 'rt/t/api/scrip.t')
| -rw-r--r-- | rt/t/api/scrip.t | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rt/t/api/scrip.t b/rt/t/api/scrip.t index 9d97e7344..eb543476b 100644 --- a/rt/t/api/scrip.t +++ b/rt/t/api/scrip.t @@ -10,11 +10,11 @@ use RT::Test tests => 25; ok (require RT::Scrip); -my $q = RT::Queue->new($RT::SystemUser); +my $q = RT::Queue->new(RT->SystemUser); $q->Create(Name => 'ScripTest'); ok($q->Id, "Created a scriptest queue"); -my $s1 = RT::Scrip->new($RT::SystemUser); +my $s1 = RT::Scrip->new(RT->SystemUser); my ($val, $msg) =$s1->Create( Queue => $q->Id, ScripAction => 'User Defined', ScripCondition => 'User Defined', @@ -25,7 +25,7 @@ my ($val, $msg) =$s1->Create( Queue => $q->Id, ); ok($val,$msg); -my $ticket = RT::Ticket->new($RT::SystemUser); +my $ticket = RT::Ticket->new(RT->SystemUser); my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id, Subject => "hair on fire", ); @@ -34,7 +34,7 @@ ok($tv, $tm); is ($ticket->Priority , '87', "Ticket priority is set right"); -my $ticket2 = RT::Ticket->new($RT::SystemUser); +my $ticket2 = RT::Ticket->new(RT->SystemUser); my ($t2v,$t2tv,$t2m) = $ticket2->Create(Queue => $q->Id, Subject => "hair in water", ); @@ -117,5 +117,3 @@ isnt ($ticket2->Priority , '87', "Ticket priority is set right"); ok( $scrip->Delete, 'delete the scrip' ); } - -1; |