oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add Admin text test

Browse source
This commit is contained in:
Colin Kuskie 2006-01-16 18:30:16 +00:00
parent fab9f722e8
commit 3e1cfcccbe
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Macro.t
View file

@ -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');