From 67241f9535f58bcd2d7b40c9fe4454af70bb9586 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 13 Jan 2006 05:13:31 +0000
Subject: [PATCH] updated to use new session API

---
 t/help_compiled.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/help_compiled.t b/t/help_compiled.t
index 13ee2094d..4bb55904f 100644
--- a/t/help_compiled.t
+++ b/t/help_compiled.t
@@ -25,7 +25,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; #One for each help compile
 
@@ -35,7 +35,7 @@ plan tests => $numTests;
 
 foreach my $helpSet (@helpFileSet) {
 	my $helpName = $helpSet->[1];
-	my $help = WebGUI::Operation::Help::_load($helpName);
+	my $help = WebGUI::Operation::Help::_load($session, $helpName);
 	ok(keys %{ $help }, "$helpName compiled");
 }
 
@@ -53,7 +53,7 @@ sub initialize {
                 'configFile=s'=>\$configFile
         );
         exit 1 unless ($configFile);
-        my $session = WebGUI::Session->open("..",$configFile);
+        return WebGUI::Session->open("..",$configFile);
 }
 
 sub cleanup {