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
|
package Test::Run::CmdLine::WithTestManifest;
use strict;
use warnings;
use File::Spec;
use Test::Manifest ();
sub run_t_manifest
{
require Test::Run::CmdLine::Iface;
my ($test_verbose, $inst_lib, $inst_archlib, $test_level) = @_;
local @INC = @INC;
unshift @INC, map { File::Spec->rel2abs($_) } ($inst_lib, $inst_archlib);
my $test_iface = Test::Run::CmdLine::Iface->new({
test_files => [Test::Manifest::get_t_files()]
}
);
return $test_iface->run();
}
1;
|
