summaryrefslogtreecommitdiff
path: root/t/size
blob: fb915544f6e2e5a3579bc18db8f1856a472e4047 (plain)
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
#!/usr/bin/perl
# This may appear arbitrary, but DO NOT CHANGE IT.
# Debhelper is supposed to consist of small, simple, easy to understand
# programs. Programs growing in size and complexity without bounds is a
# bug.
use Test::More;

# exclude dh_python since it's deprecated
my @progs=grep { -x $_ && !/dh_python/ } glob("dh_*");

plan(tests => (@progs + @progs));

foreach my $file (@progs) {

	my $lines=0;
	my $maxlength=0;
	open(IN, $file) || die "open: $!";
	my $cutting=0;
	while (<IN>) {
		$cutting=1 if /^=/;
		$cutting=0 if /^=cut/;
		next if $cutting || /^(=|\s*\#)/;
		$lines++;
		$maxlength=length($_) if length($_) > $maxlength;
	}
	close IN;
	print "# $file has $lines lines, max length is $maxlength\n";
	ok($lines < 200, $file);
	ok($maxlength < 160, $file);
}