Changeset 1042 for branches/cname-collision/t

Timestamp:

02/18/26 18:17:35 (33 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

First block of actual tests - add nonexpiring non-CNAME
See #72, #88

File:

• branches/cname-collision/t/cname.t (modified) (1 diff)

branches/cname-collision/t/cname.t

@@ -585 +585 @@
 
 
+## Double-check non-CNAMEs colliding with CNAMEs, and not each other
+subtest "New records colliding with CNAMEs" => sub {
+  $rectype = 1;  # Any type will do, since all the checks based on type are "CNAME" and "not-CNAME"
+
+  subtest "Non-expiring new record" => sub {
+    subtest "New record vs non-CNAME" => sub {
+      $newname = 'blocker01.cname-blocks1.test';
+      $newval = '192.168.2.1';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
+      ok( $code eq 'OK', "addRec() claimed succeess" );
+      if ($code eq 'OK') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
+        ok( $rcount == 2, " ... [$rcount] yep, hostname now occurs twice" );
+      } else {
+        print "not ok: $msg";
+      }
+    };
+    subtest "New record vs non-timestamped CNAME" => sub {
+      $newname = 'blocker02.cname-blocks1.test';
+      $newval = '192.168.2.2';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
+      cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
+      if ($code eq 'FAIL') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
+        cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
+        like( $msg, qr/There is already a CNAME present/, " ... returned matching error" );
+      }
+    };
+    subtest "New record vs expiring CNAME" => sub {
+      $newname = 'blocker03.cname-blocks1.test';
+      $newval = '192.168.2.3';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
+      cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
+      if ($code eq 'FAIL') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
+        cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
+        like( $msg, qr/There is already a CNAME with a timestamp present/, " ... returned matching error" );
+      }
+    };
+    subtest "New record vs valid-after CNAME" => sub {
+      $newname = 'blocker04.cname-blocks1.test';
+      $newval = '192.168.2.4';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
+      cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
+      if ($code eq 'FAIL') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
+        cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
+        like( $msg, qr/There is already a CNAME with a timestamp present/, " ... returned matching error" );
+      }
+    };
+  }; # non-expiring non-CNAMEs
+
+}; # non-CNAMEs colliding with CNAMEs
+
+
 done_testing();