File: kwalitee.t

package info (click to toggle)
libmodule-starter-plugin-cgiapp-perl 0.44-2
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 520 kB
  • sloc: perl: 1,119; makefile: 6
file content (31 lines) | stat: -rw-r--r-- 470 bytes parent folder | download | duplicates (4) 
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
26
27
28
29
30
31
 
#!/usr/bin/perl

# Check distribution for Kwalitee
use Test::More;
use strict;
BEGIN {
	$|  = 1;
	$^W = 1;
}

my @MODULES = (
	'Test::Kwalitee tests => [ qw( -has_test_pod -has_test_pod_coverage ) ]',
);


# Load the testing modules
foreach my $MODULE ( @MODULES ) {
	eval "use $MODULE";
	if ( $@ ) {
		plan( skip_all => "$MODULE not available for testing" );
	}
}

END {
    if ( -f 'Debian_CPANTS.txt') {
        unlink 'Debian_CPANTS.txt' or die "$!\n";
    }
}

1;