cpan/Test-Simple/lib/Test2/IPC.pm
cpan/Test-Simple/lib/Test2/IPC/Driver.pm
cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
+cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
cpan/Test-Simple/lib/Test2/Transition.pod
cpan/Test-Simple/lib/Test2/Util.pm
cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
cpan/Test-Simple/t/Test2/modules/IPC.t
cpan/Test-Simple/t/Test2/modules/IPC/Driver.t
cpan/Test-Simple/t/Test2/modules/IPC/Driver/Files.t
+cpan/Test-Simple/t/Test2/modules/Tools/Tiny.t
cpan/Test-Simple/t/Test2/modules/Util.t
cpan/Test-Simple/t/Test2/modules/Util/ExternalMeta.t
cpan/Test-Simple/t/Test2/modules/Util/HashBase.t
cpan/Test-Simple/t/Test2/regression/693_ipc_ordering.t
cpan/Test-Simple/t/Test2/regression/gh_16.t
cpan/Test-Simple/t/Test2/regression/ipc_files_abort_exit.t
-cpan/Test-Simple/t/tools.pl
-cpan/Test-Simple/t/tools.t
cpan/Text-Balanced/lib/Text/Balanced.pm Text::Balanced
cpan/Text-Balanced/t/01_compile.t See if Text::Balanced works
cpan/Text-Balanced/t/02_extbrk.t See if Text::Balanced works
-rmdir lib/autodie/exception lib/autodie/Scope lib/autodie lib/XS
-rmdir lib/Win32API lib/VMS lib/Unicode/Collate/Locale
-rmdir lib/Unicode/Collate/CJK lib/Unicode/Collate lib/Tie/Hash
- -rmdir lib/Thread lib/Text lib/Test2/Util lib/Test2/IPC/Driver
- -rmdir lib/Test2/IPC lib/Test2/Hub/Interceptor lib/Test2/Hub
- -rmdir lib/Test2/Formatter lib/Test2/Event/TAP lib/Test2/Event
- -rmdir lib/Test2/API lib/Test2 lib/Test/use lib/Test/Tester
- -rmdir lib/Test/Builder/Tester lib/Test/Builder/IO lib/Test/Builder
- -rmdir lib/Test lib/Term lib/TAP/Parser/YAMLish
+ -rmdir lib/Thread lib/Text lib/Test2/Util lib/Test2/Tools
+ -rmdir lib/Test2/IPC/Driver lib/Test2/IPC lib/Test2/Hub/Interceptor
+ -rmdir lib/Test2/Hub lib/Test2/Formatter lib/Test2/Event/TAP
+ -rmdir lib/Test2/Event lib/Test2/API lib/Test2 lib/Test/use
+ -rmdir lib/Test/Tester lib/Test/Builder/Tester lib/Test/Builder/IO
+ -rmdir lib/Test/Builder lib/Test lib/Term lib/TAP/Parser/YAMLish
-rmdir lib/TAP/Parser/SourceHandler lib/TAP/Parser/Scheduler
-rmdir lib/TAP/Parser/Result lib/TAP/Parser/Iterator lib/TAP/Parser
-rmdir lib/TAP/Harness lib/TAP/Formatter/File
},
'Test::Simple' => {
- 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302067.tar.gz',
+ 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302073.tar.gz',
'FILES' => q[cpan/Test-Simple],
'EXCLUDED' => [
qr{^examples/},
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN {
if( $] < 5.008 ) {
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
require Exporter;
our @ISA = qw(Exporter);
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
=head1 NAME
package Test::Builder::Tester;
use strict;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test::Builder;
use Symbol;
package Test::Builder::Tester::Color;
use strict;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
require Test::Builder::Tester;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
return warn @_, " at $file line $line\n";
}
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use strict;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
use vars qw( @ISA @EXPORT );
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
@ISA = qw( Exporter );
package Test::Tester::Capture;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test::Builder;
package Test::Tester::CaptureRunner;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test::Tester::Capture;
package Test::Tester::Delegate;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Scalar::Util();
package Test::use::ok;
use 5.005;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
__END__
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
1;
$ENV{TEST2_ACTIVE} = 1;
}
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
my $INST;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Util qw/pkg_to_file/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Carp qw/confess croak longmess/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Hub();
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Util::HashBase qw/trace nested in_subtest subtest_id/;
use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase qw/encoding/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Carp qw/croak/;
use Scalar::Util qw/reftype/;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase;
use Scalar::Util qw/blessed/;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase qw/diagnostics renderer/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase qw/version/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
my %ADDED;
use warnings;
require PerlIO;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Util::HashBase qw{
no_numbers handles _encoding
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Carp qw/carp croak confess/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Hub::Interceptor::Terminator();
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
1;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::API::Instance;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Carp qw/confess longmess/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
+package Test2::Tools::Tiny;
+use strict;
+use warnings;
+
use Scalar::Util qw/blessed/;
use Test2::Util qw/try/;
use Test2::Hub::Interceptor();
use Test2::Hub::Interceptor::Terminator();
+our $VERSION = '1.302073';
+
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
+our @EXPORT = qw{
+ ok is isnt like unlike is_deeply diag note skip_all todo plan done_testing
+ warnings exception tests capture
+};
+
sub ok($;$@) {
my ($bool, $name, @diag) = @_;
my $ctx = context();
elsif (defined($got) xor defined($want)) {
$bool = 0;
}
- else { # Both are undef
+ else { # Both are undef
$bool = 1;
}
elsif (defined($got) xor defined($want)) {
$bool = 1;
}
- else { # Both are undef
+ else { # Both are undef
$bool = 0;
}
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Deparse = 1;
- local $Data::Dumper::Freezer = 'XXX';
- local *UNIVERSAL::XXX = sub {
+ local $Data::Dumper::Freezer = 'XXX';
+ local *UNIVERSAL::XXX = sub {
my ($thing) = @_;
if (ref($thing)) {
$thing = {%$thing} if "$thing" =~ m/=HASH/;
my $bool = $g eq $w;
my $diff;
-# unless ($bool) {
-# use File::Temp;
-# my ($gFH, $fileg) = File::Temp::tempfile();
-# my ($wFH, $filew) = File::Temp::tempfile();
-# print $gFH $g;
-# print $wFH $w;
-# close($gFH) || die $!;
-# close($wFH) || die $!;
-# my $cmd = qq{git diff --color=always "$fileg" "$filew"};
-# $diff = eval { `$cmd` };
-# }
$ctx->ok($bool, $name, [$diff ? $diff : ($g, $w), @diag]);
$ctx->release;
sub diag {
my $ctx = context();
- $ctx->diag( join '', @_ );
+ $ctx->diag(join '', @_);
$ctx->release;
}
sub note {
my $ctx = context();
- $ctx->note( join '', @_ );
+ $ctx->note(join '', @_);
$ctx->release;
}
}
sub todo {
- my ($reason, $sub) = @_;
- my $ctx = context();
-
- # This code is mostly copied from Test2::Todo in the Test2-Suite
- # distribution.
- my $hub = test2_stack->top;
- my $filter = $hub->pre_filter(
- sub {
- my ($active_hub, $event) = @_;
-
- # Turn a diag into a note
- return Test2::Event::Note->new(%$event) if ref($event) eq 'Test2::Event::Diag';
-
- # Set todo on ok's
- if ($hub == $active_hub && $event->isa('Test2::Event::Ok')) {
- $event->set_todo($reason);
- $event->set_effective_pass(1);
- }
-
- return $event;
- },
- inherit => 1,
- todo => $reason,
- );
- $sub->();
- $hub->pre_unfilter($filter);
-
- $ctx->release if $ctx;
+ my ($reason, $sub) = @_;
+ my $ctx = context();
+
+ # This code is mostly copied from Test2::Todo in the Test2-Suite
+ # distribution.
+ my $hub = test2_stack->top;
+ my $filter = $hub->pre_filter(
+ sub {
+ my ($active_hub, $event) = @_;
+
+ # Turn a diag into a note
+ return Test2::Event::Note->new(%$event) if ref($event) eq 'Test2::Event::Diag';
+
+ # Set todo on ok's
+ if ($hub == $active_hub && $event->isa('Test2::Event::Ok')) {
+ $event->set_todo($reason);
+ $event->set_effective_pass(1);
+ }
+
+ return $event;
+ },
+ inherit => 1,
+ todo => $reason,
+ );
+ $sub->();
+ $hub->pre_unfilter($filter);
+
+ $ctx->release if $ctx;
}
sub plan {
}
1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Test2::Tools::Tiny - Tiny set of tools for unfortunate souls who cannot use
+L<Test2::Suite>.
+
+=head1 DESCRIPTION
+
+You should really look at L<Test2::Suite>. This package is some very basic
+essential tools implemented using L<Test2>. This exists only so that L<Test2>
+and other tools required by L<Test2::Suite> can be tested. This is the package
+L<Test2> uses to test itself.
+
+=head1 USE Test2::Suite INSTEAD
+
+Use L<Test2::Suite> if at all possible.
+
+=head1 EXPORTS
+
+=over 4
+
+=item ok($bool, $name)
+
+=item ok($bool, $name, @diag)
+
+Run a simple assertion.
+
+=item is($got, $want, $name)
+
+=item is($got, $want, $name, @diag)
+
+Assert that 2 strings are the same.
+
+=item isnt($got, $do_not_want, $name)
+
+=item isnt($got, $do_not_want, $name, @diag)
+
+Assert that 2 strings are not the same.
+
+=item like($got, $regex, $name)
+
+=item like($got, $regex, $name, @diag)
+
+Check that the input string matches the regex.
+
+=item unlike($got, $regex, $name)
+
+=item unlike($got, $regex, $name, @diag)
+
+Check that the input string does not match the regex.
+
+=item is_deeply($got, $want, $name)
+
+=item is_deeply($got, $want, $name, @diag)
+
+Check 2 data structures. Please note that this is a I<DUMB> implementation that
+compares the output of L<Data::Dumper> against both structures.
+
+=item diag($msg)
+
+Issue a diagnostics message to STDERR.
+
+=item note($msg)
+
+Issue a diagnostics message to STDOUT.
+
+=item skip_all($reason)
+
+Skip all tests.
+
+=item todo $reason => sub { ... }
+
+Run a block in TODO mode.
+
+=item plan($count)
+
+Set the plan.
+
+=item done_testing()
+
+Set the plan to the current test count.
+
+=item $warnings = warnings { ... }
+
+Capture an arrayref of warnings from the block.
+
+=item $exception = exception { ... }
+
+Capture an exception.
+
+=item tests $name => sub { ... }
+
+Run a subtest.
+
+=item $output = capture { ... }
+
+Capture STDOUT and STDERR output.
+
+Result looks like this:
+
+ {
+ STDOUT => "...",
+ STDERR => "...",
+ }
+
+=back
+
+=head1 SOURCE
+
+The source code repository for Test2 can be found at
+F<http://github.com/Test-More/test-more/>.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2016 Chad Granum E<lt>exodist@cpan.orgE<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See F<http://dev.perl.org/licenses/>
+
+=cut
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Config qw/%Config/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Carp qw/croak/;
use strict;
use warnings;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use Test2::Util qw/get_tid pkg_to_file/;
package ok;
-our $VERSION = '1.302071';
+our $VERSION = '1.302073';
use strict;
use Test::More ();
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/intercept/;
plan 4;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw( context_do );
$SIG{__WARN__} = sub {
use strict;
use warnings;
-BEGIN { require "t/tools.pl" }
+use Test2::Tools::Tiny;
use Test2::API qw/intercept run_subtest test2_stack/;
use Test2::Event::Bail;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/run_subtest intercept test2_stack/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/run_subtest intercept/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/run_subtest intercept/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" }
+use Test2::Tools::Tiny;
use Test2::API qw/run_subtest intercept/;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
{
local $! = 100;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
BEGIN {
package Foo::Bar;
use strict;
use warnings;
BEGIN { $Test2::API::DO_DEPTH_CHECK = 1 }
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/context/;
Test2/API/Stack.pm
};
-require "t/tools.pl";
+require Test2::Tools::Tiny;
-ok(!@loaded, "Test2::API was not loaded")
+Test2::Tools::Tiny::ok(!@loaded, "Test2::API was not loaded")
|| diag("Loaded: " . Dumper(\@loaded));
-done_testing();
+Test2::Tools::Tiny::done_testing();
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/run_subtest intercept context/;
use warnings;
# HARNESS-NO-FORMATTER
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
#########################
#
use warnings;
# HARNESS-NO-FORMATTER
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
#########################
#
#
#########################
-use Test2::API qw/test2_stack/;
+use Test2::API qw/test2_stack context/;
use Test::Builder::Formatter;
-# The tools in tools.pl have some intentional differences from the Test::More
-# versions, these behave more like Test::More which is important for
+# The tools in Test2::Tools::Tiny have some intentional differences from the
+# Test::More versions, these behave more like Test::More which is important for
# back-compat.
sub tm_ok($;$) {
my ($bool, $name) = @_;
use strict;
use warnings;
-use Test2::API;
+use Test2::API qw/context/;
my ($LOADED, $INIT);
BEGIN {
};
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util qw/get_tid/;
my $CLASS = 'Test2::API';
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API::Breakage;
my $CLASS = 'Test2::API::Breakage';
use warnings;
BEGIN { $Test2::API::DO_DEPTH_CHECK = 1 }
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw{
context intercept
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util qw/CAN_THREAD CAN_REALLY_FORK USE_THREADS get_tid/;
my $CLASS = 'Test2::API::Instance';
use strict;
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API::Stack;
use Test2::API qw/test2_ipc/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event();
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Bail;
my $bail = Test2::Event::Bail->new(
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Diag;
use Test2::Util::Trace;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Exception;
my $exception = Test2::Event::Exception->new(
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util::Trace;
use Test2::API qw/context intercept/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Info;
use Test2::Util::Trace;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Note;
use Test2::Util::Trace;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util::Trace;
use Test2::Event::Ok;
use Test2::Event::Diag;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Plan;
use Test2::Util::Trace;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use strict;
use warnings;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Subtest;
my $st = 'Test2::Event::Subtest';
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Event::Waiting;
my $waiting = Test2::Event::Waiting->new(
use Test2::API qw/context/;
use PerlIO;
+use Test2::Tools::Tiny;
+
BEGIN {
- require "t/tools.pl";
*OUT_STD = Test2::Formatter::TAP->can('OUT_STD') or die;
*OUT_ERR = Test2::Formatter::TAP->can('OUT_ERR') or die;
}
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/context test2_ipc_drivers/;
use Test2::Util qw/CAN_FORK CAN_THREAD CAN_REALLY_FORK/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Hub::Interceptor;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Hub::Interceptor::Terminator;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Hub::Subtest;
use Test2::Util qw/get_tid/;
use Test2::IPC qw/cull/;
use Test2::API qw/context test2_ipc_drivers test2_ipc/;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
test2_ipc();
use Test2::IPC::Driver::Files;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/context test2_ipc_drivers/;
Test2::IPC::Driver::Files->import();
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util qw/get_tid USE_THREADS try ipc_separator/;
use File::Temp qw/tempfile/;
use File::Spec qw/catfile/;
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/context intercept test2_stack/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util qw/
try
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
{
package Foo::Bar;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::Util::Trace;
like(
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use strict;
use warnings;
use strict;
use warnings;
use Test2::IPC;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/context test2_stack/;
use Test2::Util qw/CAN_FORK/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
use Test2::API qw/intercept/;
use strict;
use warnings;
-BEGIN { require "t/tools.pl" }
+use Test2::Tools::Tiny;
# This module's exports interfere with the ones in t/tools.pl
use Test::More ();
use strict;
use warnings;
-BEGIN { require "t/tools.pl" };
+use Test2::Tools::Tiny;
ok(1, "");
https://perl5.git.perl.org / perl5.git / commitdiff