| 1 | #!/usr/bin/env bash
|
| 2 | #
|
| 3 | # Usage:
|
| 4 | # test/ltrace.sh <function name>
|
| 5 |
|
| 6 | : ${LIB_OSH=stdlib/osh}
|
| 7 | source $LIB_OSH/bash-strict.sh
|
| 8 | source $LIB_OSH/task-five.sh
|
| 9 |
|
| 10 | source test/common.sh # log
|
| 11 |
|
| 12 | BASE_DIR=_tmp/ltrace
|
| 13 |
|
| 14 | test-home-dir() {
|
| 15 |
|
| 16 | mkdir -p $BASE_DIR
|
| 17 |
|
| 18 | # ltrace doesn't work with ASAN, etc.
|
| 19 | local osh=_bin/cxx-dbg/osh
|
| 20 | ninja $osh
|
| 21 |
|
| 22 | local status=0
|
| 23 |
|
| 24 | # zsh calls getpwuid
|
| 25 | # bash on my Ubuntu machine doesn't call it, but seems to in the Debian CI
|
| 26 | # image
|
| 27 | # could test mksh, but it's not in the CI image
|
| 28 | for sh in $osh dash "$@"; do
|
| 29 | local trace
|
| 30 | trace=$BASE_DIR/$(basename $sh).txt
|
| 31 |
|
| 32 | set -x
|
| 33 | ltrace -e getpwuid -- $sh -c 'echo hi' 2> $trace
|
| 34 | set +x
|
| 35 |
|
| 36 | if grep getpwuid $trace; then
|
| 37 | log "ERROR: $sh should not call getpwuid()"
|
| 38 | status=1
|
| 39 | fi
|
| 40 | done
|
| 41 |
|
| 42 | return $status
|
| 43 | }
|
| 44 |
|
| 45 | soil-run() {
|
| 46 | test-home-dir
|
| 47 | }
|
| 48 |
|
| 49 | task-five "$@"
|