check that web server has actually started

reports its error messages if any

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';