Changeset 971 for trunk/t/DNSTest.pm

Timestamp:

01/09/26 11:48:17 (3 weeks ago)

Author:

Kris Deugau

Message:

/trunk

Tweak DB-safety check in test setup module
See #88

File:

• trunk/t/DNSTest.pm (modified) (1 diff)

trunk/t/DNSTest.pm

@@ -66 +66 @@
 
   my ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records");
-  BAIL_OUT("# DB looks like it may not be a test DB, found $rcount > 30 records!\n")
-        if $rcount > 50;
-  cmp_ok( $rcount, '<=', 50, "record ($rcount): looks like a test DB" );
+  my $maxrecs = 60;
+  BAIL_OUT("# DB looks like it may not be a test DB, found $rcount > $maxrecs records!\n")
+        if $rcount > $maxrecs;
+  cmp_ok( $rcount, '<=', $maxrecs, "record ($rcount): looks like a test DB" );
 
   # drop all tables etc