},
'Test::Simple' => {
- 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302170.tar.gz',
+ 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302171.tar.gz',
'FILES' => q[cpan/Test-Simple],
'EXCLUDED' => [
qr{^examples/},
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN {
if( $] < 5.008 ) {
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
require Exporter;
our @ISA = qw(Exporter);
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
=head1 NAME
package Test::Builder::Tester;
use strict;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test::Builder;
use Symbol;
package Test::Builder::Tester::Color;
use strict;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
require Test::Builder::Tester;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
return warn @_, " at $file line $line\n";
}
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
TODO flag.
The nice part about todo tests, as opposed to simply commenting out a
-block of tests, is it's like having a programmatic todo list. You know
+block of tests, is that it is like having a programmatic todo list. You know
how much work is left to be done, you're aware of what bugs there are,
and you'll know immediately when they're fixed.
use strict;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use vars qw( @ISA @EXPORT );
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
@ISA = qw( Exporter );
}
);
-this will execute the is_mystyle_eq test, capturing it's results and
+this will execute the is_mystyle_eq test, capturing its results and
checking that they are what was expected.
You may need to examine the test results in a more flexible way, for
package Test::Tester::Capture;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test::Builder;
sub new
{
# Test::Tester::Capgture::new used to just return __PACKAGE__
- # because Test::Builder::new enforced it's singleton nature by
+ # because Test::Builder::new enforced its singleton nature by
# return __PACKAGE__. That has since changed, Test::Builder::new now
# returns a blessed has and around version 0.78, Test::Builder::todo
# started wanting to modify $self. To cope with this, we now return
=head1 DESCRIPTION
This is a subclass of Test::Builder that overrides many of the methods so
-that they don't output anything. It also keeps track of it's own set of test
+that they don't output anything. It also keeps track of its own set of test
results so that you can use Test::Builder based modules to perform tests on
other Test::Builder based modules.
package Test::Tester::CaptureRunner;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test::Tester::Capture;
package Test::Tester::Delegate;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Scalar::Util();
package Test::use::ok;
use 5.005;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
__END__
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
1;
$ENV{TEST2_ACTIVE} = 1;
}
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
my $INST;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::Util qw/pkg_to_file/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/confess croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
use Carp qw/confess carp/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::Hub();
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Scalar::Util qw/blessed reftype/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::EventFacet::Info;
use Carp qw/croak/;
use Scalar::Util qw/reftype/;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::EventFacet::Info;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Scalar::Util qw/reftype/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::Util::HashBase qw/-details/;
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -package -no_display -uuid -eid };
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -pass -no_debug -number };
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase };
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
sub facet_key { 'errors' }
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
sub is_list { 1 }
sub facet_key { 'hubs' }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use vars qw/$AUTOLOAD/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -count -skip -none };
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
sub is_list { 1 }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
my %ADDED;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::Util qw/clone_io/;
}
my %seen;
- my @order = grep { !$seen{$_}++ } sort keys %directives;
+
+ # Sort so that TODO comes before skip even on systems where lc sorts
+ # before uc, as other code depends on that ordering.
+ my @order = grep { !$seen{$_}++ } sort { lc $b cmp lc $a } keys %directives;
$directives = ' # ' . join ' & ' => @order;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/carp croak confess/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::Hub::Interceptor::Terminator();
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
1;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Test2::API::Instance;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/confess/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
use Test2::Hub::Interceptor();
use Test2::Hub::Interceptor::Terminator();
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
BEGIN { require Exporter; our @ISA = qw(Exporter) }
our @EXPORT = qw{
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use POSIX();
use Config qw/%Config/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use Carp qw/croak confess/;
use Scalar::Util qw/blessed/;
use strict;
use warnings;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
#################################################################
# #
{
no warnings 'once';
- $Test2::Util::HashBase::HB_VERSION = '0.008';
+ $Test2::Util::HashBase::HB_VERSION = '0.009';
*Test2::Util::HashBase::ATTR_SUBS = \%Object::HashBase::ATTR_SUBS;
*Test2::Util::HashBase::ATTR_LIST = \%Object::HashBase::ATTR_LIST;
*Test2::Util::HashBase::VERSION = \%Object::HashBase::VERSION;
require Test2::EventFacet::Trace;
@ISA = ('Test2::EventFacet::Trace');
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
1;
package ok;
-our $VERSION = '1.302170';
+our $VERSION = '1.302171';
use strict;
use Test::More ();
*main::Const::Test::FOO = sub { 0 };
}
ok(!$pkg->FOO, "overrode const sub");
+{
+local $TODO = "known to fail on $]" if $] le "5.006002";
is($pkg->do_it, 'const', "worked as expected, const was constant");
+}
BEGIN {
$INC{'Object/HashBase/Test/HBase/Wrapped.pm'} = __FILE__;
use strict;
use warnings;
# HARNESS-NO-PRELOAD
+# HARNESS-NO-STREAM
my $CLASS;
my %BEFORE_LOAD;
my $author_testing = $ENV{AUTHOR_TESTING};
if ($author_testing && !$can_table) {
- die "This test requires Term::Table to be installed, and must be run in AUTHOR_TESTING mode";
+ die "You are running this test under AUTHOR_TESTING, doing so requires Term::Table to be installed, but it is not currently installed, this is a fatal error. Please install Term::Table before attempting to run this test under AUTHOR_TESTING.";
}
elsif ($can_table) {
tests tables => sub {
https://perl5.git.perl.org / perl5.git / commitdiff