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

added admin console plugability

Browse source
This commit is contained in:
JT Smith 2008-09-27 17:11:14 +00:00
parent 4acb862e15
commit bb4c576f66
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
t/i18n/adminConsole.t
View file

@ -14,9 +14,9 @@ use warnings;
use lib "$FindBin::Bin/../lib"; ##t/lib
use WebGUI::Test;
use WebGUI::AdminConsole;
use WebGUI::International;
use WebGUI::Session;
use WebGUI::Macro;
#The goal of this test is to verify all the i18n labels in
#the Admin Console functions
@ -29,9 +29,7 @@ my $lib = WebGUI::Test->lib;
# put your tests here
my $ac = WebGUI::AdminConsole->new($session);
my %consoleFuncs = %{ $ac->getAdminFunction('', 1) };
my %consoleFuncs = %{ $session->config->get("adminConsole") };
$numTests = scalar keys %consoleFuncs;
@ -41,9 +39,10 @@ plan tests => $numTests;
my $i18n = WebGUI::International->new($session);
my ($label, $func);
while ( ($label, $func) = each %consoleFuncs ) {
ok($i18n->get(@{ $func->{title} }{qw(id namespace )} ),
sprintf "The title for %s, tag: %s, namespace: %s exists", $label, @{ $func->{title} }{'id', 'namespace'});
foreach my $key (keys %consoleFuncs ) {
my $label = $consoleFuncs{$key}{title};
WebGUI::Macro::process($session, \$label);
isnt($label,'', "admin console func $key: ".$consoleFuncs{$key}{title});
}