1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use HTTPTest;
7
8
9###############################################################################
10
11my $dontcare = <<EOF;
12Don't care.
13EOF
14
15my $dummyfile = <<EOF;
16<html>
17<head>
18  <title>Page Title</title>
19</head>
20<body>
21  <p>
22    Some text.
23  </p>
24</body>
25</html>
26EOF
27
28# code, msg, headers, content
29my %urls = (
30    '/dummy.html' => {
31        code => "200",
32        msg => "Dontcare",
33        headers => {
34            "Content-type" => "text/html",
35            "Content-Disposition" => "attachment; filename=\"filename.html\"",
36        },
37        content => $dummyfile,
38    },
39);
40
41my $cmdline = $WgetTest::WGETPATH . " -e contentdisposition=on http://localhost:{{port}}/dummy.html";
42
43my $expected_error_code = 0;
44
45my %existing_files = (
46    'filename.html' => {
47        content => $dontcare,
48    },
49    'filename.html.1' => {
50        content => $dontcare,
51    },
52);
53
54my %expected_downloaded_files = (
55    'filename.html' => {
56        content => $dontcare,
57    },
58    'filename.html.1' => {
59        content => $dontcare,
60    },
61    'filename.html.2' => {
62        content => $dummyfile,
63    },
64);
65
66###############################################################################
67
68my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition-1",
69                              input => \%urls,
70                              cmdline => $cmdline,
71                              errcode => $expected_error_code,
72                              existing => \%existing_files,
73                              output => \%expected_downloaded_files);
74exit $the_test->run();
75
76# vim: et ts=4 sw=4
77
78