7 chdir "$Bin/.." or die;
8 @files = ( "doc/protocol.txt" );
11 use Test::More tests => scalar(@files);
13 foreach my $f (@files) {
14 open(my $fh, $f) or die("Can't open $f");
20 push(@long_lines, $line_number);
24 ok(@long_lines == 0, "$f has a long lines: @long_lines");