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

Macro test maintenance.

Browse source
This commit is contained in:
Colin Kuskie 2009-10-31 12:05:07 -07:00
parent 058704d027
commit 5ea3f02520
6 changed files with 20 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Macro/Env.t
View file

@ -15,6 +15,7 @@ use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Data::Dumper;
use WebGUI::Macro::Env;
use Test::More; # increment this value for each test you create
@ -27,17 +28,10 @@ my $session = WebGUI::Test->session;
my %env = %{ $session->env->{_env} };
my @keys = keys %env;
my $numTests = 1 + 3 + scalar keys %env;
my $numTests = 3 + scalar keys %env;
plan tests => $numTests;
my $macro = 'WebGUI::Macro::Env';
my $loaded = use_ok($macro);
SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
my $output;
$output = WebGUI::Macro::Env::process($session, '');
@ -53,5 +47,3 @@ foreach my $key (keys %env) {
my $output = WebGUI::Macro::Env::process($session, $key);
is($output, $env{$key}, 'Fetching: '.$key);
}
}