Changeset 1041 for branches/cname-collision

Timestamp:

02/18/26 18:11:42 (29 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Add new test domain and record checks in DNSTest.pm
Also tweak a critical bailout error message
See #72, #88

File:

• branches/cname-collision/t/DNSTest.pm (modified) (2 diffs)

branches/cname-collision/t/DNSTest.pm

@@ -64 +64 @@
 
   my ($dcount) = $dbh->selectrow_array("SELECT count(*) FROM domains WHERE NOT domain IN ".
-        "('example.com','example.net','example.org','expiry1.test','expiry2.test','expiry3.test')");
+        "('example.com','example.net','example.org','expiry1.test','expiry2.test','expiry3.test','cname-blocks1.test')");
   BAIL_OUT("# DB looks like it may not be a test DB, found $dcount > 0 non-test domains!\n")
         if $dcount > 0;
@@ -71 +71 @@
   my ($rcount) = $dbh->selectrow_array(qq{SELECT count(*) FROM records WHERE NOT (
         host like '%example.com' or host like '%example.net' or host like '%example.org' or
-        host like '%expiry_.test' or inetlazy(val) << '192.168.2.0/27'
+        host like '%expiry_.test' or host like '%cname-blocks_.test' or
+        inetlazy(val) << '192.168.2.0/27'
         )});
   my $maxrecs = 0;
-  BAIL_OUT("# DB looks like it may not be a test DB, found $rcount > $maxrecs records!\n")
+  BAIL_OUT("# DB looks like it may not be a test DB, found $rcount > $maxrecs non-test records!\n")
         if $rcount > $maxrecs;
   cmp_ok( $rcount, '<=', $maxrecs, "non-test record ($rcount): looks like a test DB" );