From 45e1c01fc954d0fbc48c61140d50d4c16691862a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 7 May 2010 15:12:06 -0700
Subject: [PATCH] Update Help/compiled for new operational code.

---
 t/Help/compiled.t | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/t/Help/compiled.t b/t/Help/compiled.t
index f98e8cb0e..f68455ca9 100644
--- a/t/Help/compiled.t
+++ b/t/Help/compiled.t
@@ -14,6 +14,7 @@ use lib "$FindBin::Bin/../lib";
 
 use WebGUI::Test;
 use WebGUI::Session;
+use WebGUI::Pluggable;
 use WebGUI::Operation::Help;
 
 #The goal of this test is to verify that all entries in the lib/WebGUI/Help
@@ -26,14 +27,14 @@ my $numTests = 0;
 
 my $session = WebGUI::Test->session;
 
-my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
+my @helpFileSet = WebGUI::Pluggable::findAndLoad('WebGUI::Help');
 
 $numTests = scalar @helpFileSet; #One for each help compile
 
 plan tests => $numTests;
 
-foreach my $helpSet (@helpFileSet) {
-	my $helpName = $helpSet->[1];
-	my $help = WebGUI::Operation::Help::_load($session, $helpName);
-	ok(keys %{ $help }, "$helpName compiled");
+foreach my $helpFile (@helpFileSet) {
+    my ($namespace) = $helpFile =~ m{WebGUI::Help::(.+$)};
+    my $help = WebGUI::Operation::Help::_load($session, $namespace);
+    ok(keys %{ $help }, "$namespace compiled");
 }