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

add tests for updateMetaDataField, which adds a value specific to the asset

Browse source
This commit is contained in:
Colin Kuskie 2007-06-14 05:11:43 +00:00
parent 16c411ce59
commit cde6e72d93
1 changed files with 36 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

37
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 => 10; plan tests => 12;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
$session->user({userId => 3}); $session->user({userId => 3});
@ -135,6 +135,41 @@ $foMetaData = $folder->getMetaDataFields;
$byName = buildNameIndex($foMetaData); $byName = buildNameIndex($foMetaData);
cmp_bag( [keys %{ $byName}], ['sport', 'searchEngine'], 'color meta data field removed'); cmp_bag( [keys %{ $byName}], ['sport', 'searchEngine'], 'color meta data field removed');
####################################################
#
# updateMetaData
#
####################################################
$folder->updateMetaData( $byName->{'sport'}, 'underwaterHockey');
cmp_deeply(
$folder->getMetaDataFields( $byName->{'sport'} ),
{
fieldName => 'sport',
fieldType => 'radioList',
description => 'Favorite Sport',
fieldId => $byName->{'sport'},
defaultValue => ignore(),
possibleValues => "Running\nBiking\nHacking\nWriting Tests",
value => 'underwaterHockey',
},
'Folder has a value field for sports'
);
cmp_deeply(
$snippet->getMetaDataFields( $byName->{'sport'} ),
{
fieldName => 'sport',
fieldType => 'radioList',
description => 'Favorite Sport',
fieldId => $byName->{'sport'},
defaultValue => ignore(),
possibleValues => "Running\nBiking\nHacking\nWriting Tests",
value => ignore(),
},
'Snippet does not have a value, yet'
);
sub buildNameIndex { sub buildNameIndex {
my ($fidStruct) = @_; my ($fidStruct) = @_;