summaryrefslogtreecommitdiffstats
path: root/t/size.t
diff options
context:
space:
mode:
Diffstat (limited to 't/size.t')
-rwxr-xr-xt/size.t6
1 files changed, 3 insertions, 3 deletions
diff --git a/t/size.t b/t/size.t
index 0e55f5b..aaeee76 100755
--- a/t/size.t
+++ b/t/size.t
@@ -21,12 +21,12 @@ foreach my $file (@progs) {
while (<$fd>) {
$cutting=1 if /^=/;
$cutting=0 if /^=cut/;
- next if $cutting || /^(?:=|\s*(?:\#.*|[}]\s*)?$)/;
+ next if $cutting || /^(?:=|\s*(?:\#.*|[{}]\s*)?$)/;
$lines++;
$maxlength=length($_) if length($_) > $maxlength;
}
close($fd);
print "# $file has $lines lines, max length is $maxlength\n";
- ok($lines < 200, $file);
- ok($maxlength < 160, $file);
+ ok($lines < 200, $file) or diag("lines: ${lines}");
+ ok($maxlength < 160, $file) or diag("maxlength: ${maxlength}");
}