sjero.net Git - wget/blob - 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