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

Another (probably last) leaky test fixed.

Browse source
This commit is contained in:
Colin Kuskie 2011-01-13 11:45:38 -08:00
parent 7f735c0ea1
commit eb16ecb99e
1 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Asset/EMSSubmissionForm.t
View file

@ -72,11 +72,6 @@ sub logout { $session->user({userId => 1}); }
loginAdmin; loginAdmin;
# Create a version tag to work in
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"EventManagementSystem Test"});
WebGUI::Test->addToCleanup($versionTag);
# Do our work in the import node # Do our work in the import node
my $node = WebGUI::Asset->getImportNode($session); my $node = WebGUI::Asset->getImportNode($session);
@ -90,6 +85,7 @@ my $ems = $node->addChild({
groupIdView => $attendees->getId, groupIdView => $attendees->getId,
submittedLocationsList => join( "\n", my @submissionLocations = qw'loc1 loc2' ), submittedLocationsList => join( "\n", my @submissionLocations = qw'loc1 loc2' ),
}); });
WebGUI::Test->addToCleanup($ems);
# I scooped this out ot WG::Asset::Wobject::EventManagementSystem # I scooped this out ot WG::Asset::Wobject::EventManagementSystem
# its not pretty, but there is no other way to add a meta field # its not pretty, but there is no other way to add a meta field
my $mf1Id = $ems->setCollateral("EMSEventMetaField", "fieldId",{ my $mf1Id = $ems->setCollateral("EMSEventMetaField", "fieldId",{
@ -114,9 +110,6 @@ my $mf2Id = $ems->setCollateral("EMSEventMetaField", "fieldId",{
my $i18n = $ems->i18n; my $i18n = $ems->i18n;
$versionTag->commit;
$versionTag = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->addToCleanup($versionTag);
$ems = $ems->cloneFromDb; $ems = $ems->cloneFromDb;
my $id1 = $ems->getNextSubmissionId; my $id1 = $ems->getNextSubmissionId;
@ -375,8 +368,6 @@ is( $sub2, undef, 'submission deleted');
} # end of create submission skip } # end of create submission skip
$versionTag->commit;
# this is not the greatest test but it does run through the basic create submissionForm code. # this is not the greatest test but it does run through the basic create submissionForm code.
loginRgstr; loginRgstr;