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
|
#! /usr/bin/perl
require 5.005;
use warnings;
use strict;
use vars qw(@tests);
my $harness;
BEGIN {
my $xmlfile = 'globus-proxy-ssl-test.xml';
eval "use TAP::Harness::JUnit";
if ($@)
{
eval "use TAP::Harness;";
if ($@)
{
die "Unable to find JUnit TAP formatter";
}
else
{
$harness = TAP::Harness->new( {
formatter_class => 'TAP::Formatter::JUnit',
merge => 1
} );
}
open(STDOUT, ">$xmlfile");
}
else
{
$harness = TAP::Harness::JUnit->new({
xmlfile => $xmlfile,
merge => 1});
}
$ENV{PATH} = ".:" . $ENV{PATH};
}
@tests = qw(test_pci.pl);
$harness->runtests(@tests);
|
