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

all WebGUI::Paths subs should be methods

Browse source
This commit is contained in:
Graham Knop 2010-02-22 11:02:36 -06:00
parent 7067afe8a9
commit 90d63c6713
2 changed files with 36 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Paths.t
View file

@ -5,11 +5,11 @@ 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);
can_ok 'WebGUI::Paths', qw(configBase logConfig spectreConfig upgradesPath preloadCustom preloadExclusions extras defaultUploads defaultCreateSQL);
ok !(grep { WebGUI::Paths->can($_) }
qw(croak realpath catdir splitpath catpath splitpath updir catfile try catch _readTextLines)),
qw(croak realpath catdir splitpath catpath splitpath updir catfile try catch _readTextLines subname)),
'Internal functions cleaned up';
my @configs = WebGUI::Paths->siteConfigs;
ok !(\@configs ~~ WebGUI::Paths->SPECTRE_CONFIG), 'Spectre config not listed in configs';
ok !(\@configs ~~ WebGUI::Paths->spectreConfig), 'Spectre config not listed in configs';