Graceful dying without TAP::Harness v3

This commit is contained in:
Colin Kuskie 2009-06-11 17:03:32 +00:00
parent c95ea52978
commit f5851c96ff

View file

@ -21,15 +21,16 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
plan tests => 88;
plan tests => 90;
my ( $s, $t1 );
eval 'use TAP::Parser; use TAP::Parser::Aggregator';
my $tp = use_ok('TAP::Parser');
my $tpa = use_ok('TAP::Parser::Aggregator');
SKIP: {
skip "Unable to load TAP::Parser and TAP::Parser::Aggregator", 1 if $@;
skip "Unable to load TAP::Parser and TAP::Parser::Aggregator", 88 unless $tp && $tpa;
#----------------------------------------------------------------------------
# put your tests here
@ -683,8 +684,6 @@ not ok 1 - S1Q0 answer number 1 property recordedAnswer not defined
# got: ''
END_TAP
use TAP::Parser;
sub try_it {
my ( $test, $spec, $opts ) = @_;
chomp($spec);