da160ae8ed
Check that syscall counters used for tampering are per-tcb. * tests/qual_fault.c: Include <fcntl.h> for open(), <sys/param.h> for PATH_MAX, and <sys/wait.h> for wait(). (expfd): Rename to exp_fd, remove const qualifier and initialization. (gotfd): Rename to got_fd, remove const qualifier and initialization. (out_fd): New variable, for the expected strace output. (open_file): New helper function. (main): Remove st, add num_procs, proc, exp_prefix, got_prefix, out_prefix, pid_prefix. Remove stat asserts, update argc assert. Add num_procs, exp_prefix, got_prefix, out_prefix, pid_prefix initialization. Add per-process loop, open expfd, gotfd, out_fd, pidfd in each one, print process's pid to pidfd, print exit message to out_fd. Add wait() call for each forked process. * tests/qual_fault.test (N): increase to 100 in order to check concurrent process execution. (check_fault_injection): Take additional argument for the process count, pass it to qual_fault, add filename variables for expected strace output and pid file, pass them to qual_fault. Specify -ff parameter to strace invocation. Compare write and strace output for the each process. Update all check_fault_injection invocation with process count argument, add an invocation with 4 concurrent processes. * tests/init.sh (TIMEOUT_DURATION): Raise from 120 to 300. Co-authored-by: Dmitry V. Levin <ldv@altlinux.org>
115 lines
3.1 KiB
Bash
Executable File
115 lines
3.1 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# Check that fault injection works properly.
|
|
#
|
|
# Copyright (c) 2016 Dmitry V. Levin <ldv@altlinux.org>
|
|
# Copyright (c) 2016-2017 The strace developers.
|
|
# All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions
|
|
# are met:
|
|
# 1. Redistributions of source code must retain the above copyright
|
|
# notice, this list of conditions and the following disclaimer.
|
|
# 2. Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
# 3. The name of the author may not be used to endorse or promote products
|
|
# derived from this software without specific prior written permission.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
. "${srcdir=.}/scno_tampering.sh"
|
|
|
|
#
|
|
# F
|
|
# F+
|
|
# F+S
|
|
|
|
N=100
|
|
|
|
check_fault_injection()
|
|
{
|
|
local trace fault err first step procs extra
|
|
trace=$1; shift
|
|
fault=$1; shift
|
|
err=$1; shift
|
|
first=$1; shift
|
|
step=$1; shift
|
|
procs=$1; shift
|
|
extra="$*"
|
|
|
|
local when=
|
|
if [ -z "$first$step" ]; then
|
|
first=1
|
|
step=1
|
|
else
|
|
case "$step" in
|
|
'') when=":when=$first"; step=0 ;;
|
|
+) when=":when=$first+"; step=1 ;;
|
|
*) when=":when=$first+$step" ;;
|
|
esac
|
|
fi
|
|
|
|
local error=
|
|
local raw=reg
|
|
set --
|
|
case "$err" in
|
|
'') ;;
|
|
[123456789]*)
|
|
error=":error=$err"
|
|
raw=raw
|
|
set -- -e raw=all
|
|
;;
|
|
*) error=":error=$err" ;;
|
|
esac
|
|
|
|
outexp="$NAME.out.exp"
|
|
outgot="$NAME.out.got"
|
|
outout="$NAME.out.out"
|
|
outpid="$NAME.pid"
|
|
|
|
run_strace -a11 -ff -e trace=$trace \
|
|
"$@" -e fault=$fault$when$error $extra \
|
|
../$NAME $raw "$err" "$first" "$step" $N \
|
|
"$procs" "$outexp" "$outgot" "$outout" "$outpid"
|
|
|
|
for i in $(seq 0 $((procs - 1)) )
|
|
do
|
|
pid=$(cat "$outpid.$i")
|
|
|
|
match_diff "$outout.$i" "$LOG.$pid"
|
|
match_diff "$outexp.$i" "$outgot.$i"
|
|
done
|
|
}
|
|
|
|
for err in '' ENOSYS 22 einval; do
|
|
for fault in writev desc,51; do
|
|
check_fault_injection \
|
|
writev $fault "$err" '' '' 1 -efault=chdir
|
|
check_fault_injection \
|
|
writev $fault "$err" '' '' 1 -efault=chdir -efault=none
|
|
for F in 1 2 3 5 7 11; do
|
|
check_fault_injection \
|
|
writev $fault "$err" $F '' 1
|
|
check_fault_injection \
|
|
writev $fault "$err" $F + 1
|
|
for S in 1 2 3 5 7 11; do
|
|
check_fault_injection \
|
|
writev $fault "$err" $F $S 1
|
|
check_fault_injection \
|
|
writev $fault "$err" $F $S 4
|
|
done
|
|
done
|
|
done
|
|
done
|