← Back to branch summary

~ubuntu-branches/ubuntu/lucid/wget/lucid-security

« back to all changes in this revision

Viewing changes to tests/Test-HTTP-Content-Disposition-2.px

  • Committer: Bazaar Package Importer
  • Author(s): Michael Vogt
  • Date: 2008-05-27 11:49:54 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20080527114954-ame070pjhqtofeaf
Tags: 1.11.2-1ubuntu1
* Merge from debian unstable, remaining changes:
  - Add wget-udeb to ship wget.gnu as alternative to busybox wget
    implementation.

Show diffs side-by-side

added added

removed removed

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