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

testing deleteMetaDataField

Browse source
This commit is contained in:
Colin Kuskie 2007-06-13 04:50:43 +00:00
parent 79fe687c7f
commit 4875df88f7
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Asset/AssetMetaData.t
View file

@ -23,7 +23,7 @@ use WebGUI::VersionTag;
use Test::More; # increment this value for each test you create use Test::More; # increment this value for each test you create
use Test::Deep; use Test::Deep;
plan tests => 9; plan tests => 10;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
$session->user({userId => 3}); $session->user({userId => 3});
@ -130,6 +130,12 @@ cmp_deeply(
'Fetching just one metadata field, by fieldId, works' 'Fetching just one metadata field, by fieldId, works'
); );
$folder->deleteMetaDataField($byName->{'color'});
$foMetaData = $folder->getMetaDataFields;
$byName = buildNameIndex($foMetaData);
cmp_bag( [keys %{ $byName}], ['sport', 'searchEngine'], 'color meta data field removed');
sub buildNameIndex { sub buildNameIndex {
my ($fidStruct) = @_; my ($fidStruct) = @_;
my $nameStruct; my $nameStruct;