projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix RT vs v4-style location-less customers
[freeside.git]
/
rt
/
t
/
lifecycles
/
basics.t
diff --git
a/rt/t/lifecycles/basics.t
b/rt/t/lifecycles/basics.t
index
5825a10
..
e18bea3
100644
(file)
--- a/
rt/t/lifecycles/basics.t
+++ b/
rt/t/lifecycles/basics.t
@@
-1,8
+1,5
@@
-#!/usr/bin/perl
-
use strict;
use warnings;
use strict;
use warnings;
-use Data::Dumper;
BEGIN {require 't/lifecycles/utils.pl'};
BEGIN {require 't/lifecycles/utils.pl'};
@@
-20,7
+17,7
@@
my $tstatus = sub {
diag "check basic API";
{
diag "check basic API";
{
- my $schema = $general->Lifecycle;
+ my $schema = $general->Lifecycle
Obj
;
isa_ok($schema, 'RT::Lifecycle');
is $schema->Name, 'default', "it's a default schema";
is_deeply [$schema->Valid],
isa_ok($schema, 'RT::Lifecycle');
is $schema->Name, 'default', "it's a default schema";
is_deeply [$schema->Valid],
@@
-81,7
+78,7
@@
diag "check status input on create";
my $valid = 1;
foreach ( @form_values ) {
my $valid = 1;
foreach ( @form_values ) {
- next if $general->Lifecycle->IsValid($_);
+ next if $general->Lifecycle
Obj
->IsValid($_);
$valid = 0;
diag("$_ doesn't appear to be a valid status, but it was in the form");
}
$valid = 0;
diag("$_ doesn't appear to be a valid status, but it was in the form");
}
@@
-245,3
+242,5
@@
diag "'!inactive -> inactive' actions are shown even if ticket has unresolved de
);
}
);
}
+undef $m;
+done_testing;