diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-13 08:55:47 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-13 08:55:47 +0000 |
| commit | cd10ccf4d1b4671883a0d45f6769947a6cdb45d0 (patch) | |
| tree | b14481899a2c6c4dd53beed82f0f61c6f77254d1 /tests/Test-k.px | |
| parent | Adding upstream version 1.21.4. (diff) | |
| download | wget-upstream/1.24.5.tar.xz wget-upstream/1.24.5.zip | |
Adding upstream version 1.24.5.upstream/1.24.5upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'tests/Test-k.px')
| -rwxr-xr-x | tests/Test-k.px | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/tests/Test-k.px b/tests/Test-k.px deleted file mode 100755 index ce114d7..0000000 --- a/tests/Test-k.px +++ /dev/null @@ -1,92 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use HTTPTest; - - -############################################################################### -my $osname = $^O; -print "OS=$osname\n"; - -my $index = <<EOF; -<html> - <head> - <title>Index</title> - </head> - <body> - <a href="site;sub:.html">Site</a> - </body> -</html> -EOF - -my $converted = <<EOF; -<html> - <head> - <title>Index</title> - </head> - <body> - <a href="./site%3Bsub:.html">Site</a> - </body> -</html> -EOF - -my $site = <<EOF; -<html> - <head> - <title>Site</title> - </head> - <body> - Subsite - </body> -</html> -EOF - -# code, msg, headers, content -my %urls = ( - '/index.html' => { - code => "200", - msg => "Ok", - headers => { - "Content-type" => "text/html", - }, - content => $index, - }, - '/site;sub:.html' => { - code => "200", - msg => "Ok", - headers => { - "Content-type" => "text/html", - }, - content => $site, - }, -); - -my $restrict = "unix"; -if ($osname eq "MSWin32") { - $restrict = "windows"; -} - -my $cmdline = $WgetTest::WGETPATH . " -k -r -nH --restrict-file-names=$restrict http://localhost:{{port}}/index.html"; - -my $expected_error_code = 0; - -my %expected_downloaded_files = ( - 'index.html' => { - content => $converted, - }, - 'site;sub:.html' => { - content => $site, - }, -); - -############################################################################### - -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 |