File: uses.t

package info (click to toggle)
libmodule-cpants-analyse-perl 1.02-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 312 kB
  • sloc: perl: 2,192; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 495 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Module::CPANTS::TestAnalyse;

for my $vstr (qw/v5.14 5.012/) {
  test_distribution {
    my ($mca, $dir) = @_;

    my $content = join "\n",
      'package '.'Module::CPANTS::Analyse::Test;',
      "use $vstr;",
      '1;',
    ;

    write_pmfile("$dir/lib/Module/CPANTS/Analyse/Test.pm", $content);

    my $stash = $mca->run;
    is $stash->{kwalitee}{use_strict} => 1;
    note explain $stash;
  };
}

done_testing;