ExternalVendorCode/serval-dna
1
0
Fork 0
mirror of https://github.com/servalproject/serval-dna.git synced 2025-02-20 09:26:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improve test framework: assert_fork_is_running

Browse Source 
Also assert_fork_is_not_running
Added 'framework' test case for fork primitives
This commit is contained in:
Andrew Bettison 2014-04-30 11:10:20 +09:30
parent 525aee88c5
commit 5035abde34
2 changed files with 73 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
testframework.sh
View File

@ -1691,6 +1691,44 @@ fork() {
$_tfw_assert_noise && tfw_log "# $desc pid=$! STARTED"
}
fork_is_running() {
local ret=0
for arg; do
_tfw_set_forklabel "$arg" || error "not a fork label '$arg'"
[ -n "$_tfw_forkid" ] || error "no such fork: %$_tfw_forklabel"
_tfw_fork_is_running $_tfw_forkid || ret=1
done
return $ret
}
assert_fork_is_running() {
_tfw_getopts assert_fork_is_running "$@"
shift $_tfw_getopts_shift
local message_opt="$_tfw_message"
for arg; do
_tfw_set_forklabel "$arg" || error "not a fork label '$arg'"
[ -n "$_tfw_forkid" ] || error "no such fork: %$_tfw_forklabel"
[ -z "$message_opt" ] && _tfw_message="fork $arg is running"
_tfw_assert _tfw_fork_is_running $_tfw_forkid || _tfw_failexit || return $?
$_tfw_assert_noise && tfw_log "# assert $_tfw_message"
done
return 0
}
assert_fork_is_not_running() {
_tfw_getopts assert_fork_is_not_running "$@"
shift $_tfw_getopts_shift
local message_opt="$_tfw_message"
for arg; do
_tfw_set_forklabel "$arg" || error "not a fork label '$arg'"
[ -n "$_tfw_forkid" ] || error "no such fork: %$_tfw_forklabel"
[ -z "$message_opt" ] && _tfw_message="fork $arg is not running"
_tfw_assert ! _tfw_fork_is_running $_tfw_forkid || _tfw_failexit || return $?
$_tfw_assert_noise && tfw_log "# assert $_tfw_message"
done
return 0
}
fork_terminate() {
_tfw_getopts fork_terminate "$@"
shift $_tfw_getopts_shift
@ -1778,15 +1816,24 @@ _tfw_forkterminate() {
kill -TERM $pid 2>/dev/null
}
_tfw_fork_is_running() {
local forkid="$1"
[ -z "$forkid" ] && return 1 # forkid never used
local pid=${_tfw_forked_pids[$forkid]}
local label=${_tfw_forked_labels[$forkid]}
[ -z "$pid" ] && return 1 # forkid already waited for
kill -0 $pid 2>/dev/null
}
_tfw_forkwait() {
local forkid="$1"
[ -z "$forkid" ] && return 0
local pid=${_tfw_forked_pids[$forkid]}
local label=${_tfw_forked_labels[$forkid]}
[ -z "$pid" ] && return 0
kill -0 $pid 2>/dev/null && return 1 # still running
[ -z "$pid" ] && return 0 # forkid already waited for
kill -0 $pid 2>/dev/null && return 1 # not killed yet
_tfw_forked_pids[$forkid]=
wait $pid # should not block because process has exited
wait $pid # process has already exited, so should not block
local status=$?
local desc="fork[$forkid]${label:+ %$label}"
$_tfw_assert_noise && tfw_log "# $desc pid=$pid EXIT status=$status"

23
tests/framework
View File

@ -42,4 +42,27 @@ test_tfw_cmp_version() {
execute --exit-status=0 tfw_cmp_version 1.0 1..0
}
test_fork() {
fork %A sleep 1000
fork %Z sleep 1001
fork %a sleep 1002
fork %z sleep 1003
fork %0 sleep 1004
fork %9 sleep 1005
assert_fork_is_running %A %Z %a %z
assert_fork_is_running %0 %9
fork_terminate %A
fork_terminate %a
fork_terminate %0
fork_wait %A %a
fork_wait %0
assert_fork_is_not_running %A %a %0
assert_fork_is_running %Z %z %9
fork_terminate_all
fork_wait %Z
fork_wait_all
assert_fork_is_not_running %A %Z %a %z
assert_fork_is_not_running %0 %9
}
runTests "$@"