Changeset 945 for trunk

Timestamp:

12/24/25 12:35:14 (5 hours ago)

Author:

Kris Deugau

Message:

/trunk/t

Tweak test calls checking the DB
See #88

File:

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

trunk/t/DNSTest.pm

@@ -47 +47 @@
   # A DB instantiated for these tests should NEVER have more than a handful of domains and maybe 20-30 records.
 
+  $dbh = $dnsdb->{dbh};
+
   my ($dcount) = $dbh->selectrow_array("SELECT count(*) FROM domains");
   BAIL_OUT("# DB looks like it may not be a test DB, found $dcount > 10 domains!\n")
         if $dcount > 10;
-  cmp_ok( $dcount, '<=', 10, "domain count: looks like a test DB" );
+  ok( $dcount, '<=', 10, "domain count ($dcount): looks like a test DB" );
 
   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 > 30;
-  cmp_ok( $rcount, '<=', 30, "record count: looks like a test DB" );
-
-  $dbh = $dnsdb->{dbh};
+        if $rcount > 50;
+  ok( $rcount, '<=', 50, "record ($rcount): looks like a test DB" );
 
   # drop all tables etc