← Back to branch summary

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

« back to all changes in this revision

Viewing changes to tests/Test-i-ftp.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-ftp.px
 
1
#!/usr/bin/env perl
 
2
 
 
3
use strict;
 
4
use warnings;
 
5
 
 
6
use FTPTest;
 
7
 
 
8
 
 
9
###############################################################################
 
10
 
 
11
my $urls = <<EOF;
 
12
ftp://localhost:{{port}}/site1.html
 
13
ftp://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>Nunc eu ligula sed mauris sollicitudin scelerisque. Suspendisse viverra, dolor.</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>Suspendisse potenti. Phasellus et magna est, quis consectetur ligula. Integer.</p>
 
34
  </body>
 
35
</html>
 
36
EOF
 
37
 
 
38
foreach ($urls, $site1, $site2) {
 
39
    s/\n/\r\n/g;
 
40
}
 
41
 
 
42
my %urls = (
 
43
    '/urls.txt' => {
 
44
        content => $urls,
 
45
    },
 
46
    '/site1.html' => {
 
47
        content => $site1,
 
48
    },
 
49
    '/site2.html' => {
 
50
        content => $site2,
 
51
    },
 
52
);
 
53
 
 
54
my $cmdline = $WgetTest::WGETPATH . " -i ftp://localhost:{{port}}/urls.txt";
 
55
 
 
56
my $expected_error_code = 0;
 
57
 
 
58
my %expected_downloaded_files = (
 
59
    'urls.txt' => {
 
60
        content => $urls,
 
61
    },
 
62
    'site1.html' => {
 
63
        content => $site1,
 
64
    },
 
65
    'site2.html' => {
 
66
        content => $site2,
 
67
    },
 
68
);
 
69
 
 
70
###############################################################################
 
71
 
 
72
my $the_test = FTPTest->new (name => "Test-i-ftp",
 
73
                             input => \%urls,
 
74
                             cmdline => $cmdline,
 
75
                             errcode => $expected_error_code,
 
76
                             output => \%expected_downloaded_files);
 
77
exit $the_test->run();
 
78
 
 
79
# vim: et ts=4 sw=4
 
80