Mercurial > hg > nginx-tests
comparison http_resolver_aaaa.t @ 937:b1fa8e0cc27b
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; |