-#!/usr/bin/perl
-
use strict;
use warnings;
-use Data::Dumper;
BEGIN {require 't/lifecycles/utils.pl'};
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");
}
my @form_values = $input->possible_values;
ok scalar @form_values, 'some options in the UI';
- is join('-', @form_values), '-open', 'only open and default available';
+ is join('-', @form_values), '-deleted-open', 'only default, current and open available';
}
diag "check illegal values and transitions";
);
}
+undef $m;
+done_testing;