/
githubmirror
/
strace
Обзор
Документация
Войти
/
githubmirror
/
strace
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
tests/strace-ttt.test
40 строк
772 B
Dmitry V. Levin
Update copyright headers
30 апр 2023, 11:00
30 апр 2023, 11:00
eb30d4d
Код
Авторство
О чём код?
#!/bin/sh # # Check -ttt option. # # Copyright (c) 2016-2023 The strace developers. # All rights reserved. # # SPDX-License-Identifier: GPL-2.0-or-later . "${srcdir=.}/init.sh" precision="${1:-6}" [ x0 = "x$#" ] || shift opts="${*:--ttt}" run_prog_skip_if_failed date +%s > /dev/null run_prog ../sleep 0 s0="$(date +%s)" run_strace $opts -eexecve $args s1="$(date +%s)" s="$s0" t_reg= while [ "$s" -le "$s1" ]; do [ -z "$t_reg" ] && t_reg="$s" || t_reg="$t_reg|$s" s=$((s + 1)) done if [ x0 = "x${precision}" ]; then subsec_re="" else subsec_re="\\.[[:digit:]]{${precision}}" fi cat > "$EXP" << __EOF__ ($t_reg)${subsec_re} execve\\("\\.\\./sleep", \\["\\.\\./sleep", "0"\\], 0x[[:xdigit:]]* /\\* [[:digit:]]+ vars \\*/\\) = 0 __EOF__ match_grep "$LOG" "$EXP"