Skip Menu |
 

This queue is for tickets about the Test-Class CPAN distribution.

Report information
The Basics
Id: 99758
Status: new
Priority: 0/
Queue: Test-Class

People
Owner: Nobody in particular
Requestors: felipe [...] felipegasper.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Bug in Test::Class
Date: Thu, 23 Oct 2014 11:12:43 -0500
To: bug-Test-Class [...] rt.cpan.org
From: Felipe Gasper <felipe [...] felipegasper.com>
Download (untitled) / with headers
text/plain 666b
=========================== #!/usr/bin/perl package My::TestUtils; use parent qw(Test::Class); use Test::More; sub _skip { my ($self) = @_; skip "oops!", $self->num_tests(); } package My::Tests; BEGIN { push @ISA, 'My::TestUtils'; } use Test::More; if (!caller) { plan tests => __PACKAGE__->expected_tests(); __PACKAGE__->new()->runtests(); } sub the_test : Test() { my ($self) = @_; SKIP: { $self->_skip(); ok 1; } } ===================== The above code fails because Test::Class errantly tries to look for the_test() as a test method of My::TestUtils. Thank you! -Felipe Gasper Houston, TX


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.