Mercurial > hg > nginx-tests
diff mail_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 | 481d705b8610 |
children | ffdd33c64193 |
line wrap: on
line diff
--- a/mail_resolver.t Thu Nov 05 12:56:35 2015 +0300 +++ b/mail_resolver.t Thu Nov 05 14:02:53 2015 +0300 @@ -298,7 +298,7 @@ } elsif ($port == 8085) { # uncompressed answer - push @rdata, pack("(w/a*)6x n2N n(w/a*)3x", + push @rdata, pack("(C/a*)6x n2N n(C/a*)3x", ('1', '0', '0', '127', 'in-addr', 'arpa'), PTR, IN, $ttl, 15, ('a', 'example', 'net')); @@ -311,7 +311,7 @@ } $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); } @@ -321,7 +321,7 @@ @rdname = split /\./, $name; $rdlen = length(join '', @rdname) + @rdname + 1; - pack("n3N n(w/a*)* x", 0xc00c, $type, IN, $ttl, $rdlen, @rdname); + pack("n3N n(C/a*)* x", 0xc00c, $type, IN, $ttl, $rdlen, @rdname); } sub rd_addr {