mirror of
https://github.com/yuzu-emu/mbedtls
synced 2024-11-25 07:48:52 +00:00
952240985a
Picocoin is no longer actively supported by the library, so the reference configuration used in testing has been removed.
100 lines
2.6 KiB
Perl
Executable file
100 lines
2.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# test-ref-configs.pl
|
|
#
|
|
# This file is part of mbed TLS (https://tls.mbed.org)
|
|
#
|
|
# Copyright (c) 2013-2016, ARM Limited, All Rights Reserved
|
|
#
|
|
# Purpose
|
|
#
|
|
# For each reference configuration file in the configs directory, build the
|
|
# configuration, run the test suites and compat.sh
|
|
#
|
|
# Usage: tests/scripts/test-ref-configs.pl [config-name [...]]
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
my %configs = (
|
|
'config-mini-tls1_1.h' => {
|
|
'compat' => '-m tls1_1 -f \'^DES-CBC3-SHA$\|^TLS-RSA-WITH-3DES-EDE-CBC-SHA$\'',
|
|
},
|
|
'config-suite-b.h' => {
|
|
'compat' => "-m tls1_2 -f 'ECDHE-ECDSA.*AES.*GCM' -p mbedTLS",
|
|
},
|
|
'config-ccm-psk-tls1_2.h' => {
|
|
'compat' => '-m tls1_2 -f \'^TLS-PSK-WITH-AES-...-CCM-8\'',
|
|
},
|
|
'config-thread.h' => {
|
|
'opt' => '-f ECJPAKE.*nolog',
|
|
},
|
|
);
|
|
|
|
# If no config-name is provided, use all known configs.
|
|
# Otherwise, use the provided names only.
|
|
if ($#ARGV >= 0) {
|
|
my %configs_ori = ( %configs );
|
|
%configs = ();
|
|
|
|
foreach my $conf_name (@ARGV) {
|
|
if( ! exists $configs_ori{$conf_name} ) {
|
|
die "Unknown configuration: $conf_name\n";
|
|
} else {
|
|
$configs{$conf_name} = $configs_ori{$conf_name};
|
|
}
|
|
}
|
|
}
|
|
|
|
-d 'library' && -d 'include' && -d 'tests' or die "Must be run from root\n";
|
|
|
|
my $config_h = 'include/mbedtls/config.h';
|
|
|
|
system( "cp $config_h $config_h.bak" ) and die;
|
|
sub abort {
|
|
system( "mv $config_h.bak $config_h" ) and warn "$config_h not restored\n";
|
|
die $_[0];
|
|
}
|
|
|
|
while( my ($conf, $data) = each %configs ) {
|
|
system( "cp $config_h.bak $config_h" ) and die;
|
|
system( "make clean" ) and die;
|
|
|
|
print "\n******************************************\n";
|
|
print "* Testing configuration: $conf\n";
|
|
print "******************************************\n";
|
|
|
|
system( "cp configs/$conf $config_h" )
|
|
and abort "Failed to activate $conf\n";
|
|
|
|
system( "CFLAGS='-Os -Werror -Wall -Wextra' make" ) and abort "Failed to build: $conf\n";
|
|
system( "make test" ) and abort "Failed test suite: $conf\n";
|
|
|
|
my $compat = $data->{'compat'};
|
|
if( $compat )
|
|
{
|
|
print "\nrunning compat.sh $compat\n";
|
|
system( "tests/compat.sh $compat" )
|
|
and abort "Failed compat.sh: $conf\n";
|
|
}
|
|
else
|
|
{
|
|
print "\nskipping compat.sh\n";
|
|
}
|
|
|
|
my $opt = $data->{'opt'};
|
|
if( $opt )
|
|
{
|
|
print "\nrunning ssl-opt.sh $opt\n";
|
|
system( "tests/ssl-opt.sh $opt" )
|
|
and abort "Failed ssl-opt.sh: $conf\n";
|
|
}
|
|
else
|
|
{
|
|
print "\nskipping ssl-opt.sh\n";
|
|
}
|
|
}
|
|
|
|
system( "mv $config_h.bak $config_h" ) and warn "$config_h not restored\n";
|
|
system( "make clean" );
|
|
exit 0;
|