From 3e1cfcccbea9b66136fb9cf53e2dd94b7386112f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 16 Jan 2006 18:30:16 +0000
Subject: [PATCH] add Admin text test

---
 t/Macro.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/Macro.t b/t/Macro.t
index 64db3ca91..124bf1463 100644
--- a/t/Macro.t
+++ b/t/Macro.t
@@ -59,24 +59,33 @@ foreach my $macro ( @settingMacros ) {
 
 use Test::More; # increment this value for each test you create
 
-my $numTests = 4 + $settingMacros;
+my $numTests = 6 + $settingMacros;
 
 plan tests => $numTests;
 
 diag("Planning on running $numTests tests\n");
 
 my $macroText = "^GroupText(3,local,foreigner);";
+my $AdminText = "^AdminText(admin);";
 my $output;
 
 $output = $macroText;
 WebGUI::Macro::process($session, \$output);
 is($output, 'foreigner', 'GroupText, user not in group');
 
+$output = $adminText;
+WebGUI::Macro::process($session, \$output);
+is($output, '', 'AdminText, user not in group');
+
 $output = $macroText;
 $session->user({userId => 3});
 WebGUI::Macro::process($session, \$output);
 is($output, 'local', 'GroupText, user in group');
 
+$output = $adminText;
+WebGUI::Macro::process($session, \$output);
+is($output, 'admin', 'AdminText, user is admin');
+
 my $apText = "^AssetProxy(getting_started);";
 WebGUI::Macro::process($session, \$apText);
 my $apPass = like($output, qr/If you're reading this/, 'AssetProxy functional check');