diff --git a/lib/TAP/Parser.pm b/lib/TAP/Parser.pm index 0cd93c22..32112bab 100644 --- a/lib/TAP/Parser.pm +++ b/lib/TAP/Parser.pm @@ -1257,10 +1257,9 @@ sub _make_state_table { $ver_num = $DEFAULT_TAP_VERSION; } if ( $ver_num > $MAX_TAP_VERSION ) { - $self->_add_error( - "TAP specified version $ver_num but " - . "we don't know about versions later " - . "than $MAX_TAP_VERSION" ); + warn "TAP specified version $ver_num but ", + "we don't know about versions later ", + "than $MAX_TAP_VERSION\n"; $ver_num = $MAX_TAP_VERSION; } $self->version($ver_num); diff --git a/t/parse.t b/t/parse.t index 97db067d..51a722aa 100755 --- a/t/parse.t +++ b/t/parse.t @@ -12,7 +12,7 @@ BEGIN { } } -use Test::More tests => 294; +use Test::More tests => 292; use IO::c55Capture; use File::Spec; @@ -757,26 +757,6 @@ END_TAP like pop @errors, qr/Explicit TAP version must be at least 13. Got version 12/, '... and trapped expected version error'; - - # now too high a version - $tap = <<'END_TAP'; -TAP version 14 -1..2 -ok 1 - input file opened -ok 2 - Gandalf wins -END_TAP - - $parser = TAP::Parser->new( { tap => $tap } ); - - _get_results($parser); - - @errors = $parser->parse_errors; - - is @errors, 1, 'test too high version number'; - - like pop @errors, - qr/TAP specified version 14 but we don't know about versions later than 13/, - '... and trapped expected version error'; } {