From f077f4bbeb9605010b612d1f7280e5dde729e6c4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 9 Apr 2020 12:01:27 +0200
Subject: check that web server has actually started

reports its error messages if any
---
 NEWS                | 3 +++
 t/simple-httpd      | 8 ++++++++
 t/superuser--http.t | 2 ++
 3 files changed, 13 insertions(+)

diff --git a/NEWS b/NEWS
index bc7ebee4..605b3b49 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- cpan_testers:
+  o check that web server has actually started
+
 Version 8.121 - 8 April 2020
 
 - urpmi:
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';
 
-- 
cgit v1.2.1