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

fix syntax error, add basic tests

Browse source
This commit is contained in:
Graham Knop 2010-02-22 10:21:07 -06:00
parent 45b84ec93f
commit 7067afe8a9
2 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Paths.pm
View file

@ -76,7 +76,7 @@ sub preloadPaths {
my @paths;
try {
@paths = grep {
-d ? 1 : do {
(-d) ? 1 : do {
warn "WARNING: Not adding lib directory '$path' from @{[PRELOAD_CUSTOM]}: Directory does not exist.\n";
0;
}

15
t/Paths.t Normal file
View file

@ -0,0 +1,15 @@
use 5.010;
use strict;
use warnings;
use Test::More tests => 2; # last test to print
use WebGUI::Paths;
can_ok 'WebGUI::Paths', qw(CONFIG_BASE LOG_CONFIG SPECTRE_CONFIG UPGRADES_PATH PRELOAD_CUSTOM PRELOAD_EXCLUSIONS EXTRAS DEFAULT_UPLOADS DEFAULT_SQL);
ok !(grep { WebGUI::Paths->can($_) }
qw(croak realpath catdir splitpath catpath splitpath updir catfile try catch _readTextLines)),
'Internal functions cleaned up';
my @configs = WebGUI::Paths->siteConfigs;
ok !(\@configs ~~ WebGUI::Paths->SPECTRE_CONFIG), 'Spectre config not listed in configs';