1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
# -*- shell-script -*-
# Copyright 2021-2022 Ian Jackson and contributors to Hippotat
# SPDX-License-Identifier: GPL-3.0-or-later WITH LicenseRef-Hippotat-OpenSSL-Exception
# There is NO WARRANTY.
set -o pipefail
set -x
ssrc="${0%/*}"
src="$ssrc"/..
test="$src/test"
target_bin_dir=${TARGET_RELEASE_DIR-target/debug}
target_bin_prefix=${target_bin_dir}${target_bin_dir+/}
fail () { echo >&2 "$0: fail: $*"; exit 1; }
determine-tname () {
local prefix=$1; shift
case "${0##*/}" in
$prefix-*) tname="${0##*/}" ;;
*) fail "bad test script name $0" ;;
esac
}
test-prep () {
determine-tname t
tmp=tmp/$tname
rm -rf "$tmp"
mkdir -p $tmp
$test/netns-setup "$tname"
trap '
rc=$?
shutdown
if [ $rc = 0 ]; then echo "OK $tname"; fi
exit $rc
' 0
}
kill-pids () {
for p in $pids; do kill -9 $p; done
}
shutdown () {
kill-pids
}
in-ns () {
local client_server=$1; shift
$exec ip netns exec hippotat-t-$tname-$client_server "$@"
}
run-client () {
in-ns client \
${target_bin_prefix}hippotat --config $test/test.cfg -DD "$@"
}
run-server () {
in-ns server \
${target_bin_prefix}hippotatd --config $test/test.cfg -DD "$@"
}
spawn () {
{ exec=exec; "$@"; } &
pids+=" $!"
}
in-ns-await-up () {
local sc="$1"; shift
local addr="$1"; shift
local t=1
while sleep $(( $t / 10 )).$(( $t % 10 )); do
if in-ns $sc ip -o addr show | fgrep " inet $addr "; then
return
fi
t=$(( $t + 1 ))
if [ $t -gt 10 ]; then fail "$sc did not come up $addr"; fi
done
}
start-server () {
spawn run-server
in-ns-await-up server 192.0.2.1
}
start-client () {
spawn run-client
in-ns-await-up client 192.0.2.3
}
|
