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

Update these tests for file locations and better clean-up.

Browse source
This commit is contained in:
Colin Kuskie 2010-05-13 19:47:08 -07:00
parent 427fd5e53a
commit c74894321d
2 changed files with 3 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Asset/File/Image/setfile.t
View file

@ -26,6 +26,7 @@ my $session = WebGUI::Test->session;
my $node = WebGUI::Asset->getImportNode($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Image Test"});
WebGUI::Test->addToCleanup($versionTag);
my $image
= $node->addChild({
className => "WebGUI::Asset::File::Image",
@ -54,9 +55,3 @@ ok(
"Thumbnail file exists on the filesystem",
);
#----------------------------------------------------------------------------
# Cleanup
END {
$versionTag->rollback();
}

11
t/Asset/File/setfile.t
View file

@ -25,6 +25,7 @@ my $session = WebGUI::Test->session;
my $node = WebGUI::Asset->getImportNode($session);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"File Test"});
WebGUI::Test->addToCleanup($versionTag);
my $file
= $node->addChild({
className => "WebGUI::Asset::File",
@ -46,18 +47,10 @@ ok(
#----------------------------------------------------------------------------
# setFile allows file path argument and adds the file
# plan tests => 1
$file->setFile( WebGUI::Test->getTestCollateralPath("WebGUI.pm") );
$file->setFile( WebGUI::Test->getTestCollateralPath("International/lib/WebGUI/i18n/PigLatin/WebGUI.pm") );
my $storage = $file->getStorageLocation;
is_deeply(
$storage->getFiles, ['WebGUI.pm'],
"Storage location contains only the file we added",
);
#----------------------------------------------------------------------------
# Cleanup
END {
$versionTag->rollback();
}