make Maker/Permission.pm handle TODO tests

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

View file

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

View file

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