view release on metacpan or  search on metacpan

t/lib/TestHelper.pm  view on Meta::CPAN

test2_add_callback_testing_done(sub {
    if (@TEST_QUEUE) {
        ok(0, 'There were ' . scalar(@TEST_QUEUE) . ' tests remaining in the queue');
    }
});

sub init {
    main::__tests__();
}

sub guard(&) {
    my $code = shift;
    bless $code, 'Devel::Chitin::TestHelper::Guard';
}
sub Devel::Chitin::TestHelper::Guard::DESTROY {
    my $code = shift;
    $code->();
}

my $START_TESTING = 0;
our $AT_END = 0;

t/lib/TestHelper.pm  view on Meta::CPAN

            my @bp = Devel::Chitin::Breakpoint->get(%params);
            foreach my $bp ( @bp ) {
                $ctx->ok($bp->delete, sprintf('Delete breakpoint at %s:%d', $bp->file, $bp->line));
            }
        };
    };
    push @TEST_QUEUE, $test;
}

sub do_test(&) {
    push @TEST_QUEUE, shift();
}

sub is_var_at_level {
    my($var_expr, $level, $expected, $msg) = @_;

    push @TEST_QUEUE, sub {
        is(__PACKAGE__->get_var_at_level($var_expr, $level),
            $expected,
            $msg);