romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-26 10:03:33 +03:00
Code Issues Projects Releases Packages Wiki Activity

test1477: verify that libcurl-errors.3 and public headers are synced

Browse source 
The script errorcodes.pl extracts all error codes from all headers and
checks that they are all documented, then checks that all documented
error codes are also specified in a header file.

Closes #12424
This commit is contained in:
Daniel Stenberg 2023-11-28 17:07:44 +01:00
parent 66ec950004
commit 0ca3a4ec9a
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
3 changed files with 130 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

99
tests/errorcodes.pl Executable file
View file

@ -0,0 +1,99 @@
#!/usr/bin/env perl
#***************************************************************************
# _ _ ____ _
# Project ___| | | | _ \| |
# / __| | | | |_) | |
# | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____|
#
# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
#
# This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms
# are also available at https://curl.se/docs/copyright.html.
#
# You may opt to use, copy, modify, merge, publish, distribute and/or sell
# copies of the Software, and permit persons to whom the Software is
# furnished to do so, under the terms of the COPYING file.
#
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
# KIND, either express or implied.
#
# SPDX-License-Identifier: curl
#
###########################################################################
# Check that libcurl-errors.3 and the public header files have the same set of
# error codes.
use strict;
use warnings;
# we may get the dir roots pointed out
my $root=$ARGV[0] || ".";
my $manpge = "$root/docs/libcurl/libcurl-errors.3";
my $curlh = "$root/include/curl";
my $errors=0;
my @hnames;
my %wherefrom;
my @mnames;
my %manfrom;
sub scanheader {
my ($file)=@_;
open H, "<$file";
my $line = 0;
while(<H>) {
$line++;
if($_ =~ /^ (CURL(E|UE|SHE|HE|M)_[A-Z0-9_]*)/) {
my ($name)=($1);
if(($name !~ /OBSOLETE/) && ($name !~ /_LAST\z/)) {
push @hnames, $name;
if($wherefrom{$name}) {
print STDERR "double: $name\n";
}
$wherefrom{$name}="$file:$line";
}
}
}
close(H);
}
sub scanmanpage {
my ($file)=@_;
open H, "<$file";
my $line = 0;
while(<H>) {
$line++;
if($_ =~ /^\.IP \"(CURL(E|UE|SHE|HE|M)_[A-Z0-9_]*)/) {
my ($name)=($1);
push @mnames, $name;
$manfrom{$name}="$file:$line";
}
}
close(H);
}
opendir(my $dh, $curlh) || die "Can't opendir $curlh: $!";
my @hfiles = grep { /\.h$/ } readdir($dh);
closedir $dh;
for(sort @hfiles) {
scanheader("$curlh/$_");
}
scanmanpage($manpge);
print "Result\n";
for my $h (sort @hnames) {
if(!$manfrom{$h}) {
printf "$h from %s, not in man page\n", $wherefrom{$h};
}
}
for my $m (sort @mnames) {
if(!$wherefrom{$m}) {
printf "$m from %s, not in any header\n", $manfrom{$m};
}
}