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

testing clearPackageFlag

Browse source
This commit is contained in:
Paul Driver 2010-06-01 12:24:52 -07:00
parent 5a4bded0d6
commit c5bddbd95c
1 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

26
t/Asset/AssetPackage.t
View file

@ -23,7 +23,7 @@ use WebGUI::VersionTag;
use Test::More; # increment this value for each test you create
use Test::MockObject;
plan tests => 14;
plan tests => 16;
my $session = WebGUI::Test->session;
$session->user({userId => 3});
@ -125,6 +125,30 @@ cmp_ok( $updatedSnippet->get('revisionDate'), '>', $snippetRev->get('revisionDat
my $lastTag = WebGUI::VersionTag->getWorking($session);
WebGUI::Test->tagsToRollback($lastTag);
{
# Test clearPackageFlag
my $flagTag = WebGUI::VersionTag->create($session);
WebGUI::Test->addToCleanup($flagTag);
$flagTag->setWorking;
my $tempspace = WebGUI::Asset->getTempspace($session);
my $snippet = $tempspace->addChild(
{ url => 'pflagt',
title => 'package flag test',
menuTitle => 'package flag test',
className => 'WebGUI::Asset::Snippet',
snippet => 'This is a test asset',
isPackage => 1,
}
);
my $storage = $snippet->exportPackage;
WebGUI::Test->addToCleanup($storage);
my $without = $tempspace->importPackage($storage);
ok $without->get('isPackage'), 'has flag with no option';
my $with = $tempspace->importPackage($storage, { clearPackageFlag => 1 });
ok !$with->get('isPackage'), 'no flag with option';
}
TODO: {
local $TODO = "Tests to make later";
ok(0, 'Check package deployment with 2-level package and look for new style templates propagating down the tree');