Updated French man page translation. Closes: #685560

[debhelper.git] / t / size

diff --git a/t/size b/t/size
index ce613f8e87a0640e1d2a02cb43d5c137a74d3496..fb915544f6e2e5a3579bc18db8f1856a472e4047 100755 (executable)
--- a/t/size
+++ b/t/size
@@ -3,13 +3,15 @@
 # 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;
+use Test::More;
 
-my @progs=grep { -x $_ } glob("dh_*");
+# 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: $!";
@@ -23,6 +25,6 @@ foreach my $file (@progs) {
        }
        close IN;
        print "# $file has $lines lines, max length is $maxlength\n";
-       ok($lines < 150);
-       ok($maxlength < 160);
+       ok($lines < 200, $file);
+       ok($maxlength < 160, $file);
 }