mirror of
https://github.com/curl/curl.git
synced 2026-04-17 18:51:41 +03:00
d75716e4e5
To make the test files XML-compliant, and the expected results possibly easier to manage by keeping them in `.c` files. Non-XML-compliant files are down to 36 after this patch. Also: - make all macro expansions apply to `%includetext` contents. Closes #19799
39 lines
893 B
Perl
Executable file
39 lines
893 B
Perl
Executable file
#!/usr/bin/env perl
|
|
# Copyright (C) Viktor Szakats
|
|
#
|
|
# SPDX-License-Identifier: curl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename;
|
|
use File::Find;
|
|
use Cwd 'abs_path';
|
|
|
|
my @files;
|
|
if(system('git rev-parse --is-inside-work-tree >/dev/null 2>&1') == 0) {
|
|
@files = `git ls-files '*.[ch]'`;
|
|
}
|
|
else {
|
|
find(sub { if(/\.[ch]$/) { push(@files, $File::Find::name) } }, ('.'));
|
|
}
|
|
if(@ARGV) {
|
|
find(sub { if(/\.[ch]$/) { push(@files, $File::Find::name) } }, @ARGV);
|
|
}
|
|
|
|
@files = grep !/\/CMakeFiles\//, @files;
|
|
@files = grep !/tests\/data\/data.+\.c/, @files;
|
|
@files = map { dirname($_) } @files;
|
|
my @dirs = sort { $a cmp $b } keys %{{ map { $_ => 1 } @files }};
|
|
|
|
my $scripts_dir = dirname(abs_path($0));
|
|
my $anyfailed = 0;
|
|
|
|
for my $dir (@dirs) {
|
|
@files = glob("$dir/*.[ch]");
|
|
if(@files && system("$scripts_dir/checksrc.pl", @files) != 0) {
|
|
$anyfailed = 1;
|
|
}
|
|
}
|
|
|
|
exit $anyfailed;
|