Upgrade Test-Simple from vesion 1.302098 to 1.302100
authorSteve Hay <steve.m.hay@googlemail.com>
Thu, 12 Oct 2017 07:22:40 +0000 (08:22 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Thu, 12 Oct 2017 07:22:40 +0000 (08:22 +0100)
63 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Test-Simple/lib/Test/Builder.pm
cpan/Test-Simple/lib/Test/Builder/Formatter.pm
cpan/Test-Simple/lib/Test/Builder/Module.pm
cpan/Test-Simple/lib/Test/Builder/Tester.pm
cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
cpan/Test-Simple/lib/Test/More.pm
cpan/Test-Simple/lib/Test/Simple.pm
cpan/Test-Simple/lib/Test/Tester.pm
cpan/Test-Simple/lib/Test/Tester/Capture.pm
cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
cpan/Test-Simple/lib/Test/Tester/Delegate.pm
cpan/Test-Simple/lib/Test/use/ok.pm
cpan/Test-Simple/lib/Test2.pm
cpan/Test-Simple/lib/Test2/API.pm
cpan/Test-Simple/lib/Test2/API/Breakage.pm
cpan/Test-Simple/lib/Test2/API/Context.pm
cpan/Test-Simple/lib/Test2/API/Instance.pm
cpan/Test-Simple/lib/Test2/API/Stack.pm
cpan/Test-Simple/lib/Test2/Event.pm
cpan/Test-Simple/lib/Test2/Event/Bail.pm
cpan/Test-Simple/lib/Test2/Event/Diag.pm
cpan/Test-Simple/lib/Test2/Event/Encoding.pm
cpan/Test-Simple/lib/Test2/Event/Exception.pm
cpan/Test-Simple/lib/Test2/Event/Fail.pm
cpan/Test-Simple/lib/Test2/Event/Generic.pm
cpan/Test-Simple/lib/Test2/Event/Note.pm
cpan/Test-Simple/lib/Test2/Event/Ok.pm
cpan/Test-Simple/lib/Test2/Event/Pass.pm
cpan/Test-Simple/lib/Test2/Event/Plan.pm
cpan/Test-Simple/lib/Test2/Event/Skip.pm
cpan/Test-Simple/lib/Test2/Event/Subtest.pm
cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
cpan/Test-Simple/lib/Test2/Event/Waiting.pm
cpan/Test-Simple/lib/Test2/EventFacet.pm
cpan/Test-Simple/lib/Test2/EventFacet/About.pm
cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
cpan/Test-Simple/lib/Test2/Formatter.pm
cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
cpan/Test-Simple/lib/Test2/Hub.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
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/Util.pm
cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
cpan/Test-Simple/lib/Test2/Util/Trace.pm
cpan/Test-Simple/lib/ok.pm
cpan/Test-Simple/t/regression/inherit_trace.t [new file with mode: 0644]

index 1d442a1..7d70905 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2845,6 +2845,7 @@ cpan/Test-Simple/t/regression/757-reset_in_subtest.t
 cpan/Test-Simple/t/regression/buffered_subtest_plan_buffered.t
 cpan/Test-Simple/t/regression/builder_does_not_init.t
 cpan/Test-Simple/t/regression/errors_facet.t
+cpan/Test-Simple/t/regression/inherit_trace.t
 cpan/Test-Simple/t/regression/no_name_in_subtest.t
 cpan/Test-Simple/t/Test2/acceptance/try_it_done_testing.t
 cpan/Test-Simple/t/Test2/acceptance/try_it_fork.t
index 18c1254..daaa77b 100755 (executable)
@@ -1069,7 +1069,7 @@ use File::Glob qw(:case);
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302098.tar.gz',
+        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302100.tar.gz',
         'FILES'        => q[cpan/Test-Simple],
         'EXCLUDED'     => [
             qr{^examples/},
index 4c7b182..d95c826 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN {
     if( $] < 5.008 ) {
index 19a5cfb..1293629 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
 
index 12b0029..1c0d5b5 100644 (file)
@@ -7,7 +7,7 @@ use Test::Builder;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 =head1 NAME
index 5934dc4..051fd71 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester;
 
 use strict;
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test::Builder;
 use Symbol;
index 7c2935b..b58b490 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester::Color;
 
 use strict;
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 require Test::Builder::Tester;
 
index c7f172c..74b2f47 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
 
index 8936723..60c3069 100644 (file)
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index 087b5b1..406c7bd 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index 39cf31d..6649c97 100644 (file)
@@ -18,7 +18,7 @@ require Exporter;
 
 use vars qw( @ISA @EXPORT );
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 @EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
 @ISA = qw( Exporter );
index 77c3206..77b33cb 100644 (file)
@@ -2,7 +2,7 @@ use strict;
 
 package Test::Tester::Capture;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test::Builder;
index 0e901d8..ed842ad 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 
 package Test::Tester::CaptureRunner;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test::Tester::Capture;
index a1230a2..b4b7640 100644 (file)
@@ -3,7 +3,7 @@ use warnings;
 
 package Test::Tester::Delegate;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Scalar::Util();
 
index 2a0af89..1a5d8a4 100644 (file)
@@ -1,7 +1,7 @@
 package Test::use::ok;
 use 5.005;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 __END__
index a7b3063..530c67f 100644 (file)
@@ -2,7 +2,7 @@ package Test2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 1;
index 7f90fec..fedd3b4 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     $ENV{TEST2_ACTIVE} = 1;
 }
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 my $INST;
@@ -542,9 +542,11 @@ sub run_subtest {
     if ($inherit_trace) {
         my $orig = $code;
         $code = sub {
+            my $base_trace = $ctx->trace;
+            my $trace = $base_trace->snapshot(nested => 1 + $base_trace->nested);
             my $st_ctx = Test2::API::Context->new(
-                trace => $ctx->trace,
-                hub   => $hub,
+                trace  => $trace,
+                hub    => $hub,
             );
             $st_ctx->do_in_context($orig, @args);
         };
index b619421..7a3ce27 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test2::Util qw/pkg_to_file/;
index 765c565..bd06ed2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Context;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Carp qw/confess croak/;
index 2b17a33..c79b976 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Instance;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
index 284d9c8..9b628d8 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Stack;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test2::Hub();
index a881c38..434a3bd 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test2::Util::HashBase qw/trace -amnesty/;
 use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/;
index d97050b..1578474 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Bail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 6735be8..25b5cc3 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Diag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 816996c..060ac37 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Encoding;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Carp qw/croak/;
 
index cc24da0..b6b7743 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Exception;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 719e12a..54755a0 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Fail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test2::EventFacet::Info;
 
index 3c963c7..2cfd656 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use Carp qw/croak/;
 use Scalar::Util qw/reftype/;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
 use Test2::Util::HashBase;
index 667a688..a9fd78e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Note;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 5e62bce..838dea2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Ok;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index a6b542b..83942e7 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Pass;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test2::EventFacet::Info;
 
index 3a0c552..a481f06 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index ebf9eb3..2e5f37b 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Skip;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
index c4a3895..9e5b3d5 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
 use Test2::Util::HashBase qw{subevents buffered subtest_id};
index a17289b..8a334c1 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::TAP::Version;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Carp qw/croak/;
 
index 0daefe1..fc3fff2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Waiting;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 2ee8f97..d3dd682 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test2::Util::HashBase qw/-details/;
 use Carp qw/croak/;
index 2ff0b54..39f7876 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::About;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -package -no_display };
index f9c2e86..217424a 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Amnesty;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 sub is_list { 1 }
 
index a724797..c7067eb 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Assert;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -pass -no_debug -number };
index f79e09c..2f5b2ce 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Control;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding };
index 3f9f653..e66bf55 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Error;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 sub facet_key { 'errors' }
 sub is_list { 1 }
index c83b8ad..86672cf 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Info;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 sub is_list { 1 }
 
index 62b8a64..d6f9413 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Meta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use vars qw/$AUTOLOAD/;
index 5009763..c8eaeba 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Parent;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Carp qw/confess/;
 
index 9b4390b..330fc5d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -count -skip -none };
index 8e7387b..a0c1239 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Trace;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 
index f7e8a95..c269668 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 my %ADDED;
index 74a3af3..1561091 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter::TAP;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Test2::Util qw/clone_io/;
 
index 054548a..6c81607 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Carp qw/carp croak confess/;
index 0fc9fa3..d26303c 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test2::Hub::Interceptor::Terminator();
index fb1a37f..d5551db 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor::Terminator;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 1;
index 0063c59..03f983f 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
index fad2912..7d80cb2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Test2::API::Instance;
index 0f147ec..c36c61d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Carp qw/confess/;
index b652bad..5e3c940 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver::Files;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
index 8d32fd6..b3ffb19 100644 (file)
@@ -16,7 +16,7 @@ use Test2::API qw/context run_subtest test2_stack/;
 use Test2::Hub::Interceptor();
 use Test2::Hub::Interceptor::Terminator();
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 BEGIN { require Exporter; our @ISA = qw(Exporter) }
 our @EXPORT = qw{
index 0c2c229..9a45773 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use POSIX();
 use Config qw/%Config/;
index 3c357dd..739c471 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::ExternalMeta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 
 use Carp qw/croak/;
index 2dcddfb..5d5dfce 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::Facets2Legacy;
 use strict;
 use warnings;
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use Carp qw/croak confess/;
 use Scalar::Util qw/blessed/;
index 7dc2aa1..2526302 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::Trace;
 require Test2::EventFacet::Trace;
 @ISA = ('Test2::EventFacet::Trace');
 
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 1;
 
index 8da4fc7..7165b3c 100644 (file)
@@ -1,5 +1,5 @@
 package ok;
-our $VERSION = '1.302098';
+our $VERSION = '1.302100';
 
 use strict;
 use Test::More ();
diff --git a/cpan/Test-Simple/t/regression/inherit_trace.t b/cpan/Test-Simple/t/regression/inherit_trace.t
new file mode 100644 (file)
index 0000000..4c1aa6c
--- /dev/null
@@ -0,0 +1,33 @@
+use Test2::Tools::Tiny;
+use strict;
+use warnings;
+
+use Test2::API qw/context run_subtest intercept/;
+
+sub do_it {
+    my $ctx = context();
+
+    run_subtest foo =>  sub {
+        ok(1, "pass");
+    }, {inherit_trace => 1};
+
+    $ctx->release;
+}
+
+do_it();
+do_it();
+
+my $events = intercept {
+    do_it();
+    do_it();
+};
+
+for my $st (@$events) {
+    next unless $st->isa('Test2::Event::Subtest');
+
+    is($st->trace->nested, 0, "base subtest is not nested");
+
+    is($_->trace->nested, 1, "subevent is nested") for @{$st->subevents};
+}
+
+done_testing;