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

Update this test for new code in Operation/Help

Browse source
This commit is contained in:
Colin Kuskie 2010-05-07 15:02:45 -07:00
parent 5992a1dc4a
commit 22f9a209bd
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/i18n/help.t
View file

@ -16,7 +16,7 @@ use lib "$FindBin::Bin/../lib"; ##t/lib
use WebGUI::Test; use WebGUI::Test;
use WebGUI::Operation::Help; use WebGUI::Operation::Help;
use WebGUI::International; use WebGUI::International;
use WebGUI::Session; use WebGUI::Pluggable;
use Data::Dumper; use Data::Dumper;
#The goal of this test is to verify all the i18n labels in #The goal of this test is to verify all the i18n labels in
@ -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 $helpFile (@helpFileSet) {
my $helpName = $helpSet->[1]; my ($namespace) = $helpFile =~ 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, find all labels in the help system. body, title, @fields ##Scan #1, find all labels in the help system. body, title, @fields