From 73531dfa5fc1d4a6e65334ed6437b9d92773de31 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 26 Dec 2005 03:30:31 +0000
Subject: [PATCH] Check the macros that pull data out of the settings database
 table.

---
 t/Macro.t | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 59 insertions(+), 3 deletions(-)

diff --git a/t/Macro.t b/t/Macro.t
index 08e5b6d35..6a27948e2 100644
--- a/t/Macro.t
+++ b/t/Macro.t
@@ -14,16 +14,53 @@ use lib '../lib';
 use Getopt::Long;
 use WebGUI::Session;
 use WebGUI::Macro;
+use WebGUI::SQL;
+use Data::Dumper;
 # ---- END DO NOT EDIT ----
 
+initialize();  # this line is required
+
 #This test is to verify bugs with respect to Macros:
 # - [ 1364838 ] ^GroupText Macro cannot execute other macros
+#
+# It also checks some macros which pull data out of the setting table.
+
+my @settingMacros = (
+	{
+		settingKey => 'companyEmail',
+		macro => 'e_companyEmail'
+	},
+	{
+		settingKey => 'companyName',
+		macro => 'c_companyName'
+	},
+	{
+		settingKey => 'companyURL',
+		macro => 'u_companyUrl'
+	},
+);
+
+##Build a reverse hash of the macro settings in the session var so that
+##we can lookup the aliases for each macro.
+
+my %macroNames = reverse %{ $session{config}{macros} };
+
+my $settingMacros = 0;
+
+foreach my $macro ( @settingMacros ) {
+	++$settingMacros;
+	if (exists $macroNames{ $macro->{macro} }) {
+		$macro->{shortcut} = $macroNames{ $macro->{macro} };
+		$macro->{skip} = 0;
+	}
+	else {
+		$macro->{skip} = 1;
+	}
+}
 
 use Test::More; # increment this value for each test you create
 
-my $numTests = 3;
-
-initialize();  # this line is required
+my $numTests = 3 + $settingMacros;
 
 plan tests => $numTests;
 
@@ -47,6 +84,25 @@ WebGUI::Macro::process(\$output);
 
 like($output, qr/If you're reading this/, 'GroupText, nesting, in group');
 
+diag("Begin setting macro tests");
+
+my $sth = WebGUI::SQL->prepare('select value from settings where name=?');
+
+foreach my $macro ( @settingMacros ) {
+	SKIP: {
+		skip("Unable to lookup macro: $macro->{macro}",1) if $macro->{skip};
+		my ($value) = WebGUI::SQL->quickArray(
+			sprintf "select value from settings where name=%s",
+				quote($macro->{settingKey})
+		);
+		my $macroVal = sprintf "^%s();", $macro->{shortcut};
+		WebGUI::Macro::process(\$macroVal);
+		is($value, $macroVal, sprintf "Testing %s", $macro->{macro});
+	}
+}
+
+$sth->finish();
+
 cleanup(); # this line is required
 
 # ---- DO NOT EDIT BELOW THIS LINE -----