diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2020-08-14 17:48:43 +0200 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2020-08-14 17:48:43 +0200 |
| commit | fd730526fcf80b8de55c130d66ddddc3853ebafa (patch) | |
| tree | 593061ed8eedea47efa8b57a3b0d91feed44032b | |
| parent | 974461443466bd334727a8c03ff41905ebaa4516 (diff) | |
| download | curl-bagder/test1140.tar.gz | |
test1140: compare stdoutbagder/test1140
To make problems more immediately obvious when tests fail.
| -rw-r--r-- | tests/data/test1140 | 6 | ||||
| -rwxr-xr-x | 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; |