File: 90cppcomments.t

package info (click to toggle)
libdbd-sqlite2-perl 2%3A0.33-8
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 1,632 kB
  • ctags: 2,313
  • sloc: ansic: 27,879; perl: 1,705; makefile: 52
file content (23 lines) | stat: -rw-r--r-- 506 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use Test;
use DBI;
use Fatal qw(open);
my @c_files = <*.c>, <*.xs>;
plan tests => scalar(@c_files);

FILE:
foreach my $file (@c_files) {
    open(F, $file);
    my $line = 0;
    while (<F>) {
        $line++;
        if (/^(.*)\/\//) {
            my $m = $1;
            if ($m !~ /\*/) { # skip the // in c++ comment in parse.c
                ok(0, 1, "C++ comment in $file line $line");
                next FILE;
            }
        }
    }
    ok(1,1,"$file has no C++ comments");
    close(F);
}