romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-12 07:27:17 +03:00
Code Issues Projects Releases Packages Wiki Activity

test1165: improve pattern matching

Browse source 
* Fix excluded digits at the end of the symbols ('CURL_DISABLE_POP3'
  was checked as 'CURL_DISABLE_POP')

Closes #12903
This commit is contained in:
Evgeny Grin 2024-02-08 18:41:55 +01:00 • committed by Daniel Stenberg
parent 922091c05c
commit b08200d31c
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tests/test1165.pl
View file

@ -44,7 +44,7 @@ sub scanconf {
my ($f)=@_;
open S, "<$f";
while(<S>) {
if(/(CURL_DISABLE_[A-Z_]+)/g) {
if(/(CURL_DISABLE_[A-Z0-9_]+)/g) {
my ($sym)=($1);
$disable{$sym} = 1;
}
@ -67,9 +67,9 @@ sub scanconf_cmake {
my ($f)=@_;
open S, "<$f";
while(<S>) {
if(/(CURL_DISABLE_[A-Z_]+)/g) {
if(/(CURL_DISABLE_[A-Z0-9_]+)/g) {
my ($sym)=($1);
if(not $sym =~ /(CURL_DISABLE_INSTALL|CURL_DISABLE_TESTS|CURL_DISABLE_SRP)/) {
if(not $sym =~ /^(CURL_DISABLE_INSTALL|CURL_DISABLE_TESTS|CURL_DISABLE_SRP)$/) {
$disable_cmake{$sym} = 1;
}
}
@ -85,7 +85,7 @@ sub scan_file {
my ($source)=@_;
open F, "<$source";
while(<F>) {
while(s/(CURL_DISABLE_[A-Z_]+)//) {
while(s/(CURL_DISABLE_[A-Z0-9_]+)//) {
my ($sym)=($1);
$file{$sym} = $source;
}
@ -115,7 +115,7 @@ sub scan_docs {
my $line = 0;
while(<F>) {
$line++;
if(/^## `(CURL_DISABLE_[A-Z_]+)/g) {
if(/^## `(CURL_DISABLE_[A-Z0-9_]+)`/g) {
my ($sym)=($1);
$docs{$sym} = $line;
}