Changeset 1028 for branches/cname-collision

Timestamp:

02/06/26 10:43:23 (4 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Test with updating to a valid-after CNAME:
Add test for collision with existing pending-expiry record with timestamp
before existing expiry
See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -527 +527 @@
       }
     };
+    subtest 'collision with expiring record, overlapping timestamps' => sub {
+      $newname = 'validafter2a.expiry3.test';
+      ($code, $msg) = $dnsdb->updateRec('n', 'n', 101, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
+      cmp_ok( $code, 'eq', 'WARN', "updateRec() claimed success with warning" );
+      if ($code eq 'WARN') {
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
+        ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
+        like( $msg, qr/updated with modified valid-after time;  conflicting expiring record found/, " ... returned appropriate warning message" );
+        my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
+                "AND stampactive = 't' AND expires = 't'");
+        my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
+                "AND stampactive = 't' AND expires = 'f'");
+        ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing expiry timestamp" );
+      } else {
+        print "not ok: $msg";
+      }
+    };
   }; # update to valid-after CNAME