From 6eba088fe990200de54ae68e1625fc2a84f21ba1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 10 Aug 2010 20:50:00 -0700
Subject: [PATCH] Update test to accomodate new restriction on uploading .pm
 files.

---
 t/Asset/File/setfile.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/Asset/File/setfile.t b/t/Asset/File/setfile.t
index 8227f6df8..e161ae81a 100644
--- a/t/Asset/File/setfile.t
+++ b/t/Asset/File/setfile.t
@@ -51,7 +51,7 @@ $file->setFile( WebGUI::Test->getTestCollateralPath("WebGUI.pm") );
 my $storage = $file->getStorageLocation;
 
 is_deeply(
-    $storage->getFiles, ['WebGUI.pm'],
-    "Storage location contains only the file we added",
+    $storage->getFiles, ['WebGUI_pm.txt'],
+    "Storage location contains only the file we added, name was changed to prevent uploading of code",
 );
 #vim:ft=perl