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

Add tests to make sure all asset classes in the config file can be loaded

Browse source 
correctly.
This commit is contained in:
Drake 2006-10-26 23:23:47 +00:00
parent 04930fd653
commit a25d621343
1 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

27
t/Config.t
View file

@ -13,7 +13,7 @@ use strict;
use lib "$FindBin::Bin/lib"; use lib "$FindBin::Bin/lib";
use WebGUI::Test; use WebGUI::Test;
use Test::More tests => 13; # increment this value for each test you create use Test::More tests => 14; # increment this value for each test you create
my $config = WebGUI::Test->config; my $config = WebGUI::Test->config;
my $configFile = WebGUI::Test->file; my $configFile = WebGUI::Test->file;
@ -57,3 +57,28 @@ if ($cookieName eq "") {
} else { } else {
is($config->getCookieName,$cookieName, "getCookieName()"); is($config->getCookieName,$cookieName, "getCookieName()");
} }
{
my $ok = 1;
foreach my $assetClass (@{$config->get('assets')}, @{$config->get('assetContainers')},
@{$config->get('utilityAssets')}) {
unless ($assetClass =~ /\A(?:[A-Za-z0-9_]+::)*[A-Za-z0-9_]+\z/) {
diag "$assetClass is not a valid class name";
$ok = 0; next;
}
eval "require $assetClass";
if ($@) {
diag "$assetClass could not be loaded: $@";
$ok = 0; next;
}
unless ($assetClass->isa('WebGUI::Asset')) {
diag "$assetClass is not a subclass of WebGUI::Asset";
$ok = 0; next;
}
}
ok($ok, "asset classes are all valid asset classes");
}