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 # Tests
plan tests => 88; plan tests => 90;
my ( $s, $t1 ); 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: {
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 # put your tests here
@ -683,8 +684,6 @@ not ok 1 - S1Q0 answer number 1 property recordedAnswer not defined
# got: '' # got: ''
END_TAP END_TAP
use TAP::Parser;
sub try_it { sub try_it {
my ( $test, $spec, $opts ) = @_; my ( $test, $spec, $opts ) = @_;
chomp($spec); chomp($spec);