Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 28 lines (22 sloc) 0.538 kb
52db4f9 added "kwalitee" test script:
Tony Cook authored
1 #!perl -w
2 # this is intended for various kwalitee tests
3 use strict;
4 use Test::More;
5 use ExtUtils::Manifest qw(maniread);
6
7 my $manifest = maniread;
8
9 # work up counts first
10
d75a4e1 add .perl files to the t94kwalitee struct tests and fix the non strict
Tony Cook authored
11 my @pl_files = grep /\.(p[lm]|PL|perl)$/, keys %$manifest;
52db4f9 added "kwalitee" test script:
Tony Cook authored
12
13 plan tests => scalar(@pl_files);
14
15 for my $filename (@pl_files) {
16 open PL, "< $filename"
17 or die "Cannot open $filename: $!";
18 my $found_strict;
19 while (<PL>) {
20 if (/^use strict;/) {
21 ++$found_strict;
22 last;
23 }
24 }
25 close PL;
26 ok($found_strict, "file $filename has use strict");
27 }
Something went wrong with that request. Please try again.