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

Timestamp:

01/08/26 13:34:11 (13 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Test for collision with yet-to-expire record. Technically overkill as it
falls through to the non-expiring-record case but future refinements may
make this relevant.
See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -214 +214 @@
       }
     };
+# this test arguably overkill, subsumed by earlier test for substantially the same thing
+    subtest '  - collision with soon to expire record' => sub {
+      $newname = 'expired2.expiry1.test';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 4, \$newname, \$rectype, \$newval, 900);
+      ok( $code eq 'FAIL', "addRec() claimed failure" );
+      if ($code eq 'FAIL') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 4 AND host = '$newname' AND type <> 5 AND stampactive = 't'");
+        ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
+# somewhat less overkill if we try to target a unique return based around the expiry bit
+        like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
+      }
+    };
   };