← Back to branch summary

~ubuntu-branches/ubuntu/precise/wget/precise-proposed

« back to all changes in this revision

Viewing changes to tests/Test-i-http.px

  • Committer: Bazaar Package Importer
  • Author(s): Steve Langasek
  • Date: 2011-10-19 00:00:09 UTC
  • mfrom: (2.1.13 sid)
  • Revision ID: james.westby@ubuntu.com-20111019000009-8p33w3wz4b1rdri0
Tags: 1.13-1ubuntu1
https://launchpad.net/bugs/503339
* Merge from Debian unstable, remaining changes:
  - Add wget-udeb to ship wget.gnu as alternative to busybox wget
    implementation.
  - Depend on libssl-dev 0.9.8k-7ubuntu4 (LP: #503339)
* Dropped changes, superseded in Debian:
  - Keep build dependencies in main:
    + debian/control: remove info2man build-dep
    + debian/patches/series: disable wget-infopod_generated_manpage
  - Mark wget Multi-Arch: foreign, so packages that aren't of the same arch
    can depend on it.
* Pass --with-ssl=openssl; we don't want to use gnutls, there's no udeb for
  it.
* Add a second build pass for the udeb, so we can build without libidn.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/Test-i-http.px
 
1
#!/usr/bin/env perl
 
2
 
 
3
use strict;
 
4
use warnings;
 
5
 
 
6
use HTTPTest;
 
7
 
 
8
 
 
9
###############################################################################
 
10
 
 
11
my $urls = <<EOF;
 
12
http://localhost:{{port}}/site1.html
 
13
http://localhost:{{port}}/site2.html
 
14
EOF
 
15
 
 
16
my $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>
 
25
EOF
 
26
 
 
27
my $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>
 
36
EOF
 
37
 
 
38
# code, msg, headers, content
 
39
my %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
 
 
66
my $cmdline = $WgetTest::WGETPATH . " -i http://localhost:{{port}}/urls.txt";
 
67
 
 
68
my $expected_error_code = 0;
 
69
 
 
70
my %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
 
 
84
my $the_test = HTTPTest->new (name => "Test-i-http",
 
85
                              input => \%urls,
 
86
                              cmdline => $cmdline,
 
87
                              errcode => $expected_error_code,
 
88
                              output => \%expected_downloaded_files);
 
89
exit $the_test->run();
 
90
 
 
91
# vim: et ts=4 sw=4
 
92