-
Notifications
You must be signed in to change notification settings - Fork 1
/
perl_compile.pl
48 lines (43 loc) · 996 Bytes
/
perl_compile.pl
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/env perl
#===============================================================================
#
# FILE: perl_compile.pl
#
# USAGE: ./perl_compile.pl
#
# DESCRIPTION:
#
# OPTIONS: ---
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: YOUR NAME (),
# ORGANIZATION:
# VERSION: 1.0
# CREATED: 08/29/2018 07:01:10 PM
# REVISION: ---
#===============================================================================
use strict;
use warnings;
use utf8;
use Cwd;
# The OO way (recommended)
use Test::Compile;
use Test::More;
my $test = Test::Compile->new();
my $cwd = getcwd();
my @dirs = ($cwd);
$test->all_files_ok(@dirs);
$test->all_pm_files_ok(@dirs);
my @files = `find $cwd -name "*.pl"`;
my @pms = `find $cwd -name "*.pm"`;
for my $pfile(@pms){
chomp($pfile);
pm_file_compiles($pfile, $pfile);
pm_file_ok($pfile, $pfile);
}
for my $pfile(@files){
chomp($pfile);
pl_file_ok($pfile, $pfile);
}
$test->done_testing();