source: branches/cname-collision/t/cname.t@ 1045

Last change on this file since 1045 was 1045, checked in by Kris Deugau, 10 hours ago

/branches/cname-collision

Add a second non-CNAME validating non-collision with non-CNAMEs
Add the block of tests checking collisions between a new expiring record
and various existing CNAMEs
See #72, #88
File size: 40.7 KB
Line 
1# -*- Perl -*-
2# Tests for CNAME records
3# Note that not all possible cases are caught!
4# Template records mean not all published records are natively present in the DB
5
6use strict;
7use warnings;
8
9use Test::More;
10use Data::Dumper;
11
12use lib 't';
13
14use DNSTest;
15my $dtest = DNSTest::new;
16
17my ($code,$msg);
18my $rectype = 5;
19my $newname;
20my $newval;
21my $expirystamp;
22my $rcount;
23
24
25## Domain tests
26subtest 'Domain tests' => sub {
27
28 subtest 'CNAME add - new name' => sub {
29 $newname = 'newname.example.com';
30 $newval = 'fredshosting.example.net';
31 ($code, $msg) = $dnsdb->addRec('n', 'n', 1, \$newname, \$rectype, \$newval, 900);
32 cmp_ok( $code, 'eq', 'OK', "addRec() claimed succeess" );
33 if ($code eq 'OK') {
34 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname'");
35 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
36 } else {
37 print "not ok: $msg";
38 }
39 };
40
41 subtest 'CNAME add - existing/colliding non-CNAME' => sub {
42 $newname = 'mx1.example.com';
43 ($code, $msg) = $dnsdb->addRec('n', 'n', 1, \$newname, \$rectype, \$newval, 900);
44 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
45 if ($code eq 'FAIL') {
46 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname' AND type <> 5");
47 ok( $rcount == 2, " ... [$rcount] record(s) with $newname already exist" );
48 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
49 }
50 };
51
52 subtest 'CNAME add - existing/colliding CNAME' => sub {
53 $newname = 'www.example.com';
54 ($code, $msg) = $dnsdb->addRec('n', 'n', 1, \$newname, \$rectype, \$newval, 900);
55 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
56 if ($code eq 'FAIL') {
57 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname' AND type = 5");
58 ok( $rcount == 1, " ... [$rcount] CNAME already exists" );
59 like( $msg, qr/already a CNAME present/, " ... returned matching error" );
60 }
61 };
62
63 subtest 'CNAME update - non-CNAME to CNAME, non-colliding' => sub {
64 $newname = 'smtp.example.com';
65 $newval = 'example.com';
66 ($code, $msg) = $dnsdb->updateRec('n', 'n', 39, 1, \$newname, \$rectype, \$newval, 900);
67 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success" );
68 if ($code eq 'OK') {
69 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname'");
70 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
71 } else {
72 print "not ok: $msg";
73 }
74 };
75
76 subtest 'CNAME update - non-CNAME to CNAME, colliding' => sub {
77 $newname = 'mx1.example.com';
78 ($code, $msg) = $dnsdb->updateRec('n', 'n', 39, 1, \$newname, \$rectype, \$newval, 900);
79 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
80 if ($code eq 'FAIL') {
81 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname' AND type <> 5");
82 ok( $rcount == 2, " ... [$rcount] record(s) with $newname already exist" );
83 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
84 }
85 };
86
87 subtest 'CNAME update - name to non-colliding name' => sub {
88 $newname = 'imap.example.com';
89 ($code, $msg) = $dnsdb->updateRec('n', 'n', 37, 1, \$newname, \$rectype, \$newval, 900);
90 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success" );
91 if ($code eq 'OK') {
92 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname'");
93 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
94 } else {
95 print "not ok: $msg";
96 }
97 };
98
99 subtest 'CNAME update - name to colliding name' => sub {
100 $newname = 'mx1.example.com';
101 ($code, $msg) = $dnsdb->updateRec('n', 'n', 41, 1, \$newname, \$rectype, \$newval, 900);
102 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
103 if ($code eq 'FAIL') {
104 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 1 AND host = '$newname' AND type <> 5");
105 ok( $rcount == 2, " ... [$rcount] record(s) with $newname already exist" );
106 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
107 }
108 };
109
110}; # domain tests
111
112
113## Reverse zone tests
114subtest 'Reverse zone tests' => sub {
115
116 subtest 'CNAME add - new reverse name' => sub {
117 $newval = '192.168.2.12';
118 $newname = '12.8-29.2.168.192.in-addr.arpa';
119 ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
120 cmp_ok( $code, 'eq', 'OK', "addRec() claimed succeess" );
121 if ($code eq 'OK') {
122 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
123 ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
124 } else {
125 print "not ok: $msg\n";
126 }
127 };
128
129 subtest 'CNAME add - existing/colliding non-CNAME' => sub {
130 $newval = '192.168.2.14';
131 $newname = '14.8-29.2.168.192.in-addr.arpa';
132 ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
133 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
134 if ($code eq 'FAIL') {
135 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
136 ok( $rcount == 2, " ... [$rcount] record(s) with $newname already exist" );
137 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
138 }
139 };
140
141 subtest 'CNAME add - existing/colliding CNAME' => sub {
142 $newval = '192.168.2.13';
143 $newname = '13.8-29.2.168.192.in-addr.arpa';
144 ($code, $msg) = $dnsdb->addRec('n', 'y', 1, \$newname, \$rectype, \$newval, 900);
145 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
146 if ($code eq 'FAIL') {
147 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type = 5");
148 ok( $rcount == 1, " ... [$rcount] CNAME already exists" );
149 like( $msg, qr/already a CNAME present/, " ... returned matching error" );
150 }
151 };
152
153 subtest 'CNAME update - non-CNAME to CNAME, non-colliding' => sub {
154 $newval = '192.168.2.15';
155 $newname = '15-29.arpa.example.net';
156 ($code, $msg) = $dnsdb->updateRec('n', 'y', 43, 1, \$newname, \$rectype, \$newval, 900);
157 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success" );
158 if ($code eq 'OK') {
159 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
160 ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
161 } else {
162 print "not ok: $msg\n";
163 }
164 };
165
166 subtest 'CNAME update - non-CNAME to CNAME, colliding' => sub {
167 $newval = '192.168.2.14';
168 $newname = 'arpa14.rev.example.net';
169 ($code, $msg) = $dnsdb->updateRec('n', 'y', 42, 1, \$newname, \$rectype, \$newval, 900);
170 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure updating revzone record type to CNAME" );
171 if ($code eq 'FAIL') {
172 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
173 ok( $rcount == 2, " ... [$rcount] record(s) with $newval already exist" );
174 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
175 }
176 };
177
178 subtest 'CNAME update - name to non-colliding name' => sub {
179 $newval = '192.168.2.11';
180 ($code, $msg) = $dnsdb->updateRec('n', 'y', 34, 1, \$newname, \$rectype, \$newval, 900);
181 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success updating revzone CNAME \"hostname\" (non-colliding)" );
182 if ($code eq 'OK') {
183 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval'");
184 ok( $rcount == 1, " ... [$rcount] yep, IP only occurs once" );
185 } else {
186 print "not ok: $msg";
187 }
188 };
189
190 subtest 'CNAME update - name to colliding name' => sub {
191 $newval = '192.168.2.17';
192 ($code, $msg) = $dnsdb->updateRec('n', 'y', 46, 1, \$newname, \$rectype, \$newval, 900);
193 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
194 if ($code eq 'FAIL') {
195 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE rdns_id = 1 AND val = '$newval' AND type <> 5");
196 ok( $rcount == 1, " ... [$rcount] record(s) with $newval already exist" );
197 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
198 }
199 };
200
201}; # reverse zone tests
202
203
204## Record expiry/valid-after cases
205subtest 'Record expiry/valid-after' => sub {
206
207 ## Add new CNAME with no timestamp
208 subtest 'CNAME add - nonexpiring' => sub {
209 $newval = 'target.example.com';
210 subtest 'collision with expired record' => sub {
211 $newname = 'expired1.expiry1.test';
212 ($code, $msg) = $dnsdb->addRec('n', 'n', 4, \$newname, \$rectype, \$newval, 900);
213 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
214 if ($code eq 'FAIL') {
215 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 4 AND host = '$newname'");
216 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
217 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
218 }
219 };
220# this test arguably overkill, subsumed by earlier test for nonexpiring collision
221 subtest 'collision with soon to expire record' => sub {
222 $newname = 'expired2.expiry1.test';
223 ($code, $msg) = $dnsdb->addRec('n', 'n', 4, \$newname, \$rectype, \$newval, 900);
224 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
225 if ($code eq 'FAIL') {
226 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 4 AND host = '$newname' AND type <> 5 AND stampactive = 't'");
227 ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
228# somewhat less overkill if we try to target a unique return based around the expiry bit
229 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
230 }
231 };
232 subtest 'collision with pending active-after record' => sub {
233 $newname = 'active-after1.expiry1.test';
234 ($code, $msg) = $dnsdb->addRec('n', 'n', 4, \$newname, \$rectype, \$newval, 900);
235 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed success with warning" );
236 if ($code eq 'FAIL') {
237 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 4 AND host = '$newname'");
238 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
239 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
240 }
241 };
242 subtest 'collision with active active-after record' => sub {
243 $newname = 'active-after2.expiry1.test';
244 ($code, $msg) = $dnsdb->addRec('n', 'n', 4, \$newname, \$rectype, \$newval, 900);
245 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
246 if ($code eq 'FAIL') {
247 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 4 AND host = '$newname' AND type <> 5");
248 ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
249 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
250 }
251 };
252 }; # add non-timestamp CNAME
253
254 ## Add expiring CNAME
255 subtest 'CNAME add - expires soon' => sub {
256 my @ltime = localtime(time + 86400 * 3);
257 $expirystamp = sprintf "%i-%i-%i %i:%i", $ltime[5] + 1900, ($ltime[4] + 1) % 12, $ltime[3], 15, $ltime[1];
258 $newval = 'target.example.com';
259 subtest 'collision with nonexpiring record' => sub {
260 $newname = 'expires-at1.expiry2.test';
261 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
262 ok($code eq 'FAIL', "addRec() claimed failure");
263 if ($code eq 'FAIL') {
264 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
265 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
266 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
267 }
268 };
269 subtest 'collision with record with pending expiry' => sub {
270 $newname = 'expires-at2.expiry2.test';
271 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
272 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure");
273 if ($code eq 'FAIL') {
274 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname' AND type <> 5");
275 ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
276 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
277 }
278 };
279 subtest 'expire before valid-after record' => sub {
280 $newname = 'expires-at3.expiry2.test';
281 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
282 cmp_ok( $code, 'eq', 'OK', "addRec() claimed success" );
283 if ($code eq 'OK') {
284 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
285 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
286 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 AND host = '$newname' ".
287 "AND stampactive = 't' AND expires = 't'");
288 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 AND host = '$newname' ".
289 "AND stampactive = 't' AND expires = 'f'");
290 ok( $newstamp <= $oldstamp, " ... added record expires before existing active-after record goes active" );
291 } else {
292 print "not ok: $msg";
293 }
294 };
295 subtest 'expire after valid-after record' => sub {
296 $newname = 'expires-at4.expiry2.test';
297 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
298 cmp_ok( $code, 'eq', 'WARN', "addRec() claimed success with warning" );
299 if ($code eq 'WARN') {
300 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
301 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
302 like( $msg, qr/added with modified expiry time; conflicting valid-after record found/, " ... returned appropriate warning message" );
303 my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 5 AND host = '$newname' ".
304 "AND stampactive = 't' AND expires = 't'");
305 my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 5 AND host = '$newname' ".
306 "AND stampactive = 't' AND expires = 'f'");
307 ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
308 } else {
309 print "not ok: $msg";
310 }
311 };
312 subtest 'collision with expired record' => sub {
313 $newname = 'expires-at5.expiry2.test';
314 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
315 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
316 if ($code eq 'FAIL') {
317 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
318 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
319 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
320 }
321 };
322 }; # add expiring CNAME
323
324 ## Add valid-after CNAME
325 subtest 'CNAME add - valid after' => sub {
326 my @ltime = localtime(time + 86400 * 3);
327 $expirystamp = sprintf "%i-%i-%i %i:%i", $ltime[5] + 1900, ($ltime[4] + 1) % 12, $ltime[3], 15, $ltime[1];
328 $newval = 'target.example.com';
329 subtest 'collision with nonexpiring record' => sub {
330 $newname = 'valid-after1.expiry2.test';
331 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
332 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
333 if ($code eq 'FAIL') {
334 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
335 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
336 like( $msg, qr/One or more non-CNAME records already exist/, " ... returned matching error" );
337 }
338 };
339 subtest 'valid before expiring record' => sub {
340 $newname = 'valid-after2.expiry2.test';
341 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
342 cmp_ok( $code, 'eq', 'WARN', "addRec() claimed failure" );
343 if ($code eq 'WARN') {
344 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
345 ok( $rcount == 2, " ... [$rcount] record(s) with $newname found" );
346 like( $msg, qr/modified valid-after time; conflicting expiring record found/, " ... returned matching error" );
347 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 ".
348 "AND host = '$newname' AND stampactive = 't' AND expires = 't'");
349 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 5 ".
350 "AND host = '$newname' AND stampactive = 't' AND expires = 'f'");
351 cmp_ok( $newstamp, '>=', $oldstamp, " ... coerced timestamp equal or later than existing expiry timestamp" );
352 } else {
353 print "not ok: $msg";
354 }
355 };
356 subtest 'valid after valid-after record' => sub {
357 $newname = 'valid-after3.expiry2.test';
358 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
359 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
360 if ($code eq 'FAIL') {
361 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
362 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
363 like( $msg, qr/non-CNAME records with timestamps already exist for/, " ... returned matching error" );
364 }
365 };
366 subtest 'valid before existing valid-after record' => sub {
367 $newname = 'valid-after4.expiry2.test';
368 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
369 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
370 if ($code eq 'FAIL') {
371 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
372 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
373 like( $msg, qr/non-CNAME records with timestamps already exist for/, " ... returned matching error" );
374 }
375 };
376 subtest 'valid after expiring record' => sub {
377 $newname = 'valid-after5.expiry2.test';
378 ($code, $msg) = $dnsdb->addRec('n', 'n', 5, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
379 cmp_ok( $code, 'eq', 'OK', "addRec() claimed success" );
380 if ($code eq 'OK') {
381 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 5 AND host = '$newname'");
382 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
383 } else {
384 print "not ok: $msg\n";
385 }
386 };
387 }; # add valid-after CNAME
388
389 ## Update a record to a CNAME or update an existing CNAME (no difference in handling
390 ## - to misquote Rincewind, "Don't worry about from ... The important word is to.")
391 ## Update to CNAME with no timestamp
392 subtest 'Update to CNAME - no timestamp' => sub {
393 $newval = 'target.example.com';
394 subtest 'collision with expired record' => sub {
395 $newname = 'nostamp1a.expiry3.test';
396 ($code, $msg) = $dnsdb->updateRec('n', 'n', 79, 6, \$newname, \$rectype, \$newval, 900);
397 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
398 if ($code eq 'FAIL') {
399 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
400 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
401 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
402 }
403 };
404 subtest 'collision with soon to expire record' => sub {
405 $newname = 'nostamp2a.expiry3.test';
406 ($code, $msg) = $dnsdb->updateRec('n', 'n', 80, 6, \$newname, \$rectype, \$newval, 900);
407 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
408 if ($code eq 'FAIL') {
409 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
410 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
411 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
412 }
413 };
414 subtest 'collision with pending active-after record' => sub {
415 $newname = 'nostamp3a.expiry3.test';
416 ($code, $msg) = $dnsdb->updateRec('n', 'n', 81, 6, \$newname, \$rectype, \$newval, 900);
417 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
418 if ($code eq 'FAIL') {
419 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
420 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
421 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
422 }
423 };
424 subtest 'collision with active active-after record' => sub {
425 $newname = 'nostamp4a.expiry3.test';
426 ($code, $msg) = $dnsdb->updateRec('n', 'n', 82, 6, \$newname, \$rectype, \$newval, 900);
427 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
428 if ($code eq 'FAIL') {
429 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
430 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
431 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
432 }
433 };
434 }; # update to CNAME with no timestamp
435
436 ## Update to CNAME with expiry
437 subtest 'CNAME update - expires soon' => sub {
438 my @ltime = localtime(time + 86400 * 3);
439 $expirystamp = sprintf "%i-%i-%i %i:%i", $ltime[5] + 1900, ($ltime[4] + 1) % 12, $ltime[3], 15, $ltime[1];
440 $newval = 'target.example.com';
441 subtest 'collision with nonexpiring record' => sub {
442 $newname = 'expires1a.expiry3.test';
443 ($code, $msg) = $dnsdb->updateRec('n', 'n', 89, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
444 ok($code eq 'FAIL', "updateRec() claimed failure");
445 if ($code eq 'FAIL') {
446 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
447 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
448 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
449 }
450 };
451 subtest 'collision with expiring record' => sub {
452 $newname = 'expires2a.expiry3.test';
453 ($code, $msg) = $dnsdb->updateRec('n', 'n', 90, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
454 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure");
455 if ($code eq 'FAIL') {
456 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname' AND type <> 5");
457 ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
458 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
459 }
460 };
461 subtest 'collision with expired record' => sub {
462 $newname = 'expires3a.expiry3.test';
463 ($code, $msg) = $dnsdb->updateRec('n', 'n', 91, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
464 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
465 if ($code eq 'FAIL') {
466 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
467 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
468 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
469 }
470 };
471 subtest 'expire after pending valid-after record' => sub {
472 $newname = 'expires4a.expiry3.test';
473 ($code, $msg) = $dnsdb->updateRec('n', 'n', 92, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
474 cmp_ok( $code, 'eq', 'WARN', "updateRec() claimed success with warning" );
475 if ($code eq 'WARN') {
476 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
477 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
478 like( $msg, qr/updated with modified expiry time; conflicting valid-after record found/, " ... returned appropriate warning message" );
479 my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
480 "AND stampactive = 't' AND expires = 't'");
481 my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
482 "AND stampactive = 't' AND expires = 'f'");
483 ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
484 } else {
485 print "not ok: $msg";
486 }
487 };
488 subtest 'expire after active valid-after record' => sub {
489 $newname = 'expires5a.expiry3.test';
490 ($code, $msg) = $dnsdb->updateRec('n', 'n', 93, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
491 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
492 if ($code eq 'FAIL') {
493 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
494 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
495 like( $msg, qr/existing valid-after record is already active for this name/, " ... returned matching error" );
496 }
497 };
498 subtest 'expire before valid-after record' => sub {
499 $newname = 'expires6a.expiry3.test';
500 ($code, $msg) = $dnsdb->updateRec('n', 'n', 94, 6, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
501 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success" );
502 if ($code eq 'OK') {
503 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
504 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
505 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 6 AND host = '$newname' ".
506 "AND stampactive = 't' AND expires = 't'");
507 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 6 AND host = '$newname' ".
508 "AND stampactive = 't' AND expires = 'f'");
509 ok( $newstamp <= $oldstamp, " ... added record expires before existing active-after record goes active" );
510 } else {
511 print "not ok: $msg";
512 }
513 };
514 }; # update to expiring CNAME
515
516 ## Update to valid-after CNAME
517 subtest 'CNAME update - valid after' => sub {
518 my @ltime = localtime(time + 86400 * 3);
519 $expirystamp = sprintf "%i-%i-%i %i:%i", $ltime[5] + 1900, ($ltime[4] + 1) % 12, $ltime[3], 15, $ltime[1];
520 $newval = 'target.example.com';
521 subtest 'collision with nonexpiring record' => sub {
522 $newname = 'validafter1a.expiry3.test';
523 ($code, $msg) = $dnsdb->updateRec('n', 'n', 100, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
524 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
525 if ($code eq 'FAIL') {
526 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
527 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
528 like( $msg, qr/One or more non-CNAME records/, " ... returned matching error" );
529 }
530 };
531 subtest 'collision with expiring record, overlapping timestamps' => sub {
532 $newname = 'validafter2a.expiry3.test';
533 ($code, $msg) = $dnsdb->updateRec('n', 'n', 101, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
534 cmp_ok( $code, 'eq', 'WARN', "updateRec() claimed success with warning" );
535 if ($code eq 'WARN') {
536 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
537 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
538 like( $msg, qr/updated with modified valid-after time; conflicting expiring record found/, " ... returned appropriate warning message" );
539 my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
540 "AND stampactive = 't' AND expires = 't'");
541 my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 6 AND host = '$newname' ".
542 "AND stampactive = 't' AND expires = 'f'");
543 ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing expiry timestamp" );
544 } else {
545 print "not ok: $msg";
546 }
547 };
548 subtest 'collision with expiring record, non-overlapping timestamps' => sub {
549 $newname = 'validafter3a.expiry3.test';
550 ($code, $msg) = $dnsdb->updateRec('n', 'n', 102, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
551 cmp_ok( $code, 'eq', 'OK', "updateRec() claimed success" );
552 if ($code eq 'OK') {
553 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
554 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
555 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 6 AND host = '$newname' ".
556 "AND stampactive = 't' AND expires = 't'");
557 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 6 AND host = '$newname' ".
558 "AND stampactive = 't' AND expires = 'f'");
559 ok( $newstamp <= $oldstamp, " ... added record becomes active after existing record expires" );
560 } else {
561 print "not ok: $msg";
562 }
563 };
564 subtest 'valid before pending valid-after record' => sub {
565 $newname = 'validafter4a.expiry3.test';
566 ($code, $msg) = $dnsdb->updateRec('n', 'n', 103, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
567 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
568 if ($code eq 'FAIL') {
569 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
570 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
571 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
572 }
573 };
574 subtest 'valid after active valid-after record' => sub {
575 $newname = 'validafter5a.expiry3.test';
576 ($code, $msg) = $dnsdb->updateRec('n', 'n', 104, 6, \$newname, \$rectype, \$newval, 900, undef, 'f', $expirystamp);
577 cmp_ok( $code, 'eq', 'FAIL', "updateRec() claimed failure" );
578 if ($code eq 'FAIL') {
579 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 6 AND host = '$newname'");
580 ok( $rcount == 1, " ... [$rcount] correct number of records for $newname" );
581 like( $msg, qr/non-CNAME records with timestamps already exist/, " ... returned matching error" );
582 }
583 };
584 }; # update to valid-after CNAME
585
586}; # record expiry/valid-after
587
588
589## Double-check non-CNAMEs colliding with CNAMEs, and not each other
590subtest "New records colliding with CNAMEs" => sub {
591 $rectype = 1; # Any type will do, since all the checks based on type are "CNAME" and "not-CNAME"
592
593 subtest "Non-expiring new record" => sub {
594 subtest "New record vs non-CNAME" => sub {
595 $newname = 'blocker01.cname-blocks1.test';
596 $newval = '192.168.2.1';
597 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
598 cmp_ok( $code, 'eq', 'OK', "addRec() claimed succeess" );
599 if ($code eq 'OK') {
600 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
601 ok( $rcount == 2, " ... [$rcount] yep, hostname now occurs twice" );
602 # and test another record of another type Just In Case
603 my $secondtype = 28;
604 $newval = '2001:db8::eeee';
605 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$secondtype, \$newval, 900);
606 ok( $code eq 'OK', "addRec() claimed succeess" );
607 if ($code eq 'OK') {
608 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
609 ok( $rcount == 3, " ... [$rcount] yep, hostname now occurs three times" );
610 } else {
611 print "not ok: $msg";
612 }
613 } else {
614 print "not ok: $msg";
615 }
616 };
617 subtest "New record vs non-timestamped CNAME" => sub {
618 $newname = 'blocker02.cname-blocks1.test';
619 $newval = '192.168.2.2';
620 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
621 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
622 if ($code eq 'FAIL') {
623 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
624 cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
625 like( $msg, qr/There is already a CNAME present/, " ... returned matching error" );
626 }
627 };
628 subtest "New record vs expiring CNAME" => sub {
629 $newname = 'blocker03.cname-blocks1.test';
630 $newval = '192.168.2.3';
631 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
632 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
633 if ($code eq 'FAIL') {
634 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
635 cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
636 like( $msg, qr/There is already a CNAME with a timestamp present/, " ... returned matching error" );
637 }
638 };
639 subtest "New record vs valid-after CNAME" => sub {
640 $newname = 'blocker04.cname-blocks1.test';
641 $newval = '192.168.2.4';
642 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900);
643 cmp_ok( $code, 'eq', 'FAIL', "addRec() claimed failure" );
644 if ($code eq 'FAIL') {
645 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
646 cmp_ok( $rcount, '==', 1, " ... [$rcount] record(s) with $newname already exist" );
647 like( $msg, qr/There is already a CNAME with a timestamp present/, " ... returned matching error" );
648 }
649 };
650 }; # non-expiring non-CNAMEs
651
652 subtest "Expiring new record" => sub {
653 my @ltime = localtime(time + 86400 * 3);
654 $expirystamp = sprintf "%i-%i-%i %i:%i", $ltime[5] + 1900, ($ltime[4] + 1) % 12, $ltime[3], 15, $ltime[1];
655 subtest "New record vs non-timestamped CNAME" => sub {
656 $newname = 'blocker05.cname-blocks1.test';
657 $newval = '192.168.2.5';
658 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
659 ok($code eq 'FAIL', "addRec() claimed failure");
660 if ($code eq 'FAIL') {
661 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
662 ok( $rcount == 1, " ... [$rcount] yep, hostname only occurs once" );
663 like( $msg, qr/There is already a CNAME present/, " ... returned matching error" );
664 }
665 };
666 subtest "New record vs expiring CNAME" => sub {
667 $newname = 'blocker06.cname-blocks1.test';
668 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
669 ok( $code eq 'FAIL', "addRec() claimed failure");
670 if ($code eq 'FAIL') {
671 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
672 ok( $rcount == 1, " ... [$rcount] record(s) with $newname already exist" );
673 like( $msg, qr/There is already a CNAME with a timestamp present/, " ... returned matching error" );
674 }
675 };
676 subtest "New record expiring after valid-after CNAME" => sub {
677 $newname = 'blocker07.cname-blocks1.test';
678 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
679 cmp_ok( $code, 'eq', 'WARN', "addRec() claimed success with warning" );
680 if ($code eq 'WARN') {
681 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
682 ok( $rcount == 2, " ... [$rcount] correct number of records for $newname" );
683 like( $msg, qr/added with modified expiry time; conflicting valid-after record found/, " ... returned appropriate warning message" );
684 my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 7 AND host = '$newname' ".
685 "AND stampactive = 't' AND expires = 't' AND type = 1");
686 my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 7 AND host = '$newname' ".
687 "AND stampactive = 't' AND expires = 'f'");
688 ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
689 # second record
690 my $secondtype = 28;
691 $newval = '2001:db8::eeee';
692 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$secondtype, \$newval, 900, undef, 't', $expirystamp);
693 cmp_ok( $code, 'eq', 'WARN', "second addRec() claimed success with warning" );
694 if ($code eq 'WARN') {
695 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
696 ok( $rcount == 3, " ... [$rcount] correct number of records for $newname" );
697 like( $msg, qr/added with modified expiry time; conflicting valid-after record found/, " ... returned appropriate warning message" );
698 my ($newstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 7 AND host = '$newname' ".
699 "AND stampactive = 't' AND expires = 't' AND type = 28");
700 my ($oldstamp) = $dbh->selectrow_array("SELECT stamp FROM records WHERE domain_id = 7 AND host = '$newname' ".
701 "AND stampactive = 't' AND expires = 'f'");
702 ok( $newstamp eq $oldstamp, " ... coerced timestamp matches existing active-after timestamp" );
703 } else {
704 print "not ok: $msg";
705 }
706 } else {
707 print "not ok: $msg";
708 }
709 };
710 subtest "New record expires before valid-after CNAME" => sub {
711 $newname = 'blocker08.cname-blocks1.test';
712 $newval = '192.168.2.8';
713 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$rectype, \$newval, 900, undef, 't', $expirystamp);
714 ok( $code eq 'OK', "addRec() claimed succeess" );
715 if ($code eq 'OK') {
716 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
717 ok( $rcount == 2, " ... [$rcount] yep, hostname now occurs twice" );
718 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 7 AND host = '$newname' ".
719 "AND stampactive = 't' AND expires = 't' AND type = 1");
720 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 7 AND host = '$newname' ".
721 "AND stampactive = 't' AND expires = 'f'");
722 ok( $newstamp <= $oldstamp, " ... added record expires before existing active-after record goes active" );
723 # second record
724 my $secondtype = 28;
725 $newval = '2001:db8::eeee';
726 ($code, $msg) = $dnsdb->addRec('n', 'n', 7, \$newname, \$secondtype, \$newval, 900, undef, 't', $expirystamp);
727 ok( $code eq 'OK', "second addRec() claimed succeess" );
728 if ($code eq 'OK') {
729 ($rcount) = $dbh->selectrow_array("SELECT count(*) FROM records WHERE domain_id = 7 AND host = '$newname'");
730 ok( $rcount == 3, " ... [$rcount] yep, hostname now occurs three times" );
731 my ($newstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 7 AND host = '$newname' ".
732 "AND stampactive = 't' AND expires = 't' AND type = 28");
733 my ($oldstamp) = $dbh->selectrow_array("SELECT extract(epoch from stamp) FROM records WHERE domain_id = 7 AND host = '$newname' ".
734 "AND stampactive = 't' AND expires = 'f'");
735 ok( $newstamp <= $oldstamp, " ... added record expires before existing active-after record goes active" );
736 } else {
737 print "not ok: $msg";
738 }
739 } else {
740 print "not ok: $msg";
741 }
742 };
743 }; # expiring non-CNAMEs
744
745}; # non-CNAMEs colliding with CNAMEs
746
747
748done_testing();
Note: See TracBrowser for help on using the repository browser.