Changeset 1012 for branches/cname-collision

Timestamp:

01/30/26 13:50:32 (7 days ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Fix up test checking adjustment of valid-after timestamp when the requested
time is before an existing valid-after

• Record count made more accurate by counting all records with the test name
• Somehow missed checking the timestamp values in r1005

See #72, #88

File:

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

branches/cname-collision/t/cname.t

@@ -342 +342 @@
       cmp_ok( $code, 'eq', 'WARN', "addRec() claimed failure" );
       if ($code eq 'WARN') {
-        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname' AND type <> 5");
-        ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
+        ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
+        ok( $rcount == 2, " ... [$rcount] record(s) with $newname found" );
         like( $msg, qr/modified valid-after time;  conflicting expiring record found/, " ... returned matching error" );
+        my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 ".
+                "AND host = '$newname' AND stampactive = 't' AND expires = 't'");
+        my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 ".
+                "AND host = '$newname' AND stampactive = 't' AND expires = 'f'");
+        cmp_ok( $newstamp, '>=', $oldstamp, " ... coerced timestamp equal or later than existing expiry timestamp" );
+      } else {
+        print "not ok: $msg";
       }
     };