blob: 702353a1ef96a3b9cc5ae76580f7f7bdb6914494 (
plain)
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
49
50
51
52
53
54
55
56
|
package ExtUtils::Command::MM;
use strict;
require 5.006;
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(test_harness);
$VERSION = '0.01';
=head1 NAME
ExtUtils::Command::MM - Commands for the MM's to use in Makefiles
=head1 SYNOPSIS
perl -MExtUtils::Command::MM -e "function" files...
=head1 DESCRIPTION
B<FOR INTERNAL USE ONLY!> The interface is not stable.
ExtUtils::Command::MM encapsulates code which would otherwise have to
be done with large "one" liners.
They all read their input from @ARGV unless otherwise noted.
Any $(FOO) used in the examples are make variables, not Perl.
=over 4
=item B<test_harness>
perl -MExtUtils::Command::MM -e "test_harness($(TEST_VERBOSE))" t/*.t
Runs the given tests via Test::Harness. Will exit with non-zero if
the test fails.
Typically used with t/*.t files.
=cut
sub test_harness {
require Test::Harness;
$Test::Harness::verbose = shift;
Test::Harness::runtests(@ARGV);
}
=back
=cut
1;
|
