Dmitry V. Levin | 4e4b5ad | 2011-02-27 00:28:50 +0000 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |
| 3 | ME_="${0##*/}" |
| 4 | |
| 5 | warn_() { printf >&2 '%s\n' "$*"; } |
| 6 | fail_() { warn_ "$ME_: failed test: $*"; exit 1; } |
| 7 | skip_() { warn_ "$ME_: skipped test: $*"; exit 77; } |
| 8 | framework_failure_() { warn_ "$ME_: framework failure: $*"; exit 99; } |
Mike Frysinger | e689e04 | 2011-02-28 19:57:24 -0500 | [diff] [blame] | 9 | framework_skip_() { warn_ "$ME_: framework skip: $*"; exit 77; } |
Dmitry V. Levin | 4e4b5ad | 2011-02-27 00:28:50 +0000 | [diff] [blame] | 10 | |
| 11 | check_prog() |
| 12 | { |
Maxin B. John | 066a733 | 2013-03-18 11:35:06 +0100 | [diff] [blame] | 13 | type "$@" > /dev/null 2>&1 || |
Mike Frysinger | e689e04 | 2011-02-28 19:57:24 -0500 | [diff] [blame] | 14 | framework_skip_ "$* is not available" |
Dmitry V. Levin | 4e4b5ad | 2011-02-27 00:28:50 +0000 | [diff] [blame] | 15 | } |
| 16 | |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 17 | dump_log_and_fail_with() |
| 18 | { |
| 19 | cat < "$LOG" |
| 20 | fail_ "$*" |
| 21 | } |
| 22 | |
| 23 | run_prog() |
| 24 | { |
| 25 | if [ $# -eq 0 ]; then |
| 26 | set -- "./${ME_%.test}" |
| 27 | fi |
| 28 | args="$*" |
| 29 | "$@" || { |
| 30 | if [ $? -eq 77 ]; then |
| 31 | skip_ "$args exited with code 77" |
| 32 | else |
| 33 | fail_ "$args failed" |
| 34 | fi |
| 35 | } |
| 36 | } |
| 37 | |
| 38 | |
| 39 | run_prog_skip_if_failed() |
| 40 | { |
| 41 | args="$*" |
| 42 | "$@" || framework_skip_ "$args failed" |
| 43 | } |
| 44 | |
| 45 | run_strace() |
| 46 | { |
| 47 | > "$LOG" || fail_ "failed to write $LOG" |
| 48 | args="$*" |
| 49 | $STRACE -o "$LOG" "$@" || |
| 50 | dump_log_and_fail_with "$STRACE $args failed" |
| 51 | } |
| 52 | |
| 53 | run_strace_merge() |
| 54 | { |
| 55 | rm -f -- "$LOG".[0-9]* |
| 56 | run_strace -ff -tt "$@" |
| 57 | "$srcdir"/../strace-log-merge "$LOG" > "$LOG" || |
| 58 | dump_log_and_fail_with 'strace-log-merge failed' |
| 59 | rm -f -- "$LOG".[0-9]* |
| 60 | } |
| 61 | |
Dmitry V. Levin | 79c5c5d | 2015-04-06 23:40:13 +0000 | [diff] [blame] | 62 | check_gawk() |
| 63 | { |
| 64 | check_prog gawk |
| 65 | check_prog grep |
| 66 | |
| 67 | local program="$1"; shift |
| 68 | if grep '^@include[[:space:]]' < "$program" > /dev/null; then |
| 69 | gawk '@include "/dev/null"' < /dev/null || |
| 70 | framework_skip_ 'gawk does not support @include' |
| 71 | fi |
| 72 | } |
| 73 | |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 74 | # Usage: [FILE_TO_CHECK [AWK_PROGRAM [ERROR_MESSAGE [EXTRA_AWK_OPTIONS...]]]] |
| 75 | # Check whether all patterns listed in AWK_PROGRAM |
| 76 | # match FILE_TO_CHECK using egrep. |
| 77 | # If at least one of these patterns does not match, |
| 78 | # dump both files and fail with ERROR_MESSAGE. |
| 79 | match_awk() |
| 80 | { |
Dmitry V. Levin | 226bf1c | 2015-03-18 19:14:02 +0000 | [diff] [blame] | 81 | local output program error |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 82 | if [ $# -eq 0 ]; then |
| 83 | output="$LOG" |
| 84 | else |
| 85 | output="$1"; shift |
| 86 | fi |
| 87 | if [ $# -eq 0 ]; then |
| 88 | program="$srcdir/${ME_%.test}.awk" |
| 89 | else |
| 90 | program="$1"; shift |
| 91 | fi |
| 92 | if [ $# -eq 0 ]; then |
| 93 | error="$STRACE $args output mismatch" |
| 94 | else |
| 95 | error="$1"; shift |
| 96 | fi |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 97 | |
Dmitry V. Levin | 79c5c5d | 2015-04-06 23:40:13 +0000 | [diff] [blame] | 98 | check_gawk "$program" |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 99 | |
Dmitry V. Levin | 226bf1c | 2015-03-18 19:14:02 +0000 | [diff] [blame] | 100 | AWKPATH="$srcdir" gawk -f "$program" "$@" < "$output" || { |
Dmitry V. Levin | 8f54664 | 2015-03-17 17:07:57 +0000 | [diff] [blame] | 101 | cat < "$output" |
| 102 | fail_ "$error" |
| 103 | } |
| 104 | } |
| 105 | |
| 106 | # Usage: [FILE_TO_CHECK [FILE_TO_COMPATE_WITH [ERROR_MESSAGE]]] |
| 107 | # Check whether FILE_TO_CHECK differs from FILE_TO_COMPATE_WITH. |
| 108 | # If it does, dump the difference and fail with ERROR_MESSAGE. |
| 109 | match_diff() |
| 110 | { |
| 111 | local output expected error |
| 112 | if [ $# -eq 0 ]; then |
| 113 | output="$LOG" |
| 114 | else |
| 115 | output="$1"; shift |
| 116 | fi |
| 117 | if [ $# -eq 0 ]; then |
| 118 | expected="$srcdir/${ME_%.test}.expected" |
| 119 | else |
| 120 | expected="$1"; shift |
| 121 | fi |
| 122 | if [ $# -eq 0 ]; then |
| 123 | error="$STRACE $args output mismatch" |
| 124 | else |
| 125 | error="$1"; shift |
| 126 | fi |
| 127 | |
| 128 | check_prog diff |
| 129 | |
| 130 | diff -- "$expected" "$output" || |
| 131 | fail_ "$error" |
| 132 | } |
| 133 | |
| 134 | # Usage: [FILE_TO_CHECK [FILE_WITH_PATTERNS [ERROR_MESSAGE]]] |
| 135 | # Check whether all patterns listed in FILE_WITH_PATTERNS |
| 136 | # match FILE_TO_CHECK using egrep. |
| 137 | # If at least one of these patterns does not match, |
| 138 | # dump both files and fail with ERROR_MESSAGE. |
| 139 | match_grep() |
| 140 | { |
| 141 | local output patterns error expected matched |
| 142 | if [ $# -eq 0 ]; then |
| 143 | output="$LOG" |
| 144 | else |
| 145 | output="$1"; shift |
| 146 | fi |
| 147 | if [ $# -eq 0 ]; then |
| 148 | patterns="$srcdir/${ME_%.test}.expected" |
| 149 | else |
| 150 | patterns="$1"; shift |
| 151 | fi |
| 152 | if [ $# -eq 0 ]; then |
| 153 | error="$STRACE $args output mismatch" |
| 154 | else |
| 155 | error="$1"; shift |
| 156 | fi |
| 157 | |
| 158 | check_prog wc |
| 159 | check_prog grep |
| 160 | |
| 161 | expected=$(wc -l < "$patterns") && |
| 162 | matched=$(LC_ALL=C grep -c -E -x -f "$patterns" < "$output") && |
| 163 | test "$expected" -eq "$matched" || { |
| 164 | echo 'Patterns of expected output:' |
| 165 | cat < "$patterns" |
| 166 | echo 'Actual output:' |
| 167 | cat < "$output" |
| 168 | fail_ "$error" |
| 169 | } |
| 170 | } |
| 171 | |
Dmitry V. Levin | 3ec5c04 | 2014-09-23 01:51:05 +0000 | [diff] [blame] | 172 | check_prog cat |
| 173 | check_prog rm |
| 174 | |
| 175 | LOG="$ME_.tmp" |
| 176 | rm -f "$LOG" |
| 177 | |
Dmitry V. Levin | f60347d | 2013-06-18 15:28:47 +0000 | [diff] [blame] | 178 | : "${STRACE:=../strace}" |
| 179 | : "${TIMEOUT_DURATION:=60}" |
Dmitry V. Levin | 1e0a280 | 2013-06-18 20:51:49 +0000 | [diff] [blame] | 180 | : "${SLEEP_A_BIT:=sleep 1}" |