Force use of $config{url} as top URL in w3mmode

[ikiwiki.git] / t / relativity.t

diff --git a/t/relativity.t b/t/relativity.t
index ca1664f3ca53621a5b0d029d3faa76bef72da7f3..0f7d014c578f416f5e6760b515da189ba991bf04 100755 (executable)
--- a/t/relativity.t
+++ b/t/relativity.t
@@ -18,6 +18,7 @@ BEGIN {
        use_ok("IkiWiki");
 }
 
+my $PERL5LIB = 'blib/lib:blib/arch';
 my $pwd = getcwd();
 
 # Black-box (ish) test for relative linking between CGI and static content
@@ -80,6 +81,7 @@ cgi_wrappermode: 0754
 add_plugins:
 - anonok
 anonok_pagespec: "*"
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );
 
@@ -177,6 +179,7 @@ cgi_wrappermode: 0754
 add_plugins:
 - anonok
 anonok_pagespec: "*"
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );
 
@@ -268,6 +271,7 @@ cgi_wrappermode: 0754
 add_plugins:
 - anonok
 anonok_pagespec: "*"
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );
 
@@ -372,6 +376,7 @@ cgi_wrappermode: 0754
 add_plugins:
 - anonok
 anonok_pagespec: "*"
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );
 
@@ -483,6 +488,7 @@ cgi_wrappermode: 0754
 add_plugins:
 - anonok
 anonok_pagespec: "*"
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );
 
@@ -515,11 +521,8 @@ run(["./t/tmp/ikiwiki.cgi"], \undef, \$content, init => sub {
 %bits = parse_cgi_content($content);
 like($bits{tophref}, qr{^(?:\Q$pwd\E/t/tmp/out|\.)/$});
 like($bits{cgihref}, qr{^(?:file://)?/\$LIB/ikiwiki-w3m.cgi/ikiwiki.cgi$});
-TODO: {
-local $TODO = "should be file:///";
 like($bits{basehref}, qr{^(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out/$});
 like($bits{stylehref}, qr{^(?:(?:(?:file:)?//)?\Q$pwd\E/t/tmp/out|\.)/style.css$});
-}
 
 #######################################################################
 # site 6: we're behind a reverse-proxy
@@ -539,6 +542,7 @@ add_plugins:
 - anonok
 anonok_pagespec: "*"
 reverse_proxy: 1
+ENV: { 'PERL5LIB': '$PERL5LIB' }
 EOF
 );