Changeset 1010 for branches

Timestamp:

01/29/26 12:41:38 (30 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Test for new CNAME with valid-after timestamp after existing record expires
See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -367 +367 @@
       }
     };
-  };
+    subtest 'valid after expiring record' => sub {
+      $newname = 'valid-after5.expiry2.test';
+      ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
+      cmp_ok( $code, 'eq', 'OK', "addRec() claimed success" );
+      if ($code eq 'OK') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
+        ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
+      } else {
+        print "not ok: $msg\n";
+      }
+    };
+  }; # add valid-after CNAME
 
 }; # record expiry/valid-after