diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/data/Makefile.inc | 2 | ||||
| -rw-r--r-- | tests/data/test1175 | 25 | ||||
| -rw-r--r-- | tests/error-codes.pl | 80 |
3 files changed, 106 insertions, 1 deletions
diff --git a/tests/data/Makefile.inc b/tests/data/Makefile.inc index 212900ee5..23215655b 100644 --- a/tests/data/Makefile.inc +++ b/tests/data/Makefile.inc @@ -133,7 +133,7 @@ test1136 test1137 test1138 test1139 test1140 test1141 test1142 test1143 \ test1144 test1145 test1146 test1147 test1148 test1149 test1150 test1151 \ test1152 test1153 test1154 test1155 test1156 test1157 test1158 test1159 \ test1160 test1161 test1162 test1163 test1164 test1165 test1166 \ -test1170 test1171 test1172 test1173 test1174 \ +test1170 test1171 test1172 test1173 test1174 test1175 \ \ test1200 test1201 test1202 test1203 test1204 test1205 test1206 test1207 \ test1208 test1209 test1210 test1211 test1212 test1213 test1214 test1215 \ diff --git a/tests/data/test1175 b/tests/data/test1175 new file mode 100644 index 000000000..61f068915 --- /dev/null +++ b/tests/data/test1175 @@ -0,0 +1,25 @@ +<testcase> +<info> +<keywords> +source analysis +symbols-in-versions +</keywords> +</info> + +# +# Client-side +<client> +<server> +none +</server> + + <name> +Verify that symbols-in-versions and libcurl-errors.3 are in sync + </name> + +<command type="perl"> +%SRCDIR/error-codes.pl %SRCDIR +</command> +</client> + +</testcase> diff --git a/tests/error-codes.pl b/tests/error-codes.pl new file mode 100644 index 000000000..0d555f667 --- /dev/null +++ b/tests/error-codes.pl @@ -0,0 +1,80 @@ +#!/usr/bin/env perl +#*************************************************************************** +# _ _ ____ _ +# Project ___| | | | _ \| | +# / __| | | | |_) | | +# | (__| |_| | _ <| |___ +# \___|\___/|_| \_\_____| +# +# Copyright (C) 2010-2019, 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.haxx.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. +# +########################################################################### +# +# + +use strict; +use warnings; + +# we may get the dir root pointed out +my $root=$ARGV[0] || "."; + +my %error; # from the include file +my %docs; # from libcurl-errors.3 + +sub getdocserrors { + open(F, "<$root/docs/libcurl/libcurl-errors.3"); + while(<F>) { + if($_ =~ /^.IP \"(CURL[EM]_[^ \t\"]*)/) { + my ($symbol) = ($1); + if($symbol =~ /OBSOLETE/) { + ; + } + else { + $docs{$symbol}=1; + } + } + } + close(F); +} + +sub getincludeerrors { + open(F, "<$root/docs/libcurl/symbols-in-versions"); + while(<F>) { + if($_ =~ /^(CURL[EM]_[^ \t]*)[ \t]*([0-9.]+)[ \t]*(.*)/) { + my ($symbol, $added, $rest) = ($1,$2,$3); + if($rest =~ /^([0-9.]+)/) { + # removed! + } + else { + $error{$symbol}=$added; + } + } + } + close(F); +} + +getincludeerrors(); +getdocserrors(); + +for(sort keys %error) { + if($error{$_} && !$docs{$_}) { + print "$_ is not in libcurl-errors.3\n"; + } +} + +for(sort keys %docs) { + if($docs{$_} && !$error{$_}) { + print "$_ is not in symbols-in-versions\n"; + } +} |