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

Add use_ok for module loading.

Browse source 
Added corner cases for null admin text and undef (missing) admin text.
This commit is contained in:
Colin Kuskie 2006-07-30 01:07:17 +00:00
parent d756069c43
commit 0baf20af33
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
t/Macro/AdminText.t
View file

@ -13,7 +13,6 @@ use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Macro::AdminText;
use WebGUI::Session;
use Data::Dumper;
@ -21,12 +20,20 @@ my $session = WebGUI::Test->session;
use Test::More; # increment this value for each test you create
my $numTests = 4;
my $numTests = 6 + 1;
plan tests => $numTests;
my $macro = 'WebGUI::Macro::AdminText';
my $loaded = use_ok($macro);
SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
my $output;
$session->user({userId => 1});
$output = WebGUI::Macro::AdminText::process($session, 'admin');
is($output, '', 'user is not admin');
@ -38,6 +45,14 @@ $session->var->switchAdminOn;
$output = WebGUI::Macro::AdminText::process($session, 'admin');
is($output, 'admin', 'admin in admin mode');
$output = WebGUI::Macro::AdminText::process($session, '');
is($output, '', 'null text');
$output = WebGUI::Macro::AdminText::process($session);
is($output, undef, 'undef text');
$session->var->switchAdminOff;
$output = WebGUI::Macro::AdminText::process($session, 'admin');
is($output, '', 'user is admin, not in admin mode');
}