luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test1119: adapt for .md input

Browse Source 
Replace logic dealing with `.3` files to handle the Markdown syntax.

Follow-up to eefcc1bda4 #12730
Cherry-picked from #14097
Closes #14125
This commit is contained in:
Viktor Szakats 2024-07-07 03:15:56 +02:00
parent efc2c5184d
commit 67cc1e3400
No known key found for this signature in database
GPG Key ID: B5ABD165E2AEF201
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test1119.pl
View File

@ -109,7 +109,7 @@ sub checkmanpage {
my $line = 1; my $line = 1;
while(<$mh>) { while(<$mh>) {
# strip off formatting # strip off formatting
$_ =~ s/\\f[BPRI]//; $_ =~ s/(^|[^A-Z0-9])[*_]+/ /;
# detect global-looking 'CURL[BLABLA]_*' symbols # detect global-looking 'CURL[BLABLA]_*' symbols
while(s/\W(CURL(AUTH|E|H|MOPT|OPT|SHOPT|UE|M|SSH|SSLBACKEND|HEADER|FORM|FTP|PIPE|MIMEOPT|GSSAPI|ALTSVC|PROTO|PROXY|UPART|USESSL|_READFUNC|_WRITEFUNC|_CSELECT|_FORMADD|_IPRESOLVE|_REDIR|_RTSPREQ|_TIMECOND|_VERSION)_[a-zA-Z0-9_]+)//) { while(s/\W(CURL(AUTH|E|H|MOPT|OPT|SHOPT|UE|M|SSH|SSLBACKEND|HEADER|FORM|FTP|PIPE|MIMEOPT|GSSAPI|ALTSVC|PROTO|PROXY|UPART|USESSL|_READFUNC|_WRITEFUNC|_CSELECT|_FORMADD|_IPRESOLVE|_REDIR|_RTSPREQ|_TIMECOND|_VERSION)_[a-zA-Z0-9_]+)//) {
my $s = $1; my $s = $1;
@ -123,11 +123,11 @@ sub checkmanpage {
close($mh); close($mh);
} }
sub scanman3dir { sub scanman_md_dir {
my ($d) = @_; my ($d) = @_;
opendir(my $dh, $d) || opendir(my $dh, $d) ||
die "Can't opendir: $!"; die "Can't opendir: $!";
my @mans = grep { /.3\z/ } readdir($dh); my @mans = grep { /.md\z/ } readdir($dh);
closedir $dh; closedir $dh;
for my $m (@mans) { for my $m (@mans) {
checkmanpage("$d/$m"); checkmanpage("$d/$m");
@ -136,8 +136,8 @@ sub scanman3dir {
scanallheaders(); scanallheaders();
scanman3dir("$root/docs/libcurl"); scanman_md_dir("$root/docs/libcurl");
scanman3dir("$root/docs/libcurl/opts"); scanman_md_dir("$root/docs/libcurl/opts");
open my $s, "<", "$root/docs/libcurl/symbols-in-versions"; open my $s, "<", "$root/docs/libcurl/symbols-in-versions";
while(<$s>) { while(<$s>) {