#!/usr/bin/perl
use strict;
use warnings;
BEGIN { require "t/test.pl" }
use Test::Simple ();
use TB2::Tester;
note "test state left untouched"; {
my $ec = Test::Simple->builder->test_state;
is_deeply $ec->history->events, [], "no events in the EC";
is_deeply $ec->history->results, [], "no results in the EC";
my $have = capture {
Test::Simple::ok( 1 );
};
is_deeply $ec->history->events, [], "still no events";
is_deeply $ec->history->results, [], "still no results";
}
done_testing;