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

Broke Macro tests into chunks.

Browse source 
Added additional test to AdminText, checking for Admin mode on and off
This commit is contained in:
Colin Kuskie 2006-01-16 18:48:50 +00:00
parent f9e4c2c26d
commit 4085c7baf4
2 changed files with 74 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

71
t/Macro/AdminText.t Normal file
View file

@ -0,0 +1,71 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
# ---- BEGIN DO NOT EDIT ----
use strict;
use lib '../../lib';
use Getopt::Long;
use WebGUI::Macro;
use WebGUI::Session;
use Data::Dumper;
# ---- END DO NOT EDIT ----
my $session = initialize(); # this line is required
use Test::More; # increment this value for each test you create
my $numTests = 4;
plan tests => $numTests;
diag("Planning on running $numTests tests\n");
my $adminText = "^AdminText(admin);";
my $output;
$output = $adminText;
WebGUI::Macro::process($session, \$output);
is($output, '', 'user is not admin');
$session->user({userId => 3});
$output = $adminText;
WebGUI::Macro::process($session, \$output);
is($output, '', 'user is admin, not in admin mode');
$session->var->switchAdminOn;
$output = $adminText;
WebGUI::Macro::process($session, \$output);
is($output, 'admin', 'admin in admin mode');
$session->var->switchAdminOff;
$output = $adminText;
WebGUI::Macro::process($session, \$output);
is($output, '', 'user is admin, not in admin mode');
cleanup($session); # this line is required
# ---- DO NOT EDIT BELOW THIS LINE -----
sub initialize {
$|=1; # disable output buffering
my $configFile;
GetOptions(
'configFile=s'=>\$configFile
);
exit 1 unless ($configFile);
my $session = WebGUI::Session->open("../..",$configFile);
}
sub cleanup {
my $session = shift;
$session->close();
}