File: WithTestManifest.pm

package info (click to toggle)
libxml-rss-perl 1.33-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 640 kB
  • ctags: 205
  • sloc: perl: 5,976; xml: 245; makefile: 42
file content (26 lines) | stat: -rw-r--r-- 514 bytes parent folder | download 
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
 
package Test::Run::CmdLine::WithTestManifest;

use strict;
use warnings;

use File::Spec;

use Test::Manifest ();

use Test::Run::CmdLine::Iface;

sub run_t_manifest
{
    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;