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 . " --user=fiddle-dee-dee --password=Dodgson" 31 . " http://localhost:{{port}}/needs-auth.txt"; 32 33my $expected_error_code = 0; 34 35my %expected_downloaded_files = ( 36 'needs-auth.txt' => { 37 content => $wholefile, 38 }, 39); 40 41############################################################################### 42 43my $the_test = HTTPTest->new (name => "Test-auth-no-challenge", 44 input => \%urls, 45 cmdline => $cmdline, 46 errcode => $expected_error_code, 47 output => \%expected_downloaded_files); 48exit $the_test->run(); 49 50# vim: et ts=4 sw=4 51 52