| 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 |