Changeset 1015 for branches/cname-collision/t/cname.t

Timestamp:

02/03/26 11:29:50 (7 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Start adding tests calling updateRec() with new non-timestamp CNAME data
See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -206 +206 @@
 subtest 'Record expiry/valid-after' => sub {
 
+  ## Add new CNAME
   subtest 'CNAME add - nonexpiring' => sub {
     $newval = 'target.example.com';
@@ -387 +388 @@
   }; # add valid-after CNAME
 
+  ## Tests calling updateRec() instead of addRec()
+  subtest 'Update to CNAME - no timestamp' => sub {
+    $newval = 'target.example.com';
+    subtest 'collision with expired record' => sub {
+      $newname = 'nostamp1a.expiry3.test';
+      ($code, $msg) = $dnsdb->updateRec('n', 'n', 79, 6, \$newname, \$rectype, \$newval, 900);
+      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'");
+        ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
+        like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
+      }
+    };
+  }; # update to CNAME with no timestamp
+
 }; # record expiry/valid-after