46 lines
788 B
Perl
46 lines
788 B
Perl
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use WebGUI::Paths;
|
|
|
|
my @pathMethods = qw(
|
|
configBase
|
|
logConfig
|
|
spectreConfig
|
|
preloadCustom
|
|
preloadExclusions
|
|
upgrades
|
|
extras
|
|
defaultUploads
|
|
defaultCreateSQL
|
|
share
|
|
);
|
|
can_ok 'WebGUI::Paths', @pathMethods;
|
|
|
|
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';
|
|
|
|
for my $method (@pathMethods) {
|
|
my $return = WebGUI::Paths->$method;
|
|
ok $return, "$method returns a path";
|
|
}
|
|
|
|
done_testing;
|
|
|