From f5851c96ffc1445e7ba09bc5e57aae0be1d3ab94 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 11 Jun 2009 17:03:32 +0000
Subject: [PATCH] Graceful dying without TAP::Harness v3

---
 t/Asset/Wobject/Survey/Test.t | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/t/Asset/Wobject/Survey/Test.t b/t/Asset/Wobject/Survey/Test.t
index e86a1b4f0..616a160f4 100644
--- a/t/Asset/Wobject/Survey/Test.t
+++ b/t/Asset/Wobject/Survey/Test.t
@@ -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);