GroupText macro now returns an error message if group cannot be found. includes test

This commit is contained in:
Colin Kuskie 2006-07-13 05:23:49 +00:00
parent 2555a7d5b4
commit 3dd45bad6d
4 changed files with 24 additions and 9 deletions

View file

@ -23,13 +23,13 @@ my $session = WebGUI::Test->session;
use Test::More; # increment this value for each test you create
plan tests => 2 + 4;
plan tests => 4 + 4;
unless ($session->config->get('macros')->{'GroupText'}) {
Macro_Config::insert_macro($session, 'GroupText', 'GroupText');
}
my $macroText = q!^GroupText("Admin","admin","visitor");!;
my $macroText = q!^GroupText("Admins","admin","visitor");!;
my $output;
$session->user({userId => 1});
@ -42,6 +42,10 @@ $output = $macroText;
WebGUI::Macro::process($session, \$output);
is($output, 'admin', 'user is admin');
$output = q!^GroupText("Not a Group","in group","outside group");!;
WebGUI::Macro::process($session, \$output);
is($output, 'Group Not a Group was not found', 'Non-existant group returns an error message');
##Bug test setup
##Create a small database