1#! /usr/bin/env perl
2# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
3#
4# Licensed under the OpenSSL license (the "License"). You may not use
5# this file except in compliance with the License. You can obtain a copy
6# in the file LICENSE in the source distribution or at
7# https://www.openssl.org/source/license.html
8
9use strict;
10use warnings;
11
12# Recognise VERBOSE and V which is common on other projects.
13BEGIN {
14 $ENV{HARNESS_VERBOSE} = "yes" if $ENV{VERBOSE} || $ENV{V};
15}
16
17use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
18use File::Basename;
| 1#! /usr/bin/env perl
2# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
3#
4# Licensed under the OpenSSL license (the "License"). You may not use
5# this file except in compliance with the License. You can obtain a copy
6# in the file LICENSE in the source distribution or at
7# https://www.openssl.org/source/license.html
8
9use strict;
10use warnings;
11
12# Recognise VERBOSE and V which is common on other projects.
13BEGIN {
14 $ENV{HARNESS_VERBOSE} = "yes" if $ENV{VERBOSE} || $ENV{V};
15}
16
17use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
18use File::Basename;
|
19use FindBin;
20use lib "$FindBin::Bin/../util/perl";
21use OpenSSL::Glob;
| 19use if $^O ne "VMS", 'File::Glob' => qw/glob/;
|
22use Module::Load::Conditional qw(can_load);
23
24my $TAP_Harness = can_load(modules => { 'TAP::Harness' => undef })
25 ? 'TAP::Harness' : 'OpenSSL::TAP::Harness';
26
27my $srctop = $ENV{SRCTOP} || $ENV{TOP};
28my $bldtop = $ENV{BLDTOP} || $ENV{TOP};
29my $recipesdir = catdir($srctop, "test", "recipes");
| 20use Module::Load::Conditional qw(can_load);
21
22my $TAP_Harness = can_load(modules => { 'TAP::Harness' => undef })
23 ? 'TAP::Harness' : 'OpenSSL::TAP::Harness';
24
25my $srctop = $ENV{SRCTOP} || $ENV{TOP};
26my $bldtop = $ENV{BLDTOP} || $ENV{TOP};
27my $recipesdir = catdir($srctop, "test", "recipes");
|
30my $libdir = rel2abs(catdir($srctop, "util", "perl"));
| 28my $testlib = catdir($srctop, "test", "testlib");
29my $utillib = catdir($srctop, "util");
|
31
32my %tapargs =
33 ( verbosity => $ENV{VERBOSE} || $ENV{V} || $ENV{HARNESS_VERBOSE} ? 1 : 0,
| 30
31my %tapargs =
32 ( verbosity => $ENV{VERBOSE} || $ENV{V} || $ENV{HARNESS_VERBOSE} ? 1 : 0,
|
34 lib => [ $libdir ],
| 33 lib => [ $testlib, $utillib ],
|
35 switches => '-w',
36 merge => 1
37 );
38
39my @tests = ( "alltests" );
40if (@ARGV) {
41 @tests = @ARGV;
42}
--- 71 unchanged lines hidden --- | 34 switches => '-w',
35 merge => 1
36 );
37
38my @tests = ( "alltests" );
39if (@ARGV) {
40 @tests = @ARGV;
41}
--- 71 unchanged lines hidden --- |