Mercurial > hg > nginx-tests
diff http_resolver.t @ 775:a6764c2a9f12
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 |
line wrap: on
line diff
--- a/http_resolver.t +++ b/http_resolver.t @@ -312,7 +312,7 @@ sub reply_handler { push @rdata, rd_addr($ttl, '127.0.0.1'); } elsif ($name eq 'awide.example.net' && $type == A) { - push @rdata, pack '(w/a*)3x n2N nC4', + push @rdata, pack '(C/a*)3x n2N nC4', ('awide', 'example', 'net'), A, IN, $ttl, 4, (127, 0, 0, 1); @@ -338,7 +338,7 @@ sub reply_handler { my @dname = ('example', 'net'); my $rdlen = length(join '', @dname) + @dname + 1; - push @rdata, pack("n3N n(w/a*)* x", 0xc012, DNAME, IN, $ttl, + push @rdata, pack("n3N n(C/a*)* x", 0xc012, DNAME, IN, $ttl, $rdlen, @dname); # alias.example.com. 3600 IN CNAME alias.example.net. @@ -429,7 +429,7 @@ sub reply_handler { } $len = @name; - pack("n6 (w/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, + pack("n6 (C/a*)$len x n2", $id, $hdr | $rcode, 1, scalar @rdata, 0, 0, @name, $type, $class) . join('', @rdata); }