Mercurial > hg > nginx-tests

comparison http_resolver_aaaa.t @ 937:b1fa8e0cc27b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespaces fix.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 24 May 2016 16:09:57 +0300
parents a6764c2a9f12
children e9064d691790
comparison
equal deleted inserted replaced
936:e81cacf44cac 937:b1fa8e0cc27b
255 use constant A => 1; 255 use constant A => 1;
256 use constant CNAME => 5; 256 use constant CNAME => 5;
257 use constant AAAA => 28; 257 use constant AAAA => 28;
258 use constant DNAME => 39; 258 use constant DNAME => 39;
259 259
260 use constant IN => 1; 260 use constant IN => 1;
261 261
262 # default values 262 # default values
263 263
264 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); 264 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600);
265 265
311 push @rdata, rd_addr6($ttl, 'fe80::2'); 311 push @rdata, rd_addr6($ttl, 'fe80::2');
312 312
313 } elsif ($name eq 'cname.example.net') { 313 } elsif ($name eq 'cname.example.net') {
314 $state->{cnamecnt}++; 314 $state->{cnamecnt}++;
315 if ($state->{cnamecnt} > 2) { 315 if ($state->{cnamecnt} > 2) {
316 $rcode = SERVFAIL; 316 $rcode = SERVFAIL;
317 } 317 }
318 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, 318 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl,
319 8, 5, 'alias', 0xc012); 319 8, 5, 'alias', 0xc012);
320 320
321 } elsif ($name eq 'cname_a.example.net') { 321 } elsif ($name eq 'cname_a.example.net') {
595 sub dns_daemon { 595 sub dns_daemon {
596 my ($port, $t) = @_; 596 my ($port, $t) = @_;
597 597
598 my ($data, $recv_data); 598 my ($data, $recv_data);
599 my $socket = IO::Socket::INET->new( 599 my $socket = IO::Socket::INET->new(
600 LocalAddr => '127.0.0.1', 600 LocalAddr => '127.0.0.1',
601 LocalPort => $port, 601 LocalPort => $port,
602 Proto => 'udp', 602 Proto => 'udp',
603 ) 603 )
604 or die "Can't create listening socket: $!\n"; 604 or die "Can't create listening socket: $!\n";
605 605
606 # track number of relevant queries 606 # track number of relevant queries
607 607
608 my %state = ( 608 my %state = (
609 cnamecnt => 0, 609 cnamecnt => 0,
610 twocnt => 0, 610 twocnt => 0,
611 manycnt => 0, 611 manycnt => 0,
612 ); 612 );
613 613
614 # signal we are ready 614 # signal we are ready
615 615
616 open my $fh, '>', $t->testdir() . '/' . $port; 616 open my $fh, '>', $t->testdir() . '/' . $port;