1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use HTTPTest;
7
8
9###############################################################################
10
11my $urls = <<EOF;
12http://localhost:{{port}}/site1.html
13http://localhost:{{port}}/site2.html
14EOF
15
16my $site1 = <<EOF;
17<html>
18  <head>
19    <title>Site 1</title>
20  </head>
21  <body>
22    <p>In orci diam, iaculis a hendrerit accumsan, mollis a nibh.</p>
23  </body>
24</html>
25EOF
26
27my $site2 = <<EOF;
28<html>
29  <head>
30    <title>Site 2</title>
31  </head>
32  <body>
33    <p>Sed vehicula ultrices orci a congue. Sed convallis semper urna.</p>
34  </body>
35</html>
36EOF
37
38# code, msg, headers, content
39my %urls = (
40    '/urls.txt' => {
41        code => "200",
42        msg => "Ok",
43        headers => {
44            "Content-type" => "text/plain",
45        },
46        content => $urls,
47    },
48    '/site1.html' => {
49        code => "200",
50        msg => "Ok",
51        headers => {
52            "Content-type" => "text/html",
53        },
54        content => $site1,
55    },
56    '/site2.html' => {
57        code => "200",
58        msg => "Ok",
59        headers => {
60            "Content-type" => "text/html",
61        },
62        content => $site2,
63    },
64);
65
66my $cmdline = $WgetTest::WGETPATH . " -i http://localhost:{{port}}/urls.txt";
67
68my $expected_error_code = 0;
69
70my %expected_downloaded_files = (
71    'urls.txt' => {
72        content => $urls,
73    },
74    'site1.html' => {
75        content => $site1,
76    },
77    'site2.html' => {
78        content => $site2,
79    },
80);
81
82###############################################################################
83
84my $the_test = HTTPTest->new (input => \%urls,
85                              cmdline => $cmdline,
86                              errcode => $expected_error_code,
87                              output => \%expected_downloaded_files);
88exit $the_test->run();
89
90# vim: et ts=4 sw=4
91