From 89f60a8e0306fa50cd8c8536e24a23a5f0283f52 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 14 Jan 2006 04:41:15 +0000
Subject: [PATCH] update test for new api

---
 t/help_toc.t | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/t/help_toc.t b/t/help_toc.t
index 347bfe2c3..8787fa28a 100644
--- a/t/help_toc.t
+++ b/t/help_toc.t
@@ -12,10 +12,10 @@
 use strict;
 use lib '../lib';
 use Getopt::Long;
+use WebGUI::Session;
 use WebGUI::Operation::Help;
 use WebGUI::International;
 use Data::Dumper;
-use File::Find;
 # ---- END DO NOT EDIT ----
 
 #The goal of this test is to make sure that all required labels
@@ -26,7 +26,7 @@ my $numTests = 0;
 
 my $session = initialize();  # this line is required
 
-my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList();
+my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
 
 $numTests = scalar @helpFileSet;
 
@@ -36,9 +36,11 @@ plan tests => $numTests;
 
 diag("Check for mandatory lables for Help table of contents");
 
+diag(Dumper(\@helpFileSet));
+
 foreach my $fileSet (@helpFileSet) {
 	my $file = $fileSet->[1];
-	ok(WebGUI::Operation::Help::_getHelpName($file), "Missing label for $file");
+	ok(WebGUI::Operation::Help::_getHelpName($session, $file), "Missing label for $file");
 }
 
 cleanup($session); # this line is required
@@ -52,7 +54,7 @@ sub initialize {
                 'configFile=s'=>\$configFile
         );
         exit 1 unless ($configFile);
-        my $session = WebGUI::Session->open("..",$configFile);
+        return WebGUI::Session->open("..",$configFile);
 }
 
 sub cleanup {