1use Test2::API qw/intercept/; 2use Test::More; 3 4my $TEST = Test::Builder->new(); 5 6sub fake { 7 $TEST->use_numbers(0); 8 $TEST->no_ending(1); 9 $TEST->done_testing(1); # a computed number of tests from its deferred magic 10} 11 12my $events = intercept { fake() }; 13is(@$events, 1, "only 1 event"); 14is($events->[0]->max, 1, "Plan set to 1, not 0"); 15 16done_testing; 17