2013-03-12 14:51:07 +08:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
use HTTPTest;
|
|
|
|
|
|
|
|
|
|
|
|
###############################################################################
|
|
|
|
|
2014-01-23 15:30:07 +08:00
|
|
|
my $cmdline = $WgetTest::WGETPATH . " --post-file=nofile http://localhost:{{port}}/";
|
2013-03-12 14:51:07 +08:00
|
|
|
|
|
|
|
my $expected_error_code = 3;
|
|
|
|
|
|
|
|
|
|
|
|
###############################################################################
|
|
|
|
|
2014-10-02 17:26:59 +08:00
|
|
|
my $the_test = HTTPTest->new (cmdline => $cmdline,
|
2013-03-12 14:51:07 +08:00
|
|
|
errcode => $expected_error_code);
|
|
|
|
exit $the_test->run();
|
|
|
|
|
|
|
|
# vim: et ts=4 sw=4
|