t/cpp_comments_in_spamc.t

#!/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);