From e25014e10716ad05321ef0d792bb39bead68e008 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 7 Sep 2010 21:14:12 -0700
Subject: [PATCH] Only run HTML::Template::Expr tests if the module is
 available.  Temporarily place it into the config file so that it can be
 tested.

---
 t/Template/downgrade.t | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/t/Template/downgrade.t b/t/Template/downgrade.t
index 589d705db..77979fedf 100644
--- a/t/Template/downgrade.t
+++ b/t/Template/downgrade.t
@@ -92,10 +92,16 @@ You say <tmpl_var his.yes>, I say <tmpl_var my.yes>.
 You say <tmpl_var his.stop>, and I say <tmpl_var my.stop>.
 END_HT
 
+my $gotExpr = use_ok('WebGUI::Asset::Template::HTMLTemplateExpr');
+SKIP: {
+    skip 'No HTML::Template::Expr module', 1 unless $gotExpr;
+    WebGUI::Test->originalConfig('templateParsers');
+    $session->config->addToArray('templateParsers', 'WebGUI::Asset::Template::HTMLTemplateExpr');
 processed_ok( 'WebGUI::Asset::Template::HTMLTemplateExpr', <<'END_HTE', 'HTML::Template::Expr' );
 You say <tmpl_var his_yes>, I say <tmpl_var my_yes>.
 You say <tmpl_var his_stop>, and I say <tmpl_var my_stop>.
 END_HTE
+}
 
 done_testing;