Changeset 952

Timestamp:

12/24/25 13:50:29 (4 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Add add-duplicate-CNAME test that got missed somehow when shuffling patches
Wrap domain and reverse zone groups of tests in their own blocks
See #88, #72

File:

• branches/cname-collision/t/cname.t (modified) (3 diffs)

branches/cname-collision/t/cname.t

@@ -18 +18 @@
 
 ## Domain tests
+subtest 'Domain tests' => sub {
 
 subtest 'CNAME add - new name' => sub {
@@ -44 +45 @@
 };
 
+subtest 'CNAME add - existing/colliding CNAME' => sub {
+  $newname = 'www.example.com';
+  ($code, $msg) = $dnsdb->addRec('n', 'n', 1, \$newname, \$rectype, \$newval, 900);
+  ok( $code eq 'FAIL', "addRec() claimed failure adding duplicate CNAME" );
+  if ($code eq 'FAIL') {
+    ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname' AND type = 5");
+    ok( $rcount == 1, " ... [$rcount] CNAME already exists" );
+    like( $msg, qr/already a CNAME present/, " ... returned matching error" );
+  }
+};
+
+}; # domain tests
+
 
 ## Reverse zone
+subtest 'Reverse zone tests' => sub {
 
 subtest 'CNAME add - new reverse name' => sub {
@@ -84 +99 @@
 };
 
+}; # reverse zone tests
+
 done_testing();