1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $dummyfile = <<EOF; 12Don't care. 13EOF 14 15# code, msg, headers, content 16my %urls = ( 17 '/dummy.html' => { 18 code => "200", 19 msg => "Dontcare", 20 headers => { 21 "Content-type" => "text/plain", 22 }, 23 content => $dummyfile 24 }, 25); 26 27my $cmdline = $WgetTest::WGETPATH . " --quiet http://localhost:{{port}}/nonexistent"; 28 29my $expected_error_code = 8; 30 31my %expected_downloaded_files = ( 32); 33 34############################################################################### 35 36my $the_test = HTTPTest->new (name => "Test-nonexisting-quiet", 37 input => \%urls, 38 cmdline => $cmdline, 39 errcode => $expected_error_code, 40 output => \%expected_downloaded_files); 41exit $the_test->run(); 42 43# vim: et ts=4 sw=4 44 45