File: coding-standards.t

package info (click to toggle)
ack 3.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,636 kB
  • sloc: perl: 10,139; ansic: 21; fortran: 11; makefile: 5; javascript: 3
file content (58 lines) | stat: -rw-r--r-- 1,533 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!perl

use warnings;
use strict;

use lib 't';
use File::Next;
use Util;

use Test::More;


# Get all the ack component files.
my @files = ( 'ack' );
my $libs = File::Next::files( { descend_filter => sub { !/\Q.git/ }, file_filter => sub { /\.pm$/ } }, 'lib' );
while ( my $file = $libs->() ) {
    push @files, $file;
}
@files == 20 or die 'I should have exactly 20 modules + ack';

# Get all the test files.
for my $spec ( 't/*.t', 'xt/*.t' ) {
    my @these_files = glob( $spec ) or die "Couldn't find any $spec";
    push( @files, @these_files );
}

@files = grep { !/lowercase.t/ } @files; # lowercase.t has hi-bit and it's OK.

plan tests => scalar @files;

for my $file ( @files ) {
    subtest $file => sub {
        plan tests => 3;

        my @lines = read_file( $file );
        my $text = join( '', @lines );

        chomp @lines;
        my $ok = 1;
        my $lineno = 0;
        for my $line ( @lines ) {
            ++$lineno;
            if ( $line =~ /[^ -~]/ ) {
                my $col = $-[0] + 1;
                diag( "$file has hi-bit characters at $lineno:$col" );
                $ok = 0;
            }
            if ( $line =~ /\s+$/ ) {
                diag( "$file has trailing whitespace on line $lineno" );
                $ok = 0;
            }
        }
        ok( $ok, "$file: No hi-bit characters found and no trailing whitespace" );
        ok( $lines[-1] ne '', "$file: Doesn't end with an empty line" );

        is( index($text, "\t"), -1, "$file should have no embedded tabs" );
    }
}