| Subject: | heuristic.t still fails test#7 |
I added a debug line to show what is returned by uf_urlstr()
use Net::Domain;
$ENV{LC_ALL} = "C";
{ no warnings; *Net::Domain::hostfqdn = sub { return 'vasya.su' } }
undef $URI::Heuristic::MY_COUNTRY;
print STDERR uf_urlstr("perl/camel.gif")."\n";
print "not " unless uf_urlstr("perl/camel.gif") =~
m,^http://www\.perl\.su/camel\.gif$,;
print "ok 7\n";
t/heuristic......http://www.perl.com/camel.gif
t/heuristic......FAILED test 7
Failed 1/20 tests, 95.00% okay
it looks like it's now using the FQDN hint.