Mercurial > hg > nginx-tests
comparison http_resolver.t @ 937:b1fa8e0cc27b
Tests: whitespaces fix.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Tue, 24 May 2016 16:09:57 +0300 |
parents | a9c4cebcfe69 |
children | e9064d691790 |
comparison
equal
deleted
inserted
replaced
936:e81cacf44cac | 937:b1fa8e0cc27b |
---|---|
321 | 321 |
322 use constant A => 1; | 322 use constant A => 1; |
323 use constant CNAME => 5; | 323 use constant CNAME => 5; |
324 use constant DNAME => 39; | 324 use constant DNAME => 39; |
325 | 325 |
326 use constant IN => 1; | 326 use constant IN => 1; |
327 | 327 |
328 # default values | 328 # default values |
329 | 329 |
330 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); | 330 my ($hdr, $rcode, $ttl) = (0x8180, NOERROR, 3600); |
331 | 331 |
410 8, 5, 'alias', 0xc02f); | 410 8, 5, 'alias', 0xc02f); |
411 | 411 |
412 } elsif ($name eq 'cname.example.net') { | 412 } elsif ($name eq 'cname.example.net') { |
413 $state->{cnamecnt}++; | 413 $state->{cnamecnt}++; |
414 if ($state->{cnamecnt} > 2) { | 414 if ($state->{cnamecnt} > 2) { |
415 $rcode = SERVFAIL; | 415 $rcode = SERVFAIL; |
416 } | 416 } |
417 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, | 417 push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl, |
418 8, 5, 'alias', 0xc012); | 418 8, 5, 'alias', 0xc012); |
419 | 419 |
420 } elsif ($name eq 'timeout.example.net') { | 420 } elsif ($name eq 'timeout.example.net') { |
434 | 434 |
435 } elsif ($name eq 'cname_a_ttl2.example.net' && $type == A) { | 435 } elsif ($name eq 'cname_a_ttl2.example.net' && $type == A) { |
436 push @rdata, pack("n3N nCa18n", 0xc00c, CNAME, IN, 1, | 436 push @rdata, pack("n3N nCa18n", 0xc00c, CNAME, IN, 1, |
437 21, 18, 'cname_a_ttl2_alias', 0xc019); | 437 21, 18, 'cname_a_ttl2_alias', 0xc019); |
438 if (++$state->{cttl2cnt} >= 2) { | 438 if (++$state->{cttl2cnt} >= 2) { |
439 $rcode = SERVFAIL; | 439 $rcode = SERVFAIL; |
440 } | 440 } |
441 push @rdata, pack('n3N nC4', 0xc036, A, IN, $ttl, | 441 push @rdata, pack('n3N nC4', 0xc036, A, IN, $ttl, |
442 4, split(/\./, '127.0.0.1')); | 442 4, split(/\./, '127.0.0.1')); |
443 | 443 |
444 } elsif ($name eq 'cname_a_ttl_alias.example.net' && $type == A) { | 444 } elsif ($name eq 'cname_a_ttl_alias.example.net' && $type == A) { |
519 sub dns_daemon { | 519 sub dns_daemon { |
520 my ($port, $t, %extra) = @_; | 520 my ($port, $t, %extra) = @_; |
521 | 521 |
522 my ($data, $recv_data); | 522 my ($data, $recv_data); |
523 my $socket = IO::Socket::INET->new( | 523 my $socket = IO::Socket::INET->new( |
524 LocalAddr => '127.0.0.1', | 524 LocalAddr => '127.0.0.1', |
525 LocalPort => $port, | 525 LocalPort => $port, |
526 Proto => 'udp', | 526 Proto => 'udp', |
527 ) | 527 ) |
528 or die "Can't create listening socket: $!\n"; | 528 or die "Can't create listening socket: $!\n"; |
529 | 529 |
530 my $sel = IO::Select->new($socket); | 530 my $sel = IO::Select->new($socket); |
531 my $tcp = 0; | 531 my $tcp = 0; |
545 local $SIG{PIPE} = 'IGNORE'; | 545 local $SIG{PIPE} = 'IGNORE'; |
546 | 546 |
547 # track number of relevant queries | 547 # track number of relevant queries |
548 | 548 |
549 my %state = ( | 549 my %state = ( |
550 cnamecnt => 0, | 550 cnamecnt => 0, |
551 twocnt => 0, | 551 twocnt => 0, |
552 ttlcnt => 0, | 552 ttlcnt => 0, |
553 ttl0cnt => 0, | 553 ttl0cnt => 0, |
554 cttlcnt => 0, | 554 cttlcnt => 0, |
555 cttl2cnt => 0, | 555 cttl2cnt => 0, |
556 manycnt => 0, | 556 manycnt => 0, |
557 casecnt => 0, | 557 casecnt => 0, |
558 idcnt => 0, | 558 idcnt => 0, |
559 fecnt => 0, | 559 fecnt => 0, |
560 ); | 560 ); |
561 | 561 |
562 # signal we are ready | 562 # signal we are ready |
563 | 563 |
564 open my $fh, '>', $t->testdir() . '/' . $port; | 564 open my $fh, '>', $t->testdir() . '/' . $port; |