2 # This may appear arbitrary, but DO NOT CHANGE IT.
3 # Debhelper is supposed to consist of small, simple, easy to understand
4 # programs. Programs growing in size and complexity without bounds is a
8 # exclude dh_python since it's deprecated
9 my @progs=grep { -x $_ && !/dh_python/ } glob("dh_*");
11 plan(tests => (@progs + @progs));
13 foreach my $file (@progs) {
17 open(IN, $file) || die "open: $!";
21 $cutting=0 if /^=cut/;
22 next if $cutting || /^(=|\s*\#)/;
24 $maxlength=length($_) if length($_) > $maxlength;
27 print "# $file has $lines lines, max length is $maxlength\n";
28 ok($lines < 200, $file);
29 ok($maxlength < 160, $file);