projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
first pass RT4 merge, RT#13852
[freeside.git]
/
rt
/
t
/
api
/
scrip.t
diff --git
a/rt/t/api/scrip.t
b/rt/t/api/scrip.t
index
9d97e73
..
eb54347
100644
(file)
--- 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);
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");
$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',
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);
);
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",
);
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");
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",
);
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' );
}
ok( $scrip->Delete, 'delete the scrip' );
}
-
-1;