blob: 7cb41b55cdbfda7dcec5fad8bc9309b30449ee22 [file] [log] [blame]
fbrosson533407a2018-04-04 21:44:29 +00001#!/usr/bin/env perl
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +02002
3# depends-hashes.pl
4#
5# Copyright (c) 2017, ARM Limited, All Rights Reserved
6#
7# Purpose
8#
9# To test the code dependencies on individual hashes in each test suite. This
10# is a verification step to ensure we don't ship test suites that do not work
11# for some build options.
12#
13# The process is:
14# for each possible hash
15# build the library and test suites with the hash disabled
16# execute the test suites
17#
18# And any test suite with the wrong dependencies will fail.
19#
20# Usage: tests/scripts/depends-hashes.pl
21#
22# This script should be executed from the root of the project directory.
Manuel Pégourié-Gonnard9ba9dfb2017-06-06 11:51:34 +020023#
24# For best effect, run either with cmake disabled, or cmake enabled in a mode
25# that includes -Werror.
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020026
27use warnings;
28use strict;
29
30-d 'library' && -d 'include' && -d 'tests' or die "Must be run from root\n";
31
32my $config_h = 'include/mbedtls/config.h';
33
34# as many SSL options depend on specific hashes,
35# and SSL is not in the test suites anyways,
36# disable it to avoid dependcies issues
37my $ssl_sed_cmd = 's/^#define \(MBEDTLS_SSL.*\)/\1/p';
38my @ssl = split( /\s+/, `sed -n -e '$ssl_sed_cmd' $config_h` );
39
Manuel Pégourié-Gonnard7766a2c2017-08-21 10:57:57 +020040# for md we want to catch MD5_C but not MD_C, hence the extra dot
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020041my $mdx_sed_cmd = 's/^#define \(MBEDTLS_MD..*_C\)/\1/p';
42my $sha_sed_cmd = 's/^#define \(MBEDTLS_SHA.*_C\)/\1/p';
43my @hashes = split( /\s+/,
44 `sed -n -e '$mdx_sed_cmd' -e '$sha_sed_cmd' $config_h` );
45system( "cp $config_h $config_h.bak" ) and die;
46sub abort {
47 system( "mv $config_h.bak $config_h" ) and warn "$config_h not restored\n";
Manuel Pégourié-Gonnard254eec82017-10-26 09:47:36 +020048 # use an exit code between 1 and 124 for git bisect (die returns 255)
Manuel Pégourié-Gonnarda7c4c8a2017-07-12 12:15:24 +020049 warn $_[0];
50 exit 1;
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020051}
52
53for my $hash (@hashes) {
54 system( "cp $config_h.bak $config_h" ) and die "$config_h not restored\n";
55 system( "make clean" ) and die;
56
57 print "\n******************************************\n";
58 print "* Testing without hash: $hash\n";
59 print "******************************************\n";
Gilles Peskine9004a172019-09-16 15:20:36 +020060 $ENV{MBEDTLS_TEST_CONFIGURATION} = "-$hash";
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020061
Gilles Peskine5d46f6a2019-07-27 23:52:53 +020062 system( "scripts/config.py unset $hash" )
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020063 and abort "Failed to disable $hash\n";
64
65 for my $opt (@ssl) {
Gilles Peskine5d46f6a2019-07-27 23:52:53 +020066 system( "scripts/config.py unset $opt" )
Manuel Pégourié-Gonnard42a4d302017-06-06 10:54:01 +020067 and abort "Failed to disable $opt\n";
68 }
69
70 system( "CFLAGS='-Werror -Wall -Wextra' make lib" )
71 and abort "Failed to build lib: $hash\n";
72 system( "cd tests && make" ) and abort "Failed to build tests: $hash\n";
73 system( "make test" ) and abort "Failed test suite: $hash\n";
74}
75
76system( "mv $config_h.bak $config_h" ) and die "$config_h not restored\n";
77system( "make clean" ) and die;
78exit 0;