From cde6e72d93f294af9b4ba27ddefc9cae613666ae Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 14 Jun 2007 05:11:43 +0000
Subject: [PATCH] add tests for updateMetaDataField, which adds a value
 specific to the asset

---
 t/Asset/AssetMetaData.t | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/t/Asset/AssetMetaData.t b/t/Asset/AssetMetaData.t
index d6d06a506..7d020d61a 100644
--- a/t/Asset/AssetMetaData.t
+++ b/t/Asset/AssetMetaData.t
@@ -23,7 +23,7 @@ use WebGUI::VersionTag;
 
 use Test::More; # increment this value for each test you create
 use Test::Deep;
-plan tests => 10;
+plan tests => 12;
 
 my $session = WebGUI::Test->session;
 $session->user({userId => 3});
@@ -135,6 +135,41 @@ $foMetaData = $folder->getMetaDataFields;
 $byName = buildNameIndex($foMetaData);
 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 {
     my ($fidStruct) = @_;