oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed problems with tests

Browse source
This commit is contained in:
daviddelikat 2009-11-08 09:50:57 -06:00
parent 799db1090f
commit 494c8ded0e
5 changed files with 439 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

28
t/lib/WebGUI/Test/Activity.pm
View file

@ -1,8 +1,7 @@
package WebGUI::Test::Activity;
use WebGUI::Workflow;
my @cleanup; # TODO fix WebGUI::Text::assetsToPurge so that it works with workflows and activities
use WebGUI::Test;
=head Name
@ -43,7 +42,7 @@ params -- params to set in the workflow
sub create {
my $myClass = shift;
my $session = shift;
my $workflowClass = shift;
my $activityClass = shift;
my $activityParams;
if( exists $_[0] and ref $_[0] eq 'HASH' ) {
$activityParams = shift ;
@ -57,10 +56,10 @@ sub create {
mode => 'realtime',
},
);
my $activity = $workflow->addActivity($workflowClass);
my $activity = $workflow->addActivity($activityClass);
if( scalar( keys %$activityParams ) > 0 ) {
$activity->set(%$activityParams);
}
}
my $instance = WebGUI::Workflow::Instance->create($session,
{
@ -69,10 +68,7 @@ sub create {
}
);
my $tag = WebGUI::VersionTag->getWorking($session);
$tag->commit;
WebGUI::Test->tagsToRollback($tag);
WebGUI::Test->workflowsToDelete($instance,$workflow);
addToCleanup($workflow);
return bless { instance => $instance,
session => $session,
@ -92,20 +88,6 @@ sub rerun {
skipSpectreNotification => 1,
}
);
# WebGUI::Test->assetsToPurge($self->{instance}); -- does not work
push @cleanup, $self->{instance};
my $tag = WebGUI::VersionTag->getWorking($session, 1);
if( $tag ) {
$tag->commit;
WebGUI::Test->tagsToRollback($tag);
}
}
END {
map { $_->delete; } ( @cleanup );
}
1;