Graceful dying without TAP::Harness v3
This commit is contained in:
parent
c95ea52978
commit
f5851c96ff
1 changed files with 4 additions and 5 deletions
|
|
@ -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);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue