Debug needs an explicit package name for addToCleanup.

This commit is contained in:
Colin Kuskie 2011-10-19 13:11:23 -07:00
parent 19b6f9de12
commit 82bb59d40e
47 changed files with 99 additions and 99 deletions

View file

@ -75,7 +75,7 @@ my $workflow = WebGUI::Workflow->create($session,
mode => 'realtime',
},
);
addToCleanup($workflow);
WebGUI::Test->addToCleanup($workflow);
my $threshold = $workflow->addActivity('WebGUI::Workflow::Activity::NotifyAboutLowStock');
$threshold->set('className' , 'WebGUI::Activity::NotifyAboutLowStock');
@ -166,7 +166,7 @@ my $movieVarId = $movie_posters->setCollateral('variantsJSON', 'variantId', 'new
},
);
my $otherTag = WebGUI::VersionTag->getWorking($session);
addToCleanup($otherTag);
WebGUI::Test->addToCleanup($otherTag);
$otherTag->commit;
$threshold->set('warningLimit' , 10);

View file

@ -46,7 +46,7 @@ plan tests => 9; # Increment this number for each test you create
my $number = 'NL34567890';
my $user = WebGUI::User->new( $session, 'new' );
my $userId = $user->userId;
addToCleanup( $user );
WebGUI::Test->addToCleanup( $user );
# --- valid number ----------------
$return = 'VALID';
@ -94,7 +94,7 @@ sub createInstance {
} );
my $activity = $workflow->addActivity( 'WebGUI::Workflow::Activity::RecheckVATNumber' );
addToCleanup( $workflow );
WebGUI::Test->addToCleanup( $workflow );
my $instance = WebGUI::Workflow::Instance->create( $session, {
workflowId => $workflow->getId,

View file

@ -67,7 +67,7 @@ my $wf = WebGUI::Workflow->create(
}
);
isa_ok($wf, 'WebGUI::Workflow', 'workflow created for test');
addToCleanup($wf);
WebGUI::Test->addToCleanup($wf);
# create an instance of $wfId
my $properties = {
@ -179,7 +179,7 @@ my $wf2 = WebGUI::Workflow->create(
type => 'None',
}
);
addToCleanup($wf2);
WebGUI::Test->addToCleanup($wf2);
my $wf2Instance = WebGUI::Workflow::Instance->create($session, {workflowId => $wf2->getId});
cmp_deeply($wf2Instance->get('parameters'), {}, 'get returns {} for parameters when there are no parameters stored');