diff --git a/t/i18n/help.t b/t/i18n/help.t index 0d2e6b57a..bab4ac100 100644 --- a/t/i18n/help.t +++ b/t/i18n/help.t @@ -16,7 +16,7 @@ use lib "$FindBin::Bin/../lib"; ##t/lib use WebGUI::Test; use WebGUI::Operation::Help; use WebGUI::International; -use WebGUI::Session; +use WebGUI::Pluggable; use Data::Dumper; #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 @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session); +my @helpFileSet = WebGUI::Pluggable::findAndLoad('WebGUI::Help'); my %helpTable; -foreach my $helpSet (@helpFileSet) { - my $helpName = $helpSet->[1]; - my $help = WebGUI::Operation::Help::_load($session, $helpName); - $helpTable{ $helpName } = $help; +foreach my $helpFile (@helpFileSet) { + my ($namespace) = $helpFile =~ m{WebGUI::Help::(.+$)}; + my $help = WebGUI::Operation::Help::_load($session, $namespace); + $helpTable{ $namespace } = $help; } ##Scan #1, find all labels in the help system. body, title, @fields