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
|
#!perl
use strict;
use warnings;
use Test::More;
require_ok('Test::Compile::Internal');
my $test = new_ok('Test::Compile::Internal');
# Run some of the basic meithods, with basic test conditions
# ..mostly just to ensure they get executed
my $result;
$result = $test->all_pl_files_ok('t/scripts/messWithLib.pl');
$test->ok($result, "all_pl_files_ok returns true value");
$result = $test->all_pm_files_ok('lib/');
$test->ok($result, "all_pm_files_ok returns true value");
$result = $test->all_files_ok();
$test->ok($result, "all_files_ok returns true value");
# Fin...
$test->done_testing();
|
