diff --git a/lib/WebGUI/Config.pm b/lib/WebGUI/Config.pm index c1409a510..d2f7f21ca 100644 --- a/lib/WebGUI/Config.pm +++ b/lib/WebGUI/Config.pm @@ -115,7 +115,7 @@ The path to the WebGUI installation. sub loadAllConfigs { my $class = shift; my $webguiPath = shift; - my $configs = readAllConfigs($webguiPath); + my $configs = $class->readAllConfigs($webguiPath); foreach my $filename (keys %{$configs}) { unless ($filename =~ /^demo\d/) { print "\tLoading ".$filename."\n"; diff --git a/t/Config.t b/t/Config.t new file mode 100644 index 000000000..abafed36e --- /dev/null +++ b/t/Config.t @@ -0,0 +1,38 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +# ---- BEGIN DO NOT EDIT ---- +use strict; +use lib '../lib'; +use Getopt::Long; +# ---- END DO NOT EDIT ---- + +use WebGUI::Config; +use Test::More tests => 6; # increment this value for each test you create + +$|=1; +my $configFile; +GetOptions( + 'configFile=s'=>\$configFile +); +exit 1 unless ($configFile); + +my $config = WebGUI::Config->new("..", $configFile); + +ok(defined $config, "load config"); +ok($config->get("dsn") ne "", "get()"); +is($config->getFilename,$configFile,"getFilename()"); +is($config->getWebguiRoot, "..", "getWebguiRoot()"); +WebGUI::Config->loadAllConfigs(".."); +ok(exists $WebGUI::Config::config{$configFile}, "loadAllConfigs"); +ok(defined WebGUI::Config->readAllConfigs(".."), "readAllConfigs"); + + +