From 4875df88f7394b28d1ddd83dc1d5a9762dbc921a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 13 Jun 2007 04:50:43 +0000
Subject: [PATCH] testing deleteMetaDataField

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

diff --git a/t/Asset/AssetMetaData.t b/t/Asset/AssetMetaData.t
index a5dad9f1a..d6d06a506 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 => 9;
+plan tests => 10;
 
 my $session = WebGUI::Test->session;
 $session->user({userId => 3});
@@ -130,6 +130,12 @@ cmp_deeply(
     '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 {
     my ($fidStruct) = @_;
     my $nameStruct;