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

also check syntax of utility scripts and upgrades

Browse source
This commit is contained in:
Graham Knop 2008-09-15 21:51:36 +00:00
parent b4e4590697
commit 9940ceb7c7
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/syntaxCheck.t
View file

@ -16,13 +16,15 @@ use WebGUI::Test;
use File::Find; use File::Find;
use WebGUI::Session; use WebGUI::Session;
use Test::More; use Test::More;
use File::Spec;
plan skip_all => 'set TEST_SYNTAX to enable this test' unless $ENV{TEST_SYNTAX}; plan skip_all => 'set TEST_SYNTAX to enable this test' unless $ENV{TEST_SYNTAX};
my @modules; my @modules;
my $wgLib = WebGUI::Test->lib; my $wgLib = WebGUI::Test->lib;
my $wgRoot = WebGUI::Test->root;
#diag("Checking modules in $wgLib"); #diag("Checking modules in $wgLib");
File::Find::find( \&getWebGUIModules, $wgLib); File::Find::find( \&getWebGUIModules, $wgLib, File::Spec->join($wgRoot, 'sbin'), File::Spec->join($wgRoot, 'docs', 'upgrades') );
my $numTests = scalar @modules; my $numTests = scalar @modules;
@ -38,5 +40,5 @@ foreach my $package (@modules) {
#---------------------------------------- #----------------------------------------
sub getWebGUIModules { sub getWebGUIModules {
push( @modules, $File::Find::name ) if /\.pm$/; push( @modules, $File::Find::name ) if /\.p[ml]$/;
} }