oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a bad cleanup, and update a test for new paths.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-14 14:29:35 -07:00
parent 746ba98ec7
commit aada6e3c83
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Config.t
View file

@ -16,6 +16,7 @@ use WebGUI::Test;
use Test::More tests => 15; # increment this value for each test you create use Test::More tests => 15; # increment this value for each test you create
use Test::Deep; use Test::Deep;
use File::Basename qw(basename); use File::Basename qw(basename);
use Cwd;
my $config = WebGUI::Test->config; my $config = WebGUI::Test->config;
my $configFile = WebGUI::Test->file; my $configFile = WebGUI::Test->file;
@ -27,7 +28,7 @@ is( ref $config->get("macros"), "HASH", "get() macros hash" );
is( ref $config->get("assets"), "HASH", "get() assets hash" ); is( ref $config->get("assets"), "HASH", "get() assets hash" );
is( ref $config->get("shippingDrivers"), "ARRAY", "get() shippingDrivers array" ); is( ref $config->get("shippingDrivers"), "ARRAY", "get() shippingDrivers array" );
is( $config->getFilename, basename($configFile), "getFilename()" ); is( $config->getFilename, basename($configFile), "getFilename()" );
is( $config->getWebguiRoot, $webguiRoot, "getWebguiRoot()" ); is( $config->getWebguiRoot, Cwd::realpath($webguiRoot), "getWebguiRoot()" );
ok( defined WebGUI::Config->readAllConfigs($webguiRoot), "readAllConfigs" ); ok( defined WebGUI::Config->readAllConfigs($webguiRoot), "readAllConfigs" );
$config->addToArray("shippingDrivers","TEST"); $config->addToArray("shippingDrivers","TEST");
my $found = 0; my $found = 0;
@ -85,7 +86,7 @@ if ($cookieName eq "") {
} }
$config->set('privateArray', ['a', 'b', 'c']); $config->set('privateArray', ['a', 'b', 'c']);
WebGUI::Test->addToCleanup(CODE => sub { $config->delete('privateArray')}); WebGUI::Test->addToCleanup(sub { $config->delete('privateArray')});
cmp_bag($config->get('privateArray'), ['a', 'b', 'c'], 'set: array, not scalar'); cmp_bag($config->get('privateArray'), ['a', 'b', 'c'], 'set: array, not scalar');
#vim:ft=perl #vim:ft=perl