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

fixed Test::Maker::HTML Level. added some comments for future generations

Browse source
This commit is contained in:
Doug Bell 2008-01-05 05:10:57 +00:00
parent a05e90408e
commit a6c9c2d56c
3 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
t/lib/WebGUI/Test/Maker.pm
View file

@ -147,6 +147,7 @@ sub run {
my $self = shift;
my $tb = $CLASS->builder;
# This is to fix SKIP and TODO detection
local $Test::Builder::Level = $Test::Builder::Level + 1;
while (my $test = shift @{ $self->{_tests} }) {

3
t/lib/WebGUI/Test/Maker/HTML.pm
View file

@ -208,6 +208,9 @@ Run the tests we've prepared and delete them as we run them.
sub run {
my $self = shift;
# This is to fix detection of SKIP and TODO
local $Test::Builder::Level = $Test::Builder::Level + 1;
while (my $test = shift @{ $self->{_tests} }) {
my $o = $test->{object};

3
t/lib/WebGUI/Test/Maker/Permission.pm
View file

@ -185,7 +185,7 @@ Run the tests we've prepared and delete them as we run them.
sub run {
my $self = shift;
while (my $test = shift @{ $self->{_tests} }) {
my $session;
my @methodArguments = ();
@ -271,6 +271,7 @@ sub runUsers {
$users, $passing, $comment ) = @_;
my $failing = !$passing;
my $tb = $CLASS->builder;
# This is to fix detection of SKIP and TODO
local $Test::Builder::Level = $Test::Builder::Level + 1;
foreach my $userId (@{ $users }) {
my @args = @{ $precedingArguments };