Update help for new operational code.

This commit is contained in:
Colin Kuskie 2010-05-09 15:01:22 -07:00
parent c471cd145b
commit 10d96d3816

View file

@ -28,14 +28,14 @@ my $numTests = 0;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session); my @helpFileSet = WebGUI::Pluggable::findAndLoad('WebGUI::Help');
my %helpTable; my %helpTable;
foreach my $helpSet (@helpFileSet) { foreach my $helpSet (@helpFileSet) {
my $helpName = $helpSet->[1]; my ($namespace) = $helpSet =~ m{WebGUI::Help::(.+$)};
my $help = WebGUI::Operation::Help::_load($session, $helpName); my $help = WebGUI::Operation::Help::_load($session, $namespace);
$helpTable{ $helpName } = $help; $helpTable{ $namespace } = $help;
} }
##Scan #1, how many tests do we expect? ##Scan #1, how many tests do we expect?