From a25d6213436b9366129686e7152deb4d160bd947 Mon Sep 17 00:00:00 2001
From: Drake <drake@plainblack.com>
Date: Thu, 26 Oct 2006 23:23:47 +0000
Subject: [PATCH] Add tests to make sure all asset classes in the config file
 can be loaded correctly.

---
 t/Config.t | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/t/Config.t b/t/Config.t
index cda573842..65c175463 100644
--- a/t/Config.t
+++ b/t/Config.t
@@ -13,7 +13,7 @@ use strict;
 use lib "$FindBin::Bin/lib";
 
 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 $configFile = WebGUI::Test->file;
@@ -57,3 +57,28 @@ if ($cookieName eq "") {
 } else {
 	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");
+}