Changeset 951

Timestamp:

12/24/25 13:45:17 (5 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Add CNAME record-add tests for reverse zones. See #88, #72

File:

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

branches/cname-collision/t/cname.t

@@ -1 +1 @@
 # -*- Perl -*-
 # Tests for CNAME records
+# Note that not all possible cases are caught!
+# Template records mean not all published records are natively present in the DB
 
 use Test::More;
@@ -42 +44 @@
 };
 
+
+## Reverse zone
+
+subtest 'CNAME add - new reverse name' => sub {
+  $newval = '192.168.2.12';
+  $newname = '12.8-29.2.168.192.in-addr.arpa';
+  ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
+  ok( $code eq 'OK', "addRec() claimed succeess adding reverse zone CNAME" );
+  if ($code eq 'OK') {
+    ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
+    ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
+  } else {
+    print "not ok: $msg\n";
+  }
+};
+
+subtest 'CNAME add - existing/colliding non-CNAME' => sub {
+  $newval = '192.168.2.14';
+  $newname = '14.8-29.2.168.192.in-addr.arpa';
+  ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
+  ok( $code eq 'FAIL', "addRec() claimed failure adding colliding reverse zone CNAME" );
+  if ($code eq 'FAIL') {
+    ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
+    ok( $rcount == 2, " ... [$rcount] record(s) with $newname already exist" );
+    like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
+  }
+};
+
+subtest 'CNAME add - existing/colliding CNAME' => sub {
+  $newval = '192.168.2.13';
+    $newname = '13.8-29.2.168.192.in-addr.arpa';
+  ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
+  ok( $code eq 'FAIL', "addRec() claimed failure adding duplicate reverse zone CNAME" );
+  if ($code eq 'FAIL') {
+    ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type = 5");
+    ok( $rcount == 1, " ... [$rcount] CNAME already exists" );
+    like( $msg, qr/already a CNAME present/, " ... returned matching error" );
+  }
+};
+
 done_testing();