#!perl

use Test2::API qw/intercept run_subtest context/;
use Test2::Bundle::More;
use Test::Builder;

my $events = intercept {

    run_subtest('t',
                sub {
                  ## TODO: {
                    # local $TODO = q{we'll get to this later};
                    my $todo = todo(q{to done});
                      ok(0,'to be done');
                    #}
                }, 1);

};

if (Test::Builder->new->can('history')) {
    print STDERR 'testbuilder can history' . "\n";
}
else {
    print STDERR "it can't\n";
}

done_testing;



use Data::Dumper;
print STDERR Dumper($events);
