my $parser = TAPx::Parser->new( { source => 't/customers.t' } );
while ( defined ( my $result = $parser->next ) ) {
    print $result->as_string . "\n" if ! $result->is_ok;
}