mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-04-29 07:38:57 +00:00
27 lines
649 B
Perl
Executable File
27 lines
649 B
Perl
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("cpp_comments_in_spamc");
|
|
use Test::More tests => 1;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
# by simply reading the files directly in perl, we avoid all sorts
|
|
# of C-compilation portability issues...
|
|
|
|
my $ok = 1;
|
|
foreach my $f (<../spamc/*.c>, <../spamc/*.h>) {
|
|
open (IN, "<$f");
|
|
my $str = join('', <IN>);
|
|
close IN;
|
|
|
|
$str =~ s{/\*.*?\*/}{}gs; # remove C comments
|
|
$str =~ s{".*?"}{}gs; # quoted strings
|
|
|
|
if ($str =~ m{(.{0,99}//.{0,99})}s) {
|
|
warn "found C-style comment: '$1' in $f";
|
|
$ok = 0;
|
|
}
|
|
}
|
|
|
|
ok ($ok);
|