oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updated to use new session API

Browse source
This commit is contained in:
Colin Kuskie 2006-01-13 05:13:31 +00:00
parent 76da5261d9
commit 67241f9535
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/help_compiled.t
View file

@ -25,7 +25,7 @@ my $numTests = 0;
my $session = initialize(); # this line is required 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 $numTests = scalar @helpFileSet; #One for each help compile
@ -35,7 +35,7 @@ plan tests => $numTests;
foreach my $helpSet (@helpFileSet) { foreach my $helpSet (@helpFileSet) {
my $helpName = $helpSet->[1]; my $helpName = $helpSet->[1];
my $help = WebGUI::Operation::Help::_load($helpName); my $help = WebGUI::Operation::Help::_load($session, $helpName);
ok(keys %{ $help }, "$helpName compiled"); ok(keys %{ $help }, "$helpName compiled");
} }
@ -53,7 +53,7 @@ sub initialize {
'configFile=s'=>\$configFile 'configFile=s'=>\$configFile
); );
exit 1 unless ($configFile); exit 1 unless ($configFile);
my $session = WebGUI::Session->open("..",$configFile); return WebGUI::Session->open("..",$configFile);
} }
sub cleanup { sub cleanup {