Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |
Manuel Pégourié-Gonnard | 222bc85 | 2022-12-29 13:47:25 +0100 | [diff] [blame] | 3 | # This script runs tests before and after a PR and analyzes the results in |
| 4 | # order to highlight any difference in the set of tests skipped. |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 5 | # |
Manuel Pégourié-Gonnard | 222bc85 | 2022-12-29 13:47:25 +0100 | [diff] [blame] | 6 | # It can be used to check the first testing criterion mentioned in strategy.md, |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 7 | # end of section "Supporting builds with drivers without the software |
Manuel Pégourié-Gonnard | 222bc85 | 2022-12-29 13:47:25 +0100 | [diff] [blame] | 8 | # implementation", namely: the sets of tests skipped in the default config and |
| 9 | # the full config must be the same before and after the PR. |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 10 | # |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 11 | # USAGE: |
| 12 | # - First, commit any uncommited changes. (Also, see warning below.) |
Manuel Pégourié-Gonnard | 5a2e026 | 2023-01-23 12:51:52 +0100 | [diff] [blame] | 13 | # - Then launch --> [SKIP_SSL_OPT=1] docs/architecture/psa-migration/outcome-analysis.sh |
| 14 | # - SKIP_SSL_OPT=1 can optionally be set to skip ssl-opt.sh tests |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 15 | # |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 16 | # WARNING: this script checks out a commit other than the head of the current |
Manuel Pégourié-Gonnard | 68429fc | 2022-07-27 20:37:12 +0200 | [diff] [blame] | 17 | # branch; it checks out the current branch again when running successfully, |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 18 | # but while the script is running, or if it terminates early in error, you |
Manuel Pégourié-Gonnard | 68429fc | 2022-07-27 20:37:12 +0200 | [diff] [blame] | 19 | # should be aware that you might be at a different commit than expected. |
Manuel Pégourié-Gonnard | fca4dc6 | 2022-07-26 10:10:07 +0200 | [diff] [blame] | 20 | # |
Manuel Pégourié-Gonnard | 222bc85 | 2022-12-29 13:47:25 +0100 | [diff] [blame] | 21 | # NOTE: you can comment out parts that don't need to be re-done when |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 22 | # re-running this script (for example "get numbers before this PR"). |
| 23 | |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 24 | set -eu |
| 25 | |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 26 | : ${SKIP_SSL_OPT:=0} |
| 27 | |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 28 | cleanup() { |
| 29 | make clean |
| 30 | git checkout -- include/mbedtls/mbedtls_config.h include/psa/crypto_config.h |
| 31 | } |
| 32 | |
| 33 | record() { |
| 34 | export MBEDTLS_TEST_OUTCOME_FILE="$PWD/outcome-$1.csv" |
| 35 | rm -f $MBEDTLS_TEST_OUTCOME_FILE |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 36 | |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 37 | make check |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 38 | |
| 39 | if [ $SKIP_SSL_OPT -eq 0 ]; then |
| 40 | make -C programs ssl/ssl_server2 ssl/ssl_client2 \ |
| 41 | test/udp_proxy test/query_compile_time_config |
| 42 | tests/ssl-opt.sh |
| 43 | fi |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 44 | } |
| 45 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 46 | # save current HEAD |
| 47 | HEAD=$(git branch --show-current) |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 48 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 49 | # get the numbers before this PR for default and full |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 50 | cleanup |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 51 | git checkout $(git merge-base HEAD development) |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 52 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 53 | record "before-default" |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 54 | |
| 55 | cleanup |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 56 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 57 | scripts/config.py full |
| 58 | record "before-full" |
| 59 | |
| 60 | # get the numbers now for default and full |
| 61 | cleanup |
| 62 | git checkout $HEAD |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 63 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 64 | record "after-default" |
| 65 | |
| 66 | cleanup |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 67 | |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 68 | scripts/config.py full |
| 69 | record "after-full" |
| 70 | |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 71 | cleanup |
| 72 | |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 73 | # analysis |
| 74 | |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 75 | populate_suites () { |
| 76 | SUITES='' |
| 77 | make generated_files >/dev/null |
| 78 | data_files=$(cd tests/suites && echo *.data) |
| 79 | for data in $data_files; do |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 80 | suite=${data%.data} |
Manuel Pégourié-Gonnard | 222bc85 | 2022-12-29 13:47:25 +0100 | [diff] [blame] | 81 | SUITES="$SUITES $suite" |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 82 | done |
| 83 | make neat |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 84 | |
| 85 | if [ $SKIP_SSL_OPT -eq 0 ]; then |
| 86 | SUITES="$SUITES ssl-opt" |
| 87 | extra_files=$(cd tests/opt-testcases && echo *.sh) |
| 88 | for extra in $extra_files; do |
| 89 | suite=${extra%.sh} |
| 90 | SUITES="$SUITES $suite" |
| 91 | done |
| 92 | fi |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 93 | } |
| 94 | |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 95 | compare_suite () { |
| 96 | ref="outcome-$1.csv" |
| 97 | new="outcome-$2.csv" |
| 98 | suite="$3" |
| 99 | |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 100 | pattern_suite=";$suite;" |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 101 | total=$(grep -c "$pattern_suite" "$ref") |
| 102 | sed_cmd="s/^.*$pattern_suite\(.*\);SKIP.*/\1/p" |
| 103 | sed -n "$sed_cmd" "$ref" > skipped-ref |
| 104 | sed -n "$sed_cmd" "$new" > skipped-new |
| 105 | nb_ref=$(wc -l <skipped-ref) |
| 106 | nb_new=$(wc -l <skipped-new) |
| 107 | |
Manuel Pégourié-Gonnard | 6bbeba6 | 2022-12-29 14:02:05 +0100 | [diff] [blame] | 108 | name=${suite#test_suite_} |
| 109 | printf "%40s: total %4d; skipped %4d -> %4d\n" \ |
| 110 | $name $total $nb_ref $nb_new |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 111 | if diff skipped-ref skipped-new | grep '^> '; then |
| 112 | ret=1 |
| 113 | else |
| 114 | ret=0 |
| 115 | fi |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 116 | rm skipped-ref skipped-new |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 117 | return $ret |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 118 | } |
| 119 | |
| 120 | compare_builds () { |
| 121 | printf "\n*** Comparing $1 -> $2 ***\n" |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 122 | failed='' |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 123 | for suite in $SUITES; do |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 124 | if compare_suite "$1" "$2" "$suite"; then :; else |
| 125 | failed="$failed $suite" |
| 126 | fi |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 127 | done |
Manuel Pégourié-Gonnard | b51051f | 2022-10-18 09:42:30 +0200 | [diff] [blame] | 128 | if [ -z "$failed" ]; then |
| 129 | printf "No coverage gap found.\n" |
| 130 | else |
| 131 | printf "Suites with less coverage:%s\n" "$failed" |
| 132 | fi |
Manuel Pégourié-Gonnard | fb2ed58 | 2022-07-21 11:04:52 +0200 | [diff] [blame] | 133 | } |
| 134 | |
Manuel Pégourié-Gonnard | 2bb2f15 | 2022-10-12 10:57:31 +0200 | [diff] [blame] | 135 | populate_suites |
Przemek Stekiel | 9398664 | 2022-11-09 15:06:44 +0100 | [diff] [blame] | 136 | compare_builds before-default after-default |
| 137 | compare_builds before-full after-full |