mirror of
https://github.com/mirror/wget.git
synced 2024-12-26 12:50:44 +08:00
23 lines
503 B
Perl
Executable File
23 lines
503 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use HTTPTest;
|
|
|
|
|
|
###############################################################################
|
|
|
|
my $cmdline = $WgetTest::WGETPATH . " --post-file=nofile http://localhost:{{port}}/";
|
|
|
|
my $expected_error_code = 3;
|
|
|
|
|
|
###############################################################################
|
|
|
|
my $the_test = HTTPTest->new (cmdline => $cmdline,
|
|
errcode => $expected_error_code);
|
|
exit $the_test->run();
|
|
|
|
# vim: et ts=4 sw=4
|