sjero.net Git - wget/blob - tests/Test--start-pos--continue.px

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use HTTPTest;
   7
   8
   9 ###############################################################################
  10
  11 my $existingfile = <<EOF;
  12 content should be preserved.
  13 EOF
  14
  15 my $wholefile = "1234";
  16
  17 # code, msg, headers, content
  18 my %urls = (
  19     '/somefile.txt' => {
  20         code => "206",
  21         msg => "Dontcare",
  22         headers => {
  23             "Content-type" => "text/plain",
  24         },
  25         content => $wholefile,
  26     },
  27 );
  28
  29 my $cmdline = $WgetTest::WGETPATH . " --start-pos=1 --continue --debug http://localhost:{{port}}/somefile.txt";
  30
  31 my $expected_error_code = 0;
  32
  33 my %existing_files = (
  34     'somefile.txt' => {
  35         content => $existingfile,
  36     },
  37 );
  38
  39 my %expected_downloaded_files = (
  40     'somefile.txt.1' => {
  41         content => substr($wholefile, 1),
  42     },
  43 );
  44
  45 ###############################################################################
  46
  47 my $the_test = HTTPTest->new (name => "Test--start-pos--continue",
  48                               input => \%urls,
  49                               cmdline => $cmdline,
  50                               errcode => $expected_error_code,
  51                               existing => \%existing_files,
  52                               output => \%expected_downloaded_files);
  53 exit $the_test->run();
  54
  55 # vim: et ts=4 sw=4
  56
  57