Mercurial > hg > nginx-tests

comparison http_resolver.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 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;