37 lines
631 B
Perl
37 lines
631 B
Perl
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 3;
|
|
use WebGUI::Paths;
|
|
|
|
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';
|
|
|