The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TB2::Formatter::TAP::TB1;

use TB2::Mouse;
extends 'TB2::Formatter::TAP::v12';

=head1 NAME

TB2::Formatter::TAP::TB1 - TAP formatter for compatibily with 0.98

=head1 DESCRIPTION

This is a TAP formatter specifically designed to emulate the quirks of
Test::Builder 0.98, the last stable release of Test::Builder before
the TB2 architecture.  This is intended to provide Test module authors
with a smooth transition between 0.98 and 1.5.

=cut

# It was "# skip" but "# TODO"
has '+directive_display' =>
  default       => sub {
      return {
          skip  => 'skip',
          todo  => 'TODO'
      }
  };


# ok( 1, "" ) comes out as "ok 1 - "
has "+show_empty_result_names" =>
  default       => 1;


# Messages output as part of the ending commentary
has '+diag_tests_but_no_plan' =>
  default       => "Tests were run but no plan was declared and done_testing() was not seen.";

has '+diag_wrong_number_of_tests' =>
  default       => "Looks like you planned %d %s but ran %d.";

has '+diag_tests_failed' =>
  default       => "Looks like you failed %d %s of %d run.";

has '+diag_no_tests' =>
  default       => "No tests run!";

1;