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

removing diag output from tests

Browse source 
Fix SQLForm help label so automatically generated Asset list works
EMS Help and i18n
This commit is contained in:
Colin Kuskie 2006-04-19 04:54:44 +00:00
parent f041a0b8b1
commit 7d94874bcc
8 changed files with 80 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Help/compiled.t
View file

@ -30,8 +30,6 @@ my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
$numTests = scalar @helpFileSet; #One for each help compile
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
foreach my $helpSet (@helpFileSet) {

2
t/Help/related.t
View file

@ -51,8 +51,6 @@ foreach my $topic ( keys %helpTable ) {
}
}
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
##Each array element is a hash with two keys, tag (entry) and namespace (topic).

4
t/Help/toc.t
View file

@ -30,12 +30,8 @@ my @helpFileSet = WebGUI::Operation::Help::_getHelpFilesList($session);
$numTests = scalar @helpFileSet;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
diag("Check for mandatory lables for Help table of contents");
foreach my $fileSet (@helpFileSet) {
my $file = $fileSet->[1];
ok(WebGUI::Operation::Help::_getHelpName($session, $file), "Missing label for $file");

17
t/i18n/label.t
View file

@ -69,35 +69,22 @@ my @sqlLabels;
my @libLabels;
my @objLabels;
diag("Getting Help labels");
@helpLabels = getHelpLabels();
#diag("Getting SQL labels");
#@sqlLabels = getSQLLabels();
diag("Getting subroutine labels");
find(\&label_finder_pm, $lib);
diag("Getting object labels");
find(\&obj_finder_pm, $lib);
diag ("Checking ". scalar(@helpLabels). " help labels");
#diag ("Checking ". scalar(@sqlLabels). " SQL labels");
diag ("Checking ". scalar(@libLabels). " library code labels");
diag ("Checking ". scalar(@objLabels). " library code labels via object");
$numTests = scalar(@helpLabels)
# + scalar(@sqlLabels)
+ scalar(@libLabels)
+ scalar(@objLabels)
;
diag("Planning on running $numTests tests\n");
plan tests => $numTests;
diag("Help Label tests\n");
my $i18n = WebGUI::International->new($session);
foreach my $label ( @helpLabels ) {
@ -105,7 +92,6 @@ foreach my $label ( @helpLabels ) {
sprintf "label: %s->%s inside %s->%s->%s", @{ $label }{'namespace', 'label', 'topic', 'entry', 'tag', });
}
#diag("SQL Label tests\n");
#
#foreach my $label ( @sqlLabels ) {
# ok($i18n->get(@{ $label }{qw(label namespace )} ),
@ -113,15 +99,12 @@ foreach my $label ( @helpLabels ) {
#}
#
##Subroutine calls are now illegal, everything must be done by object methods.
diag("Subroutine Call Label tests\n");
foreach my $label ( @libLabels ) {
ok(0,
sprintf "label: %s->%s inside %s", @{ $label }{'namespace', 'label', 'file', });
}
diag("Object Method Label tests\n");
foreach my $label ( @objLabels ) {
ok($i18n->get(@{ $label }{qw(label namespace )} ),
sprintf "label: %s->%s inside %s", @{ $label }{'namespace', 'label', 'file', });