view release on metacpan or  search on metacpan

t/lint.t  view on Meta::CPAN

#!perl
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
use Test::Differences;

use FindBin;

my $bindir   = "$FindBin::Bin/";
my $script   = $bindir . "../script/perlminlint";
my $libdir   = $bindir . "../lib";
my $inputdir = $bindir . "in";

{
  my $test = "$inputdir/1";
  my $fn   = "$test.d/ng.pl";
  my $want = read_file("$test.err");
  my $out = qx($^X $script $fn 2>&1);
  if (defined $out and $?) {
    eq_or_diff_subst($bindir, $out, $want, $fn);
  } else {
    fail $fn;
  }
}

{
  my $test = "$inputdir/2";
  my $fn   = "$test.d/ng.pm";
  my $want = read_file("$test.err");
  my $out = qx($^X $script $fn 2>&1);
  if (defined $out and $?) {
    eq_or_diff_subst($bindir, $out, $want, $fn);
  } else {
    fail $fn;
  }
}

{
  my $test = "$inputdir/3";
  my $fn   = "$test.d/deep/deep/mod.pm";
  my $out  = qx(cd $test.d/deep/deep; $^X $script $fn 2>&1);
  is_deeply [$out, $?], ["Module deep::deep::mod is OK\n", 0], $fn;
}

{
  my $test = "$inputdir/4";
  my $fn   = "$test.d/foo.pl";
  my $want = "$fn syntax OK\n";
  my $out  = qx($^X $script $fn 2>&1 1>/dev/null);
  if (defined $out and not $?) {
    eq_or_diff_subst($bindir, $out, $want, $fn);
  } else {
    fail $fn;
  }
}

{
  my $test = "$inputdir/5";
  my $fn   = "$test.d/foo.pl";
  my $want = read_file("$test.err");
  my $out = qx($^X $script $fn 2>&1);
  if (defined $out and $?) {
    eq_or_diff_subst($bindir, $out, $want, "$fn + .perlminlint.yml no_auto_libdir ");
  } else {
    fail $fn;