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

make Maker/Permission.pm handle TODO tests

Browse source
This commit is contained in:
Colin Kuskie 2008-01-05 05:00:09 +00:00
parent c8a8af6b4a
commit ab3ebbeaab
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -145,6 +145,9 @@ Run the tests we've prepared and delete them as we run them.
sub run { sub run {
my $self = shift; my $self = shift;
my $tb = $CLASS->builder;
local $Test::Builder::Level = $Test::Builder::Level + 1;
while (my $test = shift @{ $self->{_tests} }) { while (my $test = shift @{ $self->{_tests} }) {
my $sub = $self->get("test"); my $sub = $self->get("test");

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

@ -271,6 +271,7 @@ sub runUsers {
$users, $passing, $comment ) = @_; $users, $passing, $comment ) = @_;
my $failing = !$passing; my $failing = !$passing;
my $tb = $CLASS->builder; my $tb = $CLASS->builder;
local $Test::Builder::Level = $Test::Builder::Level + 1;
foreach my $userId (@{ $users }) { foreach my $userId (@{ $users }) {
my @args = @{ $precedingArguments }; my @args = @{ $precedingArguments };
my $oldUser = $session->user; my $oldUser = $session->user;