test adjustments for WebGUI::Paths

This commit is contained in:
Graham Knop 2010-03-11 07:27:01 -06:00
parent 65e858ff4d
commit 7afda00d9b
26 changed files with 127 additions and 132 deletions

View file

@ -2,13 +2,35 @@ use 5.010;
use strict;
use warnings;
use Test::More tests => 2; # last test to print
use Test::More tests => 3;
use WebGUI::Paths;
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 subname)),
'Internal functions cleaned up';
can_ok 'WebGUI::Paths', qw(
configBase
logConfig
spectreConfig
preloadCustom
preloadExclusions
upgrades
extras
defaultUploads
defaultCreateSQL
var
);
ok !(grep { WebGUI::Paths->can($_) } 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->spectreConfig), 'Spectre config not listed in configs';