Changeset 1021 for branches/cname-collision

Timestamp:

02/05/26 13:10:37 (3 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Test with updating to a CNAME that expires:
Add test for collision with existing pending-expiry record
See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -447 +447 @@
       }
     };
+    subtest 'collision with expiring record' => sub {
+      $newname = 'expires2a.expiry3.test';
+      ($code, $msg) = $dnsdb->updateRec('n', 'n', 90, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
+      ok( $code eq 'FAIL', "updateRec() claimed failure");
+      if ($code eq 'FAIL') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname' AND type <> 5");
+        ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
+        like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
+      }
+    };
   };