[Bioperl-guts-l] [15047] bioperl-live/trunk/t/EUtilities.t: switching EUtilities. t over to BioperlTest style test initialization.

[Dave Messina]

Revision: 15047
Author:   dave_messina
Date:     2008-11-28 05:00:33 -0500 (Fri, 28 Nov 2008)

Log Message:
-----------
switching EUtilities.t over to BioperlTest style test initialization. Was using DEBUG flag to choose whether to run network tests.

Modified Paths:
--------------
    bioperl-live/trunk/t/EUtilities.t

Modified: bioperl-live/trunk/t/EUtilities.t
===================================================================
--- bioperl-live/trunk/t/EUtilities.t	2008-11-28 06:00:34 UTC (rev 15046)
+++ bioperl-live/trunk/t/EUtilities.t	2008-11-28 10:00:33 UTC (rev 15047)
@@ -63,19 +63,13 @@
     }
     
     use Test::More;
+	use BioperlTest;
+	
+	test_begin(-tests               => $NUMTESTS,
+			   -requires_modules    => [qw(XML::Simple LWP::UserAgent)],
+			   -requires_networking => 1,
+			  );
     
-    eval {
-        require XML::Simple;
-        require LWP::UserAgent;
-    };
-    
-    if (!$DEBUG) {
-        plan skip_all => 'Network tests have not been requested';
-    } elsif ($@) {
-        plan skip_all => 'Requires LWP::UserAgent and XML::Simple; skipping...';
-    } else {
-        plan tests => $NUMTESTS;
-    }
     use_ok('Bio::DB::EUtilities');
     use_ok('LWP::UserAgent');
     use_ok('XML::Simple');