setenv("HTTPS", "on", 1);
check_string(infer_url(1),
"https://www.anjou.terraraq.org.uk/~richard/env.cgi");
setenv("QUERY_STRING", "foo", 1);
check_string(infer_url(1),
"https://www.anjou.terraraq.org.uk/~richard/env.cgi");
setenv("HTTPS", "on", 1);
check_string(infer_url(1),
"https://www.anjou.terraraq.org.uk/~richard/env.cgi");
setenv("QUERY_STRING", "foo", 1);
check_string(infer_url(1),
"https://www.anjou.terraraq.org.uk/~richard/env.cgi");