diff options
Diffstat (limited to 'tests/Test-auth-basic.px')
-rwxr-xr-x | tests/Test-auth-basic.px | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/tests/Test-auth-basic.px b/tests/Test-auth-basic.px deleted file mode 100755 index ce9100d..0000000 --- a/tests/Test-auth-basic.px +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use HTTPTest; - - -############################################################################### - -my $wholefile = "You're all authenticated.\n"; - -# code, msg, headers, content -my %urls = ( - '/needs-auth.txt' => { - auth_method => 'Basic', - user => 'fiddle-dee-dee', - passwd => 'Dodgson', - code => "200", - msg => "You want fries with that?", - headers => { - "Content-type" => "text/plain", - }, - content => $wholefile, - }, -); - -my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee --password=Dodgson" - . " http://localhost:{{port}}/needs-auth.txt"; - -my $expected_error_code = 0; - -my %expected_downloaded_files = ( - 'needs-auth.txt' => { - content => $wholefile, - }, -); - -############################################################################### - -my $the_test = HTTPTest->new (input => \%urls, - cmdline => $cmdline, - errcode => $expected_error_code, - output => \%expected_downloaded_files); -exit $the_test->run(); - -# vim: et ts=4 sw=4 |