summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/simple-httpd8
-rw-r--r--t/superuser--http.t2
2 files changed, 10 insertions, 0 deletions
diff --git a/t/simple-httpd b/t/simple-httpd
index 934b98f1..123950ae 100755
--- a/t/simple-httpd
+++ b/t/simple-httpd
@@ -166,6 +166,14 @@ sub content_type {
return "Content-type: $type\r\n";
}
+sub fatal_hook {
+ my ($self, $msg, $pkg, $file, $number, ) = @_;
+ # error message, the package, file, and line number.
+ print $self->status($number, $msg), "\r\n";
+ warn "Error - msg='$msg', pkg='$pkg', file='$file', nb='$number'\n";
+ return;
+}
+
sub error{
my ($self, $number, $msg) = @_;
print $self->status($number, $msg), "\r\n";
diff --git a/t/superuser--http.t b/t/superuser--http.t
index 625c1076..ba74e54c 100644
--- a/t/superuser--http.t
+++ b/t/superuser--http.t
@@ -12,6 +12,8 @@ need_root_and_prepare();
need_downloader();
my $url = start_httpd();
+sleep(1); # give time to server to start
+is(`cat tmp/error.log`, '', 'server error logs are empty');
my $name = 'various';