From 86dc9867a56eb2232e88bf95a8834fa73d6383c8 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Fri, 14 Aug 2020 17:48:43 +0200
Subject: test1140: compare stdout

To make problems more immediately obvious when tests fail.

Closes #5814
---
 tests/data/test1140 |  6 ++++++
 tests/nroff-scan.pl | 12 +++++++-----
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/tests/data/test1140 b/tests/data/test1140
index b9458be9f..f083eec39 100644
--- a/tests/data/test1140
+++ b/tests/data/test1140
@@ -23,4 +23,10 @@ Verify the nroff of man pages
 </command>
 </client>
 
+<verify>
+<stdout>
+OK
+</stdout>
+</verify>
+
 </testcase>
diff --git a/tests/nroff-scan.pl b/tests/nroff-scan.pl
index 3df778a73..15a59c9b0 100755
--- a/tests/nroff-scan.pl
+++ b/tests/nroff-scan.pl
@@ -63,23 +63,23 @@ sub file {
         while($l =~ s/\\f(.)([^ ]*)\\f(.)//) {
             my ($pre, $str, $post)=($1, $2, $3);
             if($post ne "P") {
-                print STDERR "error: $f:$line: missing \\fP after $str\n";
+                print "error: $f:$line: missing \\fP after $str\n";
                 $errors++;
             }
             if($str =~ /((libcurl|curl)([^ ]*))\(3\)/i) {
                 my $man = "$1.3";
                 if(!manpresent($man)) {
-                    print STDERR "error: $f:$line: referring to non-existing man page $man\n";
+                    print "error: $f:$line: referring to non-existing man page $man\n";
                     $errors++;
                 }
                 if($pre ne "I") {
-                    print STDERR "error: $f:$line: use \\fI before $str\n";
+                    print "error: $f:$line: use \\fI before $str\n";
                     $errors++;
                 }
             }
         }
         if($l =~ /(curl([^ ]*)\(3\))/i) {
-            print STDERR "error: $f:$line: non-referencing $1\n";
+            print "error: $f:$line: non-referencing $1\n";
             $errors++;
         }
         if($l =~ /^\.BR (.*)/) {
@@ -87,7 +87,7 @@ sub file {
             while($i =~ s/((lib|)curl([^ ]*)) *\"\(3\)(,|) *\" *//i ) {
                 my $man = "$1.3";
                 if(!manpresent($man)) {
-                    print STDERR "error: $f:$line: referring to non-existing man page $man\n";
+                    print "error: $f:$line: referring to non-existing man page $man\n";
                     $errors++;
                 }
             }
@@ -101,4 +101,6 @@ foreach my $f (@f) {
     file($f);
 }
 
+print "OK\n" if(!$errors);
+
 exit $errors?1:0;
-- 
cgit v1.2.1