From aada6e3c838692ee87bdb89bd4156f698322487a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 14 Jun 2010 14:29:35 -0700
Subject: [PATCH] Fix a bad cleanup, and update a test for new paths.

---
 t/Config.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/Config.t b/t/Config.t
index af1eeacaa..b93903db6 100644
--- a/t/Config.t
+++ b/t/Config.t
@@ -16,6 +16,7 @@ use WebGUI::Test;
 use Test::More tests => 15; # increment this value for each test you create
 use Test::Deep;
 use File::Basename qw(basename);
+use Cwd;
 
 my $config     = WebGUI::Test->config;
 my $configFile = WebGUI::Test->file;
@@ -27,7 +28,7 @@ is( ref $config->get("macros"), "HASH", "get() macros hash" );
 is( ref $config->get("assets"), "HASH", "get() assets hash" );
 is( ref $config->get("shippingDrivers"), "ARRAY", "get() shippingDrivers array" );
 is( $config->getFilename, basename($configFile), "getFilename()" );
-is( $config->getWebguiRoot, $webguiRoot, "getWebguiRoot()" );
+is( $config->getWebguiRoot, Cwd::realpath($webguiRoot), "getWebguiRoot()" );
 ok( defined WebGUI::Config->readAllConfigs($webguiRoot), "readAllConfigs" );
 $config->addToArray("shippingDrivers","TEST");
 my $found = 0;
@@ -85,7 +86,7 @@ if ($cookieName eq "") {
 }
 
 $config->set('privateArray', ['a', 'b', 'c']);
-WebGUI::Test->addToCleanup(CODE => sub { $config->delete('privateArray')});
+WebGUI::Test->addToCleanup(sub { $config->delete('privateArray')});
 cmp_bag($config->get('privateArray'), ['a', 'b', 'c'], 'set: array, not scalar');
 
 #vim:ft=perl