Changeset 955 for branches/cname-collision/t
- Timestamp:
- 12/30/25 15:08:31 (27 hours ago)
- File:
-
- 1 edited
-
branches/cname-collision/t/cname.t (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/cname-collision/t/cname.t
r954 r955 56 56 }; 57 57 58 subtest ' Updatenon-CNAME to CNAME, non-colliding' => sub {58 subtest 'CNAME update - non-CNAME to CNAME, non-colliding' => sub { 59 59 $newname = 'smtp.example.com'; 60 60 $newval = 'example.com'; … … 69 69 }; 70 70 71 subtest ' Updatenon-CNAME to CNAME, colliding' => sub {71 subtest 'CNAME update - non-CNAME to CNAME, colliding' => sub { 72 72 $newname = 'mx1.example.com'; 73 73 ($code, $msg) = $dnsdb->updateRec('n', 'n', 39, 1, \$newname, \$rectype, \$newval, 900); … … 80 80 }; 81 81 82 subtest ' Update CNAMEto non-colliding name' => sub {82 subtest 'CNAME update - name to non-colliding name' => sub { 83 83 $newname = 'imap.example.com'; 84 84 ($code, $msg) = $dnsdb->updateRec('n', 'n', 37, 1, \$newname, \$rectype, \$newval, 900); … … 92 92 }; 93 93 94 subtest ' Update CNAMEto colliding name' => sub {94 subtest 'CNAME update - name to colliding name' => sub { 95 95 $newname = 'mx1.example.com'; 96 96 ($code, $msg) = $dnsdb->updateRec('n', 'n', 41, 1, \$newname, \$rectype, \$newval, 900); … … 136 136 subtest 'CNAME add - existing/colliding CNAME' => sub { 137 137 $newval = '192.168.2.13'; 138 $newname = '13.8-29.2.168.192.in-addr.arpa';138 $newname = '13.8-29.2.168.192.in-addr.arpa'; 139 139 ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900); 140 140 ok( $code eq 'FAIL', "addRec() claimed failure adding duplicate reverse zone CNAME" );
Note:
See TracChangeset
for help on using the changeset viewer.
![[ DNS Administrator ]](/fx/dnsadmin-logo.png)