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_method => 'Basic', 17 user => 'fiddle-dee-dee', 18 passwd => 'Dodgson', 19 code => "200", 20 msg => "You want fries with that?", 21 headers => { 22 "Content-type" => "text/plain", 23 }, 24 content => $wholefile, 25 }, 26); 27 28my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee --password=Dodgson" 29 . " http://localhost:{{port}}/needs-auth.txt"; 30 31my $expected_error_code = 0; 32 33my %expected_downloaded_files = ( 34 'needs-auth.txt' => { 35 content => $wholefile, 36 }, 37); 38 39############################################################################### 40 41my $the_test = HTTPTest->new (name => "Test-auth-basic", 42 input => \%urls, 43 cmdline => $cmdline, 44 errcode => $expected_error_code, 45 output => \%expected_downloaded_files); 46exit $the_test->run(); 47 48# vim: et ts=4 sw=4 49 50