Mercurial > hg > nginx-tests

comparison http_resolver.t @ 775:a6764c2a9f12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fixed DNS label coding in resolver tests. No actual functional changes.
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 05 Nov 2015 14:02:53 +0300
parents 99233cfefbbe
children 9623d353f066
comparison
equal deleted inserted replaced
774:adc32621fb09 775:a6764c2a9f12
310 } 310 }
311 311
312 push @rdata, rd_addr($ttl, '127.0.0.1'); 312 push @rdata, rd_addr($ttl, '127.0.0.1');
313 313
314 } elsif ($name eq 'awide.example.net' && $type == A) { 314 } elsif ($name eq 'awide.example.net' && $type == A) {
315 push @rdata, pack '(w/a*)3x n2N nC4', 315 push @rdata, pack '(C/a*)3x n2N nC4',
316 ('awide', 'example', 'net'), A, IN, $ttl, 316 ('awide', 'example', 'net'), A, IN, $ttl,
317 4, (127, 0, 0, 1); 317 4, (127, 0, 0, 1);
318 318
319 } elsif (($name eq 'many.example.net') && $type == A) { 319 } elsif (($name eq 'many.example.net') && $type == A) {
320 $state->{manycnt}++; 320 $state->{manycnt}++;
336 } elsif (($name eq 'alias.example.com')) { 336 } elsif (($name eq 'alias.example.com')) {
337 # example.com. 3600 IN DNAME example.net. 337 # example.com. 3600 IN DNAME example.net.
338 338
339 my @dname = ('example', 'net'); 339 my @dname = ('example', 'net');
340 my $rdlen = length(join '', @dname) + @dname + 1; 340 my $rdlen = length(join '', @dname) + @dname + 1;
341 push @rdata, pack("n3N n(w/a*)* x", 0xc012, DNAME, IN, $ttl, 341 push @rdata, pack("n3N n(C/a*)* x", 0xc012, DNAME, IN, $ttl,
342 $rdlen, @dname); 342 $rdlen, @dname);
343 343
344 # alias.example.com. 3600 IN CNAME alias.example.net. 344 # alias.example.com. 3600 IN CNAME alias.example.net.
345 345
346 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, 346 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl,
427 push @rdata, rd_addr($ttl, '127.0.0.1'); 427 push @rdata, rd_addr($ttl, '127.0.0.1');
428 } 428 }
429 } 429 }
430 430
431 $len = @name; 431 $len = @name;
432 pack("n6 (w/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, 432 pack("n6 (C/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata,
433 0, 0, @name, $type, $class) . join('', @rdata); 433 0, 0, @name, $type, $class) . join('', @rdata);
434 } 434 }
435 435
436 sub rd_addr { 436 sub rd_addr {
437 my ($ttl, $addr) = @_; 437 my ($ttl, $addr) = @_;