test adjustments for WebGUI::Paths
This commit is contained in:
parent
65e858ff4d
commit
7afda00d9b
26 changed files with 127 additions and 132 deletions
32
t/Paths.t
32
t/Paths.t
|
|
@ -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';
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue