File: 92-critic.t

package info (click to toggle)
libxml-hash-xs-perl 0.64-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 736 kB
  • sloc: ansic: 5,177; perl: 322; xml: 15; makefile: 9
file content (17 lines) | stat: -rw-r--r-- 383 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# test for recommendations from "Perl Best Practices"

use strict;
use warnings;
use Test::More;

eval { use Test::Perl::Critic };
plan skip_all => 'Test::Perl::Critic required' if $@;

# check only new code
my @dirs = qw( lib );
my @files = glob('t/*.t xt/*.t');

push @files, Perl::Critic::Utils::all_perl_files(@dirs);

plan tests => scalar(@files);
critic_ok($_) foreach @files;