mirror of
https://repo.or.cz/socat.git
synced 2025-07-10 14:12:58 +00:00
Added socat-broker.sh for group communications
This commit is contained in:
Gerhard Rieger
parent
28f1a56305
commit
8f27dd268c
3 changed files with 196 additions and 98 deletions
207
test.sh
207
test.sh
|
|
@ -123,8 +123,9 @@ esac
|
|||
#SOCAT_EGD="egd=/dev/egd-pool"
|
||||
MISCDELAY=1
|
||||
|
||||
opts="$opt_t $OPTS"
|
||||
export SOCAT_OPTS="$opts"
|
||||
OPTS="$opt_t $OPTS"
|
||||
opts="$OPTS"
|
||||
|
||||
TESTS="$*"; export TESTS
|
||||
if ! SOCAT_MAIN_WAIT= $SOCAT -V >/dev/null 2>&1; then
|
||||
echo "Failed to execute $SOCAT, exiting" >&2
|
||||
|
|
@ -1148,90 +1149,6 @@ waitip4proto () {
|
|||
return 1
|
||||
}
|
||||
|
||||
|
||||
# Perform a couple of checks to make sure the test has a chance of a useful
|
||||
# result:
|
||||
# platform is supported, features compiled in, addresses and options
|
||||
# available; needs root; is allowed to access the internet
|
||||
checkconds() {
|
||||
local unames="$(echo "$1")" # must be one of... exa: "Linux,FreeBSD"
|
||||
local root="$2" # "root" or ""
|
||||
local progs="$(echo "$3" |tr 'A-Z,' 'a-z ')" # exa: "nslookup"
|
||||
local feats="$(echo "$4" |tr 'a-z,' 'A-Z ')" # list of req.features (socat -V)
|
||||
local addrs="$(echo "$5" |tr 'a-z,' 'A-Z ')" # list of req.addresses (socat -h)
|
||||
local opts="$(echo "$6" |tr 'A-Z,' 'a-z ')" # list of req.options (socat -hhh)
|
||||
local runs="$(echo "$7" |tr , ' ')" # list of req.protocols, exa: "sctp6"
|
||||
local inet="$8" # when "internet": needs allowance
|
||||
local i
|
||||
|
||||
if [ "$unames" ]; then
|
||||
local uname="$(echo $UNAME |tr 'A-Z' 'a-z')"
|
||||
for i in $unames; do
|
||||
if [ "$uname" = "$(echo "$i" |tr 'A-Z,' 'a-z ')" ]; then
|
||||
# good, mark as passed
|
||||
i=
|
||||
break;
|
||||
fi
|
||||
done
|
||||
[ "$i" ] && { echo "Only on (one of) $unames"; return -1; }
|
||||
fi
|
||||
|
||||
if [ "$root" = "root" ]; then
|
||||
if [ $(id -u) -ne 0 -a "$withroot" -eq 0 ]; then
|
||||
echo "Must be root"
|
||||
return -1;
|
||||
fi
|
||||
fi
|
||||
|
||||
if [ "$progs" ]; then
|
||||
for i in $progs; do
|
||||
if ! type >/dev/null 2>&1; then
|
||||
echo "Program $i not available"
|
||||
return -1
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
if [ "$feats" ]; then
|
||||
if ! F=$(testfeats $feats); then
|
||||
echo "Feature $F not configured in $SOCAT"
|
||||
return -1
|
||||
fi
|
||||
fi
|
||||
|
||||
if [ "$addrs" ]; then
|
||||
if ! A=$(testaddrs - $addrs); then
|
||||
echo "Address $A not available in $SOCAT"
|
||||
return -1
|
||||
fi
|
||||
fi
|
||||
|
||||
if [ "$opts" ]; then
|
||||
if ! o=$(testoptions $opts); then
|
||||
echo "Option $o not available in $SOCAT"
|
||||
return -1
|
||||
fi
|
||||
fi
|
||||
|
||||
if [ "$runs" ]; then
|
||||
for i in $runs; do
|
||||
if ! runs$i >/dev/null; then
|
||||
echo "$i not available on host"
|
||||
return -1;
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
if [ "$inet" ]; then
|
||||
if [ -z "$FOREIGN" ]; then
|
||||
echo "Use test.sh option -internet"
|
||||
return -1
|
||||
fi
|
||||
fi
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
# we need this misleading function name for canonical reasons
|
||||
waitip4port () {
|
||||
waitip4proto "$1" "$2" "$3"
|
||||
|
|
@ -15938,7 +15855,7 @@ tf="$td/test$N.stdout"
|
|||
te="$td/test$N.stderr"
|
||||
tdiff="$td/test$N.diff"
|
||||
da="test$N $(date) $RANDOM"
|
||||
newport tcp4 # or whatever proto, or drop this line
|
||||
newport tcp4
|
||||
CMD0="$TRACE $SOCAT $opts -lp server0 -r \"$td/test$N.\\\$PROGNAME-\\\$TIMESTAMP.\\\$MICROS-\\\$SERVER0_PEERADDR-\\\$\\\$.in.log\" -R \"$td/test$N.\\\$PROGNAME-\\\$TIMESTAMP.\\\$MICROS-\\\$SERVER0_PEERADDR-\\\$\\\$.out.log\" TCP4-LISTEN:$PORT,so-reuseaddr,fork PIPE"
|
||||
CMD1="$TRACE $SOCAT $opts - TCP4-CONNECT:$LOCALHOST:$PORT"
|
||||
printf "test $F_n $TEST... " $N
|
||||
|
|
@ -16731,7 +16648,7 @@ tf="$td/test$N.stdout"
|
|||
te="$td/test$N.stderr"
|
||||
tdiff="$td/test$N.diff"
|
||||
da="test$N $(date) $RANDOM"
|
||||
newport tcp4 # or whatever proto, or drop this line
|
||||
newport tcp4
|
||||
CMD0="$TRACE $SOCAT $opts --experimental TCP4-LISTEN:$PORT,netns=$ns EXEC:'od -c'"
|
||||
CMD1="$TRACE $SOCAT $opts --experimental - TCP4:127.0.0.1:$PORT,netns=$ns"
|
||||
printf "test $F_n $TEST... " $N
|
||||
|
|
@ -17650,7 +17567,7 @@ te="$td/test$N.stderr"
|
|||
tdiff="$td/test$N.diff"
|
||||
da="$(echo test$N $(date) $RANDOM |tr ' :' '-')"
|
||||
echo "$da" >"$td/test$N.da"
|
||||
newport udp4 # or whatever proto, or drop this line
|
||||
newport udp4
|
||||
CMD0="$TRACE $SOCAT $opts -u UDP4-RECVFROM:$PORT -"
|
||||
CMD1="$TRACE $SOCAT $opts - TCP4:$da:0,res-nsaddr=$LOCALHOST:$PORT"
|
||||
printf "test $F_n $TEST... " $N
|
||||
|
|
@ -19002,10 +18919,10 @@ elif ! cond=$(checkconds \
|
|||
"" \
|
||||
"" \
|
||||
"" \
|
||||
"IP4 UDP TCP LISTEN STDIO PIPE" \
|
||||
"TCP4-LISTEN TCP4-CONNECT PIPE STDIO UDP-DATAGRAM" \
|
||||
"IP4 TCP LISTEN STDIO UNIX" \
|
||||
"TCP4-LISTEN PIPE STDIN STDOUT TCP4 UNIX UNIX-LISTEN" \
|
||||
"so-reuseaddr" \
|
||||
"udp4 tcp4" ); then
|
||||
"tcp4 unix" ); then
|
||||
$PRINTF "test $F_n $TEST... ${YELLOW}$cond${NORMAL}\n" $N
|
||||
numCANT=$((numCANT+1))
|
||||
listCANT="$listCANT $N"
|
||||
|
|
@ -19043,7 +18960,7 @@ else
|
|||
cat "${te}0" >&2
|
||||
echo "$CMD1 &"
|
||||
cat "${te}1" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2"
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2 &"
|
||||
cat "${te}2a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD2"
|
||||
cat "${te}2b" >&2
|
||||
|
|
@ -19056,7 +18973,7 @@ else
|
|||
cat "${te}0" >&2
|
||||
echo "$CMD1 &"
|
||||
cat "${te}1" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2"
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2 &"
|
||||
cat "${te}2a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD2"
|
||||
cat "${te}2b" >&2
|
||||
|
|
@ -19071,9 +18988,9 @@ else
|
|||
cat "${te}0" >&2
|
||||
echo "$CMD1 &"
|
||||
cat "${te}1" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2"
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2 &"
|
||||
cat "${te}2a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 2; } |$CMD2"
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD2"
|
||||
cat "${te}2b" >&2
|
||||
echo "// diff b:" >&2
|
||||
cat "${tdiff}_b" >&2
|
||||
|
|
@ -19086,7 +19003,7 @@ else
|
|||
if [ "$DEBUG" ]; then cat "${te}0" >&2; fi
|
||||
if [ "$VERBOSE" ]; then echo "$CMD1 &"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}1" >&2; fi
|
||||
if [ "$VERBOSE" ]; then echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2"; fi
|
||||
if [ "$VERBOSE" ]; then echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD2 &"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}2a" >&2; fi
|
||||
if [ "$VERBOSE" ]; then echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD2"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}2b" >&2; fi
|
||||
|
|
@ -19098,6 +19015,102 @@ esac
|
|||
N=$((N+1))
|
||||
|
||||
|
||||
# Test the socat-broker.sh script
|
||||
# Requires lo/lo0 to have broadcast address 127.255.255.255
|
||||
NAME=SOCAT_BROKER
|
||||
case "$TESTS" in
|
||||
*%$N%*|*%functions%*|*%script%*|*%socat-broker%*|*%socket%*|*%udp%*|*%broadcast%*|*%$NAME%*)
|
||||
TEST="$NAME: test the socat-broker.sh script"
|
||||
# Start a socat-broker.sh instance
|
||||
# Connect with two clients, send different data records from both.
|
||||
# Check if both client received both records in order.
|
||||
if ! eval $NUMCOND; then :
|
||||
# Remove unneeded checks, adapt lists of the remaining ones
|
||||
elif ! cond=$(checkconds \
|
||||
"" \
|
||||
"" \
|
||||
"" \
|
||||
"IP4 UDP TCP LISTEN STDIO" \
|
||||
"TCP4-LISTEN TCP4-CONNECT STDIO UDP-DATAGRAM" \
|
||||
"so-reuseaddr" \
|
||||
"udp4 tcp4" ); then
|
||||
$PRINTF "test $F_n $TEST... ${YELLOW}$cond${NORMAL}\n" $N
|
||||
numCANT=$((numCANT+1))
|
||||
listCANT="$listCANT $N"
|
||||
namesCANT="$namesCANT $NAME"
|
||||
else
|
||||
tf="$td/test$N.stdout"
|
||||
te="$td/test$N.stderr"
|
||||
tdiff="$td/test$N.diff"
|
||||
newport tcp4
|
||||
CMD0="$TRACE ./socat-broker.sh $OPTS TCP4-LISTEN:$PORT"
|
||||
CMD1="$TRACE $SOCAT $OPTS - TCP:$LOCALHOST:$PORT"
|
||||
da_a="test$N $(date) $RANDOM"
|
||||
da_b="test$N $(date) $RANDOM"
|
||||
printf "test $F_n $TEST... " $N
|
||||
$CMD0 >/dev/null 2>"${te}0" &
|
||||
pid0=$!
|
||||
waittcp4port $PORT 1
|
||||
{ sleep 1; echo "$da_a"; sleep 2; } </dev/null |$CMD1 >"${tf}1a" 2>"${te}1a" &
|
||||
pid1a=$!
|
||||
{ sleep 2; echo "$da_b"; sleep 1; } |$CMD1 >"${tf}1b" 2>"${te}1b"
|
||||
rc1b=$?
|
||||
kill $(childpids $pid0) $pid0 $pid1a 2>/dev/null
|
||||
wait 2>/dev/null
|
||||
#kill $pid0 2>/dev/null; wait
|
||||
if [ "$rc1b" -ne 0 ]; then
|
||||
$PRINTF "$FAILED (rc1b=$rc1b)\n"
|
||||
echo "$CMD0 &"
|
||||
cat "${te}0" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD1"
|
||||
cat "${te}1a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD1"
|
||||
cat "${te}1b" >&2
|
||||
numFAIL=$((numFAIL+1))
|
||||
listFAIL="$listFAIL $N"
|
||||
namesFAIL="$namesFAIL $NAME"
|
||||
elif ! $ECHO "$da_a\n$da_b" |diff - "${tf}1a" >${tdiff}_a; then
|
||||
$PRINTF "$FAILED (diff a)\n"
|
||||
echo "$CMD0 &"
|
||||
cat "${te}0" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD1"
|
||||
cat "${te}1a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD1"
|
||||
cat "${te}1b" >&2
|
||||
echo "// diff a:" >&2
|
||||
cat "${tdiff}_a" >&2
|
||||
numFAIL=$((numFAIL+1))
|
||||
listFAIL="$listFAIL $N"
|
||||
namesFAIL="$namesFAIL $NAME"
|
||||
elif ! $ECHO "$da_a\n$da_b" |diff - "${tf}1b" >${tdiff}_b; then
|
||||
$PRINTF "$FAILED (diff b)\n"
|
||||
echo "$CMD0 &"
|
||||
cat "${te}0" >&2
|
||||
echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD1"
|
||||
cat "${te}1a" >&2
|
||||
echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD1"
|
||||
cat "${te}1b" >&2
|
||||
echo "// diff b:" >&2
|
||||
cat "${tdiff}_b" >&2
|
||||
numFAIL=$((numFAIL+1))
|
||||
listFAIL="$listFAIL $N"
|
||||
namesFAIL="$namesFAIL $NAME"
|
||||
else
|
||||
$PRINTF "$OK\n"
|
||||
if [ "$VERBOSE" ]; then echo "$CMD0 &"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}0" >&2; fi
|
||||
if [ "$VERBOSE" ]; then echo "{ sleep 1; echo \"\$da_a\"; sleep 2; } |$CMD1"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}1a" >&2; fi
|
||||
if [ "$VERBOSE" ]; then echo "{ sleep 2; echo \"\$da_b\"; sleep 1; } |$CMD1"; fi
|
||||
if [ "$DEBUG" ]; then cat "${te}1b" >&2; fi
|
||||
numOK=$((numOK+1))
|
||||
fi
|
||||
fi # NUMCOND
|
||||
;;
|
||||
esac
|
||||
N=$((N+1))
|
||||
|
||||
|
||||
# end of common tests
|
||||
|
||||
##################################################################################
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue