-#!/usr/bin/perl
-
use strict;
use warnings;
-use Data::Dumper;
-BEGIN {require 't/lifecycles/utils.pl'};
+BEGIN {require './t/lifecycles/utils.pl'};
my $general = RT::Test->load_or_create_queue(
Name => 'General',
diag "check basic API";
{
- my $schema = $general->Lifecycle;
+ my $schema = $general->LifecycleObj;
isa_ok($schema, 'RT::Lifecycle');
is $schema->Name, 'default', "it's a default schema";
is_deeply [$schema->Valid],
my $valid = 1;
foreach ( @form_values ) {
- next if $general->Lifecycle->IsValid($_);
+ next if $general->LifecycleObj->IsValid($_);
$valid = 0;
diag("$_ doesn't appear to be a valid status, but it was in the form");
}
);
}
+undef $m;
+done_testing;