Re: Bug in libwww-perl-5.36/t/base/headers-auth.t?
Gisle Aas (gisle@aas.no)
21 Oct 1998 15:32:06 +0200
Norbert Goevert <goevert@amaunet.informatik.uni-dortmund.de> writes:
> test 4 in libwww-perl-5.36/t/base/headers-auth.t fails on my Solaris
> 2.6 box. From the code
This is a known bug in the test suite which is triggered by the new
hash algorithm in the 5.005_52 release of perl. It will be fixed in
the next LWP release. You can ignore this failure.
Regards,
Gisle
> ,-----
> | $res->www_authenticate(Basic => [realm => foo3, foo=>33],
> | Digest => {nonce=>"bar", foo=>'foo'});
> | print $res->as_string;
> |
> | $_ = $res->as_string;
> |
> | print "not " unless /WWW-Authenticate: Basic realm="foo3", foo=33/ &&
> | /WWW-Authenticate: Digest nonce=bar, foo=foo/;
> | print "ok 4\n";
> `-----
>
> it seems that a special ordering of (key, value) pairs within the
> `Digest' Hashref is assumed. Output on my box for this part:
>
> ,-----
> | [...]
> | WWW-Authenticate: Digest foo=foo, nonce=bar
> |
> |
> | not ok 4
> `-----
>
> which is exactly what is tested for in the 2nd part of the `unless'
> expression, except the ordering. My proposal to this would be
> something like
>
> ,-----
> | print "not " unless /WWW-Authenticate: Basic realm="foo3", foo=33/ &&
> | /WWW-Authenticate: Digest nonce=bar, foo=foo/
> || /WWW-Authenticate: Digest foo=foo, nonce=bar/;
> | print "ok 4\n";
> `-----