e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. Reviewed-by: Richard Levitte <levitte@openssl.org>
59 lines
1.8 KiB
Perl
59 lines
1.8 KiB
Perl
#! /usr/bin/env perl
|
|
# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
|
|
use File::Basename;
|
|
use Test::Harness qw/runtests $switches/;
|
|
|
|
my $srctop = $ENV{SRCTOP} || $ENV{TOP};
|
|
my $bldtop = $ENV{BLDTOP} || $ENV{TOP};
|
|
my $recipesdir = catdir($srctop, "test", "recipes");
|
|
my $testlib = catdir($srctop, "test", "testlib");
|
|
my $utillib = catdir($srctop, "util");
|
|
|
|
# It seems that $switches is getting interpreted with 'eval' or something
|
|
# like that, and that we need to take care of backslashes or they will
|
|
# disappear along the way.
|
|
$testlib =~ s|\\|\\\\|g if $^O eq "MSWin32";
|
|
$utillib =~ s|\\|\\\\|g if $^O eq "MSWin32";
|
|
|
|
# Test::Harness provides the variable $switches to give it
|
|
# switches to be used when it calls our recipes.
|
|
$switches = "-w \"-I$testlib\" \"-I$utillib\"";
|
|
|
|
my @tests = ( "alltests" );
|
|
if (@ARGV) {
|
|
@tests = @ARGV;
|
|
}
|
|
my $list_mode = scalar(grep /^list$/, @tests) != 0;
|
|
if (grep /^alltests|list$/, @tests) {
|
|
@tests = grep {
|
|
basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/
|
|
} glob(catfile($recipesdir,"*.t"));
|
|
} else {
|
|
my @t = ();
|
|
foreach (@tests) {
|
|
push @t, grep {
|
|
basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/
|
|
} glob(catfile($recipesdir,"*-$_.t"));
|
|
}
|
|
@tests = @t;
|
|
}
|
|
|
|
if ($list_mode) {
|
|
@tests = map { $_ = basename($_); $_ =~ s/^[0-9][0-9]-//; $_ =~ s/\.t$//;
|
|
$_ } @tests;
|
|
print join("\n", @tests), "\n";
|
|
} else {
|
|
@tests = map { abs2rel($_, rel2abs(curdir())); } @tests;
|
|
|
|
runtests(sort @tests);
|
|
}
|