6 use WgetFeature qw(https);
11 ###############################################################################
16 <title>Main Page</title>
20 Some text and a link to a <a href="http://localhost:{{port}}/secondpage.html">second page</a>.
26 my $secondpage = <<EOF;
29 <title>Second Page</title>
39 # code, msg, headers, content
45 "Content-type" => "text/html",
49 '/secondpage.html' => {
53 "Content-type" => "text/html",
55 content => $secondpage,
59 my $cmdline = $WgetTest::WGETPATH . " --https-only -r -nH http://localhost:{{port}}/";
61 my $expected_error_code = 0;
63 my %expected_downloaded_files = (
69 ###############################################################################
71 my $the_test = HTTPTest->new (name => "Test--httpsonly-r",
74 errcode => $expected_error_code,
75 output => \%expected_downloaded_files);
76 print $expected_error_code."\n";
78 exit $the_test->run();