diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Builder.pm | 27 | ||||
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Builder/Module.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Builder/Tester.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Builder/Tester/Color.pm | 2 | ||||
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test/Builder/TodoDiag.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/More.pm | 19 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Simple.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Tester.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Tester/Capture.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Tester/CaptureRunner.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test/use/ok.pm | 2 |
13 files changed, 35 insertions, 37 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Builder.pm b/Master/tlpkg/tlperl/lib/Test/Builder.pm index 46f93cc706f..b61bd5024da 100644 --- a/Master/tlpkg/tlperl/lib/Test/Builder.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder.pm @@ -4,7 +4,7 @@ use 5.006; use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; BEGIN { if( $] < 5.008 ) { @@ -27,7 +27,6 @@ BEGIN { Test2::IPC::Driver::Files->import; Test2::API::test2_ipc_enable_polling(); Test2::API::test2_no_wait(1); - Test2::API::test2_ipc_enable_shm(); } } @@ -64,18 +63,13 @@ sub _add_ts_hooks { $todo = ${"$cpkg\::TODO"} if $cpkg; $todo = ${"$epkg\::TODO"} if $epkg && !$todo; - return $e unless $todo; + return $e unless defined $todo; # Turn a diag into a todo diag return Test::Builder::TodoDiag->new(%$e) if ref($e) eq 'Test2::Event::Diag'; - if ($active_hub == $hub) { - $e->set_todo($todo) if $e->can('set_todo'); - $e->add_amnesty({tag => 'TODO', details => $todo}); - } - else { - $e->add_amnesty({tag => 'TODO', details => $todo, inherited => 1}); - } + $e->set_todo($todo) if $e->can('set_todo'); + $e->add_amnesty({tag => 'TODO', details => $todo}); # Set todo on ok's if ($e->isa('Test2::Event::Ok')) { @@ -1765,7 +1759,6 @@ sub coordinate_forks { my $ipc = Test2::IPC::apply_ipc($self->{Stack}); $ipc->set_no_fatal(1); Test2::API::test2_no_wait(1); - Test2::API::test2_ipc_enable_shm(); } sub no_log_results { $_[0]->{no_log_results} = 1 } @@ -2578,7 +2571,17 @@ L<Test::Exception> and L<Test::Differences> all use Test::Builder. =head1 SEE ALSO -L<Test::Simple>, L<Test::More>, L<Test::Harness> +=head2 INTERNALS + +L<Test2>, L<Test2::API> + +=head2 LEGACY + +L<Test::Simple>, L<Test::More> + +=head2 EXTERNAL + +L<Test::Harness> =head1 AUTHORS diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm b/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm index 82a8eead675..3c29ffdaf21 100755 --- a/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm @@ -2,7 +2,7 @@ package Test::Builder::Formatter; use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) } @@ -95,7 +95,7 @@ F<http://github.com/Test-More/test-more/>. =head1 COPYRIGHT -Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>. +Copyright 2019 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. diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/Module.pm b/Master/tlpkg/tlperl/lib/Test/Builder/Module.pm index be66239db5d..1ca914dee65 100644 --- a/Master/tlpkg/tlperl/lib/Test/Builder/Module.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder/Module.pm @@ -7,7 +7,7 @@ use Test::Builder; require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; =head1 NAME diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/Tester.pm b/Master/tlpkg/tlperl/lib/Test/Builder/Tester.pm index 25ad7c5767d..469336d8755 100644 --- a/Master/tlpkg/tlperl/lib/Test/Builder/Tester.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder/Tester.pm @@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Test::Builder; use Symbol; diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/Tester/Color.pm b/Master/tlpkg/tlperl/lib/Test/Builder/Tester/Color.pm index 5cb0e3465f8..0bf39c60d71 100644 --- a/Master/tlpkg/tlperl/lib/Test/Builder/Tester/Color.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder/Tester/Color.pm @@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; require Test::Builder::Tester; diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/TodoDiag.pm b/Master/tlpkg/tlperl/lib/Test/Builder/TodoDiag.pm index b972a49f3ef..8ac230f71c9 100755 --- a/Master/tlpkg/tlperl/lib/Test/Builder/TodoDiag.pm +++ b/Master/tlpkg/tlperl/lib/Test/Builder/TodoDiag.pm @@ -2,7 +2,7 @@ package Test::Builder::TodoDiag; use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) } @@ -58,7 +58,7 @@ F<http://github.com/Test-More/test-more/>. =head1 COPYRIGHT -Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>. +Copyright 2019 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. diff --git a/Master/tlpkg/tlperl/lib/Test/More.pm b/Master/tlpkg/tlperl/lib/Test/More.pm index 9184c6281da..473c86eba63 100644 --- a/Master/tlpkg/tlperl/lib/Test/More.pm +++ b/Master/tlpkg/tlperl/lib/Test/More.pm @@ -17,7 +17,7 @@ sub _carp { return warn @_, " at $file line $line\n"; } -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); @@ -95,8 +95,10 @@ Test::More - yet another framework for writing test scripts =head1 DESCRIPTION B<STOP!> If you're just getting started writing tests, have a look at -L<Test::Simple> first. This is a drop in replacement for Test::Simple -which you can switch to once you get the hang of basic testing. +L<Test2::Suite> first. + +This is a drop in replacement for Test::Simple which you can switch to once you +get the hang of basic testing. The purpose of this module is to provide a wide range of testing utilities. Various ways to say "ok" with better diagnostics, @@ -1918,6 +1920,8 @@ magic side-effects are kept to a minimum. WYSIWYG. =head2 ALTERNATIVES +L<Test2::Suite> is the most recent and modern set of tools for testing. + L<Test::Simple> if all this confuses you and you just want to write some tests. You can upgrade to Test::More later (it's forward compatible). @@ -1926,15 +1930,6 @@ L<Test::Legacy> tests written with Test.pm, the original testing module, do not play well with other testing libraries. Test::Legacy emulates the Test.pm interface and does play well with others. -=head2 TESTING FRAMEWORKS - -L<Fennec> The Fennec framework is a testers toolbox. It uses L<Test::Builder> -under the hood. It brings enhancements for forking, defining state, and -mocking. Fennec enhances several modules to work better together than they -would if you loaded them individually on your own. - -L<Fennec::Declare> Provides enhanced (L<Devel::Declare>) syntax for Fennec. - =head2 ADDITIONAL LIBRARIES L<Test::Differences> for more ways to test complex data structures. diff --git a/Master/tlpkg/tlperl/lib/Test/Simple.pm b/Master/tlpkg/tlperl/lib/Test/Simple.pm index 56220211126..9218173bc50 100644 --- a/Master/tlpkg/tlperl/lib/Test/Simple.pm +++ b/Master/tlpkg/tlperl/lib/Test/Simple.pm @@ -4,7 +4,7 @@ use 5.006; use strict; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Test::Builder::Module; our @ISA = qw(Test::Builder::Module); diff --git a/Master/tlpkg/tlperl/lib/Test/Tester.pm b/Master/tlpkg/tlperl/lib/Test/Tester.pm index 758a497634f..19cbf665712 100644 --- a/Master/tlpkg/tlperl/lib/Test/Tester.pm +++ b/Master/tlpkg/tlperl/lib/Test/Tester.pm @@ -18,7 +18,7 @@ require Exporter; use vars qw( @ISA @EXPORT ); -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); @ISA = qw( Exporter ); diff --git a/Master/tlpkg/tlperl/lib/Test/Tester/Capture.pm b/Master/tlpkg/tlperl/lib/Test/Tester/Capture.pm index d3e342569ec..e28dbf83432 100644 --- a/Master/tlpkg/tlperl/lib/Test/Tester/Capture.pm +++ b/Master/tlpkg/tlperl/lib/Test/Tester/Capture.pm @@ -2,7 +2,7 @@ use strict; package Test::Tester::Capture; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Test::Builder; diff --git a/Master/tlpkg/tlperl/lib/Test/Tester/CaptureRunner.pm b/Master/tlpkg/tlperl/lib/Test/Tester/CaptureRunner.pm index 57f73575e92..7cf3c0f0b52 100644 --- a/Master/tlpkg/tlperl/lib/Test/Tester/CaptureRunner.pm +++ b/Master/tlpkg/tlperl/lib/Test/Tester/CaptureRunner.pm @@ -3,7 +3,7 @@ use strict; package Test::Tester::CaptureRunner; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Test::Tester::Capture; diff --git a/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm b/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm index a1ea620cc4d..ebfd4e21681 100644 --- a/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm +++ b/Master/tlpkg/tlperl/lib/Test/Tester/Delegate.pm @@ -3,7 +3,7 @@ use warnings; package Test::Tester::Delegate; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Scalar::Util(); diff --git a/Master/tlpkg/tlperl/lib/Test/use/ok.pm b/Master/tlpkg/tlperl/lib/Test/use/ok.pm index 1405824372b..a81bbfb64a3 100644 --- a/Master/tlpkg/tlperl/lib/Test/use/ok.pm +++ b/Master/tlpkg/tlperl/lib/Test/use/ok.pm @@ -1,7 +1,7 @@ package Test::use::ok; use 5.005; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; __END__ |