1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $wholefile = "You're all authenticated.\n"; 12 13# code, msg, headers, content 14my %urls = ( 15 '/needs-auth.txt' => { 16 auth_no_challenge => 1, 17 auth_method => 'Basic', 18 user => 'fiddle-dee-dee', 19 passwd => 'Dodgson', 20 code => "200", 21 msg => "You want fries with that?", 22 headers => { 23 "Content-type" => "text/plain", 24 }, 25 content => $wholefile, 26 }, 27); 28 29my $cmdline = $WgetTest::WGETPATH . " --auth-no-challenge " 30 . "http://fiddle-dee-dee:Dodgson\@localhost:{{port}}/needs-auth.txt"; 31 32my $expected_error_code = 0; 33 34my %expected_downloaded_files = ( 35 'needs-auth.txt' => { 36 content => $wholefile, 37 }, 38); 39 40############################################################################### 41 42my $the_test = HTTPTest->new (name => "Test-auth-no-challenge-url", 43 input => \%urls, 44 cmdline => $cmdline, 45 errcode => $expected_error_code, 46 output => \%expected_downloaded_files); 47exit $the_test->run(); 48 49# vim: et ts=4 sw=4 50 51