[Bioperl-guts-l] [14663] bioperl-live/trunk/t/Biblio_eutils.t: bullet-proof; this needs more stringent tests

[Christopher John Fields]

Revision: 14663
Author:   cjfields
Date:     2008-04-21 11:25:17 -0400 (Mon, 21 Apr 2008)

Log Message:
-----------
bullet-proof; this needs more stringent tests

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

Modified: bioperl-live/trunk/t/Biblio_eutils.t
===================================================================
--- bioperl-live/trunk/t/Biblio_eutils.t	2008-04-17 21:13:52 UTC (rev 14662)
+++ bioperl-live/trunk/t/Biblio_eutils.t	2008-04-21 15:25:17 UTC (rev 14663)
@@ -7,7 +7,7 @@
     use lib 't/lib';
 	use BioperlTest;
 	
-	test_begin(-tests => 6,
+	test_begin(-tests => 4,
 			   -requires_modules => [qw(IO::String LWP::Simple)],
 			   -requires_networking => 1);
 	
@@ -31,8 +31,10 @@
 	}
 	
 	# these aren't exactly the most stringent of tests...
-	
+	my $ct = 0;
 	while(my $xml = $db->get_next) {
-		ok(1);
+		$ct++
 	}
+	# bullet-proof this, though it really needs more stringent tests...
+	cmp_ok($ct, '>=', 4)
 }