mirror of
https://github.com/ElementsProject/lightning.git
synced 2024-11-20 10:39:49 +01:00
test.sh: move core routines to scripts/helpers.sh
Signed-off-by: Rusty Russell <rusty@rustcorp.com.au>
This commit is contained in:
Rusty Russell
parent
973ef3c932
commit
9e777ae922
435
daemon/test/scripts/helpers.sh
Normal file
435
daemon/test/scripts/helpers.sh
Normal file
@ -0,0 +1,435 @@
|
||||
#! /bin/sh
|
||||
# Sourced by test script.
|
||||
|
||||
# Takes the number of lightningd's we're going to start (2 or 3), then args
|
||||
parse_cmdline()
|
||||
{
|
||||
NUM_LIGHTNINGD=$1
|
||||
shift
|
||||
|
||||
DIR1=/tmp/lightning.$$.1
|
||||
DIR2=/tmp/lightning.$$.2
|
||||
REDIR1="$DIR1/output"
|
||||
REDIR2="$DIR2/output"
|
||||
REDIRERR1="$DIR1/errors"
|
||||
REDIRERR2="$DIR2/errors"
|
||||
|
||||
if [ $NUM_LIGHTNINGD = 3 ]; then
|
||||
DIR3=/tmp/lightning.$$.3
|
||||
REDIR3="$DIR3/output"
|
||||
REDIRERR3="$DIR3/errors"
|
||||
fi
|
||||
|
||||
while [ $# != 0 ]; do
|
||||
case x"$1" in
|
||||
x"--valgrind-vgdb")
|
||||
[ -n "$NO_VALGRIND" ] || PREFIX="$PREFIX --vgdb-error=1"
|
||||
REDIR1="/dev/tty"
|
||||
REDIRERR1="/dev/tty"
|
||||
REDIR2="/dev/tty"
|
||||
REDIRERR2="/dev/tty"
|
||||
if [ $NUM_LIGHTNINGD = 3 ]; then
|
||||
REDIR3="/dev/tty"
|
||||
REDIRERR3="/dev/tty"
|
||||
fi
|
||||
;;
|
||||
x"--gdb1")
|
||||
GDB1=1
|
||||
;;
|
||||
x"--gdb2")
|
||||
GDB2=1
|
||||
;;
|
||||
x"--gdb3")
|
||||
GDB3=1
|
||||
if [ $NUM_LIGHTNINGD -lt 3 ]; then
|
||||
echo "$1" invalid with only 2 lightning daemons >&2
|
||||
exit 1
|
||||
fi
|
||||
;;
|
||||
x"--reconnect")
|
||||
RECONNECT=reconnect
|
||||
;;
|
||||
x"--restart")
|
||||
RECONNECT=restart
|
||||
;;
|
||||
x"--crash")
|
||||
CRASH_ON_FAIL=1
|
||||
;;
|
||||
x"--verbose")
|
||||
VERBOSE=1
|
||||
;;
|
||||
*)
|
||||
echo Unknown arg "$1" >&2
|
||||
exit 1
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
FGREP="fgrep"
|
||||
else
|
||||
FGREP="fgrep -q"
|
||||
# Suppress command output.
|
||||
exec >/dev/null
|
||||
fi
|
||||
}
|
||||
|
||||
failed()
|
||||
{
|
||||
if [ -n "$CRASH_ON_FAIL" ]; then
|
||||
$LCLI1 dev-crash 2>/dev/null || true
|
||||
$LCLI2 dev-crash 2>/dev/null || true
|
||||
echo -n Crash results in $DIR1 and $DIR2 >&2
|
||||
if [ -n "$LCLI3" ]; then
|
||||
$LCLI3 dev-crash 2>/dev/null || true
|
||||
echo and $DIR3 >&2
|
||||
else
|
||||
echo >&2
|
||||
fi
|
||||
fi
|
||||
cat $DIR1/errors $DIR2/errors $DIR3/errors 2>/dev/null || true
|
||||
exit 1
|
||||
}
|
||||
|
||||
setup_lightning()
|
||||
{
|
||||
NUM_LIGHTNINGD=$1
|
||||
|
||||
LCLI1="../lightning-cli --lightning-dir=$DIR1"
|
||||
LCLI2="../lightning-cli --lightning-dir=$DIR2"
|
||||
[ $NUM_LIGHTNINGD = 2 ] || LCLI3="../lightning-cli --lightning-dir=$DIR3"
|
||||
|
||||
trap failed EXIT
|
||||
mkdir $DIR1 $DIR2
|
||||
[ $NUM_LIGHTNINGD = 2 ] || mkdir $DIR3
|
||||
|
||||
cat > $DIR1/config <<EOF
|
||||
disable-irc
|
||||
log-level=debug
|
||||
bitcoind-regtest
|
||||
bitcoind-poll=5s
|
||||
deadline-blocks=5
|
||||
min-htlc-expiry=6
|
||||
bitcoin-datadir=$DATADIR
|
||||
locktime-blocks=6
|
||||
EOF
|
||||
|
||||
cp $DIR1/config $DIR2/config
|
||||
[ $NUM_LIGHTNINGD = 2 ] || cp $DIR1/config $DIR3/config
|
||||
|
||||
if [ x"$RECONNECT" = xrestart ]; then
|
||||
# Make sure node2 & 3 restart on same port, by setting in config.
|
||||
# Find a free TCP port.
|
||||
echo port=`findport 4000 $VARIANT` >> $DIR2/config
|
||||
[ $NUM_LIGHTNINGD = 2 ] || echo port=`findport 4010 $VARIANT` >> $DIR3/config
|
||||
fi
|
||||
}
|
||||
|
||||
# Use DIR REDIR REDIRERR GDBFLAG
|
||||
start_one_lightningd()
|
||||
{
|
||||
# Need absolute path for re-exec testing.
|
||||
local CMD
|
||||
CMD="$(readlink -f `pwd`/../lightningd) --lightning-dir=$1"
|
||||
if [ -n "$4" ]; then
|
||||
echo Press return once you run: gdb --args $CMD >&2
|
||||
|
||||
read REPLY
|
||||
else
|
||||
CMD="$PREFIX $CMD"
|
||||
$CMD > $2 2> $3 &
|
||||
fi
|
||||
echo $CMD
|
||||
}
|
||||
|
||||
start_lightningd()
|
||||
{
|
||||
NUM_LIGHTNINGD=$1
|
||||
|
||||
# If bitcoind not already running, start it.
|
||||
if ! $CLI getinfo >/dev/null 2>&1; then
|
||||
scripts/setup.sh
|
||||
SHUTDOWN_BITCOIN=scripts/shutdown.sh
|
||||
else
|
||||
SHUTDOWN_BITCOIN=/bin/true
|
||||
fi
|
||||
|
||||
LIGHTNINGD1=`start_one_lightningd $DIR1 $REDIR1 $REDIRERR1 "$GDB1"`
|
||||
LIGHTNINGD2=`start_one_lightningd $DIR2 $REDIR2 $REDIRERR2 "$GDB2"`
|
||||
[ $NUM_LIGHTNINGD = 2 ] || LIGHTNINGD3=`start_one_lightningd $DIR3 $REDIR3 $REDIRERR3 "$GDB3"`
|
||||
|
||||
if ! check "$LCLI1 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 1 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if ! check "$LCLI2 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 2 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ $NUM_LIGHTNINGD = 3 ] && ! check "$LCLI3 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 3 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# Version should match binary version
|
||||
GETINFO_VERSION=`$LCLI1 getinfo | sed -n 's/.*"version" : "\([^"]*\)".*/\1/p'`
|
||||
LCLI_VERSION=$($LCLI1 --version | head -n1)
|
||||
LDAEMON_VERSION=$($LIGHTNINGD1 --version | head -n1)
|
||||
if [ $GETINFO_VERSION != $LCLI_VERSION -o $GETINFO_VERSION != $LDAEMON_VERSION ]; then
|
||||
echo Wrong versions: getinfo gave $GETINFO_VERSION, cli gave $LCLI_VERSION, daemon gave $LDAEMON_VERSION >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
ID1=`get_info_field "$LCLI1" id`
|
||||
ID2=`get_info_field "$LCLI2" id`
|
||||
[ $NUM_LIGHTNINGD = 2 ] || ID3=`get_info_field "$LCLI3" id`
|
||||
|
||||
PORT2=`get_info_field "$LCLI2" port`
|
||||
[ $NUM_LIGHTNINGD = 2 ] || PORT3=`get_info_field "$LCLI3" port`
|
||||
}
|
||||
|
||||
lcli1()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI1 "$@" >&2
|
||||
fi
|
||||
# Make sure we output if it fails; we need to capture it otherwise.
|
||||
if ! OUT=`$LCLI1 "$@"`; then
|
||||
echo "$OUT"
|
||||
return 1
|
||||
fi
|
||||
echo "$OUT"
|
||||
if [ -n "$DO_RECONNECT" ]; then
|
||||
case "$1" in
|
||||
# Don't restart on every get* command.
|
||||
get*)
|
||||
;;
|
||||
dev-disconnect)
|
||||
;;
|
||||
stop)
|
||||
;;
|
||||
*)
|
||||
case "$RECONNECT" in
|
||||
reconnect)
|
||||
[ -z "$VERBOSE" ] || echo RECONNECTING >&2
|
||||
$LCLI1 dev-reconnect $ID2 >/dev/null
|
||||
;;
|
||||
restart)
|
||||
[ -z "$VERBOSE" ] || echo RESTARTING >&2
|
||||
$LCLI1 -- dev-restart $LIGHTNINGD1 >/dev/null 2>&1 || true
|
||||
if ! check "$LCLI1 getlog 2>/dev/null | fgrep -q Hello"; then
|
||||
echo "dev-restart failed!">&2
|
||||
exit 1
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
# Wait for reconnect (if peer2 still there)
|
||||
if [ -z "$NO_PEER2" ] && ! check "$LCLI1 getpeers | tr -s '\012\011\" ' ' ' | fgrep -q 'connected : true'"; then
|
||||
echo "Failed to reconnect!">&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ "$1" = "dev-newhtlc" ]; then
|
||||
# It might have gotten committed, or might be forgotten.
|
||||
ID=`echo "$OUT" | extract_id`
|
||||
if ! htlc_exists "$LCLI1" $2 $ID; then
|
||||
if [ -z "$VERBOSE" ]; then
|
||||
$LCLI1 "$@" >/dev/null 2>&1 || true
|
||||
else
|
||||
echo "Rerunning $LCLI1 $@" >&2
|
||||
$LCLI1 "$@" >&2 || true
|
||||
fi
|
||||
fi
|
||||
# Make sure it's confirmed before we run next command,
|
||||
# in case *that* restarts (unless manual commit)
|
||||
[ -n "$MANUALCOMMIT" ] || check ! htlc_is_state \'"$LCLI1"\' $2 $ID SENT_ADD_HTLC
|
||||
# Removals may also be forgotten.
|
||||
elif [ "$1" = "fulfillhtlc" -o "$1" = "failhtlc" ]; then
|
||||
ID="$3"
|
||||
if htlc_is_state "$LCLI1" $2 $ID RCVD_ADD_ACK_REVOCATION; then
|
||||
if [ -z "$VERBOSE" ]; then
|
||||
$LCLI1 "$@" >/dev/null 2>&1 || true
|
||||
else
|
||||
echo "Rerunning $LCLI1 $@" >&2
|
||||
$LCLI1 "$@" >&2 || true
|
||||
fi
|
||||
# Make sure it's confirmed before we run next command,
|
||||
# in case *that* restarts.
|
||||
[ -n "$MANUALCOMMIT" ] || check ! htlc_is_state \'"$LCLI1"\' $2 $ID SENT_REMOVE_HTLC
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
}
|
||||
|
||||
lcli2()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI2 "$@" >&2
|
||||
fi
|
||||
$LCLI2 "$@"
|
||||
}
|
||||
|
||||
lcli3()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI3 "$@" >&2
|
||||
fi
|
||||
$LCLI3 "$@"
|
||||
}
|
||||
|
||||
all_ok()
|
||||
{
|
||||
# Look for valgrind errors.
|
||||
if grep ^== $DIR1/errors; then exit 1; fi
|
||||
if grep ^== $DIR2/errors; then exit 1; fi
|
||||
[ $NUM_LIGHTNINGD = 2 ] || if grep ^== $DIR3/errors; then exit 1; fi
|
||||
$SHUTDOWN_BITCOIN
|
||||
|
||||
trap "rm -rf $DIR1 $DIR2 $DIR3" EXIT
|
||||
exit 0
|
||||
}
|
||||
|
||||
# If result is in quotes, those are stripped. Spaces in quotes not handled
|
||||
get_info_field()
|
||||
{
|
||||
$1 getinfo | tr -s '\012\011" ' ' ' | sed 's/.* '$2' : \([^, }]*\).*/\1/'
|
||||
}
|
||||
|
||||
# Peer $1 -> $2's htlc $3 is in state $4
|
||||
htlc_is_state()
|
||||
{
|
||||
if [ $# != 4 ]; then echo "htlc_is_state got $# ARGS: $@" >&2; exit 1; fi
|
||||
$1 gethtlcs $2 true | tr -s '\012\011\" ' ' ' | $FGREP "id : $3, state : $4 ," >&2
|
||||
}
|
||||
|
||||
# Peer $1 -> $2's htlc $3 exists
|
||||
htlc_exists()
|
||||
{
|
||||
$1 gethtlcs $2 true | tr -s '\012\011\" ' ' ' | $FGREP "id : $3," >&2
|
||||
}
|
||||
|
||||
blockheight()
|
||||
{
|
||||
$CLI getblockcount
|
||||
}
|
||||
|
||||
# Usage: <cmd to test>...
|
||||
check()
|
||||
{
|
||||
local i=0
|
||||
while ! eval "$@"; do
|
||||
sleep 1
|
||||
i=$(($i + 1))
|
||||
if [ $i = 60 ]; then
|
||||
return 1
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
check_balance_single()
|
||||
{
|
||||
lcli="$1"
|
||||
us_pay=$2
|
||||
us_fee=$3
|
||||
them_pay=$4
|
||||
them_fee=$5
|
||||
|
||||
if check "$lcli getpeers | tr -s '\012\011\" ' ' ' | $FGREP \"our_amount : $us_pay, our_fee : $us_fee, their_amount : $them_pay, their_fee : $them_fee,\""; then :; else
|
||||
echo Cannot find $lcli output: "our_amount : $us_pay, our_fee : $us_fee, their_amount : $them_pay, their_fee : $them_fee," >&2
|
||||
$lcli getpeers | tr -s '\012\011" ' ' ' >&2
|
||||
return 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_status_single()
|
||||
{
|
||||
lcli="$1"
|
||||
us_pay=$2
|
||||
us_fee=$3
|
||||
us_htlcs="$4"
|
||||
them_pay=$5
|
||||
them_fee=$6
|
||||
them_htlcs="$7"
|
||||
|
||||
check_balance_single "$lcli" $us_pay $us_fee $them_pay $them_fee
|
||||
|
||||
if check "$lcli getpeers | tr -s '\012\011\" ' ' ' | $FGREP \"our_htlcs : [ $us_htlcs], their_htlcs : [ $them_htlcs]\""; then :; else
|
||||
echo Cannot find $lcli output: "our_htlcs : [ $us_htlcs], their_htlcs : [ $them_htlcs]" >&2
|
||||
$lcli getpeers | tr -s '\012\011" ' ' ' >&2
|
||||
return 1
|
||||
fi
|
||||
}
|
||||
|
||||
# SEND_ -> RCVD_ and RCVD_ -> SEND_
|
||||
swap_status()
|
||||
{
|
||||
echo "$@" | sed -e 's/state : RCVD_/@@/g' -e 's/state : SENT_/state : RCVD_/g' -e 's/@@/state : SENT_/g'
|
||||
}
|
||||
|
||||
check_status()
|
||||
{
|
||||
us_pay=$1
|
||||
us_fee=$2
|
||||
us_htlcs="$3"
|
||||
them_pay=$4
|
||||
them_fee=$5
|
||||
them_htlcs="$6"
|
||||
|
||||
check_status_single lcli1 "$us_pay" "$us_fee" "$us_htlcs" "$them_pay" "$them_fee" "$them_htlcs"
|
||||
check_status_single lcli2 "$them_pay" "$them_fee" "`swap_status \"$them_htlcs\"`" "$us_pay" "$us_fee" "`swap_status \"$us_htlcs\"`"
|
||||
}
|
||||
|
||||
check_tx_spend()
|
||||
{
|
||||
if check "$CLI getrawmempool | $FGREP '\"'"; then :;
|
||||
else
|
||||
echo "No tx in mempool:" >&2
|
||||
$CLI getrawmempool >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_peerstate()
|
||||
{
|
||||
if check "$1 getpeers | $FGREP -w $2"; then :
|
||||
else
|
||||
echo "$1" not in state "$2": >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_peerconnected()
|
||||
{
|
||||
if check "$1 getpeers | tr -s '\012\011\" ' ' ' | $FGREP -w 'connected : '$2"; then :
|
||||
else
|
||||
echo "$1" not connected "$2": >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_no_peers()
|
||||
{
|
||||
if check "$1 getpeers | tr -s '\012\011\" ' ' ' | $FGREP 'peers : [ ]'"; then :
|
||||
else
|
||||
echo "$1" still has peers: >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
extract_id()
|
||||
{
|
||||
XID=`tr -s '\012\011\" ' ' ' | sed -n 's/{ id : \([0-9]*\) }/\1/p'`
|
||||
case "$XID" in
|
||||
[0-9]*)
|
||||
echo $XID;;
|
||||
*)
|
||||
return 1;;
|
||||
esac
|
||||
}
|
||||
@ -5,11 +5,6 @@
|
||||
VERSION=$(`dirname $0`/../../lightning-cli --version | head -n1)
|
||||
[ $VERSION = `git describe --always --dirty` ] || (echo Wrong version $VERSION >&2; exit 1)
|
||||
|
||||
if $CLI getinfo 2>/dev/null; then
|
||||
echo $DAEMON already running >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# Start clean
|
||||
rm -rf $DATADIR
|
||||
mkdir $DATADIR
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
# Sourced by other scripts
|
||||
|
||||
# Bash variables for in-depth debugging.
|
||||
#set -vx
|
||||
#export PS4='+(${BASH_SOURCE}:${LINENO}): ${FUNCNAME[0]:+${FUNCNAME[0]}(): }'
|
||||
|
||||
# Suppress sync if we can, for speedup.
|
||||
if which eatmydata >/dev/null; then EATMYDATA=eatmydata; fi
|
||||
|
||||
@ -14,6 +18,18 @@ PREFIX=$EATMYDATA
|
||||
if which valgrind >/dev/null; then :; else NO_VALGRIND=1; fi
|
||||
[ -n "$NO_VALGRIND" ] || PREFIX="$EATMYDATA valgrind -q --error-exitcode=7"
|
||||
|
||||
# We inject 0.01 bitcoin, but then fees (estimatefee fails and we use a
|
||||
# fee rate as per the default).
|
||||
AMOUNT=991880000
|
||||
|
||||
# Default fee rate per kb.
|
||||
FEE_RATE=200000
|
||||
|
||||
# Fee in millisatoshi if we have no htlcs (note rounding to make it even)
|
||||
NO_HTLCS_FEE=$((338 * $FEE_RATE / 2000 * 2000))
|
||||
ONE_HTLCS_FEE=$(( (338 + 32) * $FEE_RATE / 2000 * 2000))
|
||||
EXTRA_FEE=$(($ONE_HTLCS_FEE - $NO_HTLCS_FEE))
|
||||
|
||||
findport()
|
||||
{
|
||||
PORT=$1
|
||||
|
||||
@ -4,392 +4,44 @@
|
||||
cd `git rev-parse --show-toplevel`/daemon/test
|
||||
|
||||
. scripts/vars.sh
|
||||
|
||||
# If bitcoind not already running, start it.
|
||||
if ! $CLI getinfo >/dev/null 2>&1; then
|
||||
scripts/setup.sh
|
||||
SHUTDOWN_BITCOIN=scripts/shutdown.sh
|
||||
else
|
||||
SHUTDOWN_BITCOIN=/bin/true
|
||||
fi
|
||||
. scripts/helpers.sh
|
||||
|
||||
# Bash variables for in-depth debugging.
|
||||
#set -vx
|
||||
#export PS4='+(${BASH_SOURCE}:${LINENO}): ${FUNCNAME[0]:+${FUNCNAME[0]}(): }'
|
||||
|
||||
DIR1=/tmp/lightning.$$.1
|
||||
DIR2=/tmp/lightning.$$.2
|
||||
DIR3=/tmp/lightning.$$.3
|
||||
STYLE=${1:-normal}
|
||||
shift
|
||||
|
||||
REDIR1="$DIR1/output"
|
||||
REDIR2="$DIR2/output"
|
||||
REDIRERR1="$DIR1/errors"
|
||||
REDIRERR2="$DIR2/errors"
|
||||
FGREP="fgrep -q"
|
||||
|
||||
# We inject 0.01 bitcoin, but then fees (estimatefee fails and we use a
|
||||
# fee rate as per the default).
|
||||
AMOUNT=991880000
|
||||
|
||||
# Default fee rate per kb.
|
||||
FEE_RATE=200000
|
||||
|
||||
# Fee in millisatoshi if we have no htlcs (note rounding to make it even)
|
||||
NO_HTLCS_FEE=$((338 * $FEE_RATE / 2000 * 2000))
|
||||
ONE_HTLCS_FEE=$(( (338 + 32) * $FEE_RATE / 2000 * 2000))
|
||||
EXTRA_FEE=$(($ONE_HTLCS_FEE - $NO_HTLCS_FEE))
|
||||
|
||||
while [ $# != 0 ]; do
|
||||
case x"$1" in
|
||||
x"--valgrind-vgdb")
|
||||
[ -n "$NO_VALGRIND" ] || PREFIX="$PREFIX --vgdb-error=1"
|
||||
REDIR1="/dev/tty"
|
||||
REDIRERR1="/dev/tty"
|
||||
REDIR2="/dev/tty"
|
||||
REDIRERR2="/dev/tty"
|
||||
;;
|
||||
x"--gdb1")
|
||||
GDB1=1
|
||||
;;
|
||||
x"--gdb2")
|
||||
GDB2=1
|
||||
;;
|
||||
x"--timeout-anchor")
|
||||
TIMEOUT_ANCHOR=1
|
||||
;;
|
||||
x"--dump-onchain")
|
||||
DUMP_ONCHAIN=1
|
||||
;;
|
||||
x"--steal")
|
||||
STEAL=1
|
||||
;;
|
||||
x"--manual-commit")
|
||||
MANUALCOMMIT=1
|
||||
;;
|
||||
x"--mutual-close-with-htlcs")
|
||||
CLOSE_WITH_HTLCS=1
|
||||
;;
|
||||
x"--different-fee-rates")
|
||||
DIFFERENT_FEES=1
|
||||
;;
|
||||
x"--normal")
|
||||
;;
|
||||
x"--reconnect")
|
||||
RECONNECT=reconnect
|
||||
;;
|
||||
x"--restart")
|
||||
RECONNECT=restart
|
||||
;;
|
||||
x"--crash")
|
||||
CRASH_ON_FAIL=1
|
||||
;;
|
||||
x"--verbose")
|
||||
VERBOSE=1
|
||||
;;
|
||||
*)
|
||||
echo Unknown arg "$1" >&2
|
||||
exit 1
|
||||
esac
|
||||
shift
|
||||
done
|
||||
|
||||
LCLI1="../lightning-cli --lightning-dir=$DIR1"
|
||||
LCLI2="../lightning-cli --lightning-dir=$DIR2"
|
||||
LCLI3="../lightning-cli --lightning-dir=$DIR3"
|
||||
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
FGREP="fgrep"
|
||||
SHOW="cat >&2"
|
||||
else
|
||||
# Suppress command output.
|
||||
exec >/dev/null
|
||||
SHOW="cat"
|
||||
fi
|
||||
|
||||
# Peer $1 -> $2's htlc $3 is in state $4
|
||||
htlc_is_state()
|
||||
{
|
||||
if [ $# != 4 ]; then echo "htlc_is_state got $# ARGS: $@" >&2; exit 1; fi
|
||||
$1 gethtlcs $2 true | tr -s '\012\011\" ' ' ' | $FGREP "id : $3, state : $4 ," >&2
|
||||
}
|
||||
|
||||
# Peer $1 -> $2's htlc $3 exists
|
||||
htlc_exists()
|
||||
{
|
||||
$1 gethtlcs $2 true | tr -s '\012\011\" ' ' ' | $FGREP "id : $3," >&2
|
||||
}
|
||||
|
||||
lcli1()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI1 "$@" >&2
|
||||
fi
|
||||
# Make sure we output if it fails; we need to capture it otherwise.
|
||||
if ! OUT=`$LCLI1 "$@"`; then
|
||||
echo "$OUT"
|
||||
return 1
|
||||
fi
|
||||
echo "$OUT"
|
||||
if [ -n "$DO_RECONNECT" ]; then
|
||||
case "$1" in
|
||||
# Don't restart on every get* command.
|
||||
get*)
|
||||
;;
|
||||
dev-disconnect)
|
||||
;;
|
||||
stop)
|
||||
;;
|
||||
*)
|
||||
case "$RECONNECT" in
|
||||
reconnect)
|
||||
[ -z "$VERBOSE" ] || echo RECONNECTING >&2
|
||||
$LCLI1 dev-reconnect $ID2 >/dev/null
|
||||
;;
|
||||
restart)
|
||||
[ -z "$VERBOSE" ] || echo RESTARTING >&2
|
||||
$LCLI1 -- dev-restart $LIGHTNINGD1 >/dev/null 2>&1 || true
|
||||
if ! check "$LCLI1 getlog 2>/dev/null | fgrep -q Hello"; then
|
||||
echo "dev-restart failed!">&2
|
||||
exit 1
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
# Wait for reconnect (if peer2 still there)
|
||||
if [ -z "$NO_PEER2" ] && ! check "$LCLI1 getpeers | tr -s '\012\011\" ' ' ' | fgrep -q 'connected : true'"; then
|
||||
echo "Failed to reconnect!">&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ "$1" = "dev-newhtlc" ]; then
|
||||
# It might have gotten committed, or might be forgotten.
|
||||
ID=`echo "$OUT" | extract_id`
|
||||
if ! htlc_exists "$LCLI1" $2 $ID; then
|
||||
if [ -z "$VERBOSE" ]; then
|
||||
$LCLI1 "$@" >/dev/null 2>&1 || true
|
||||
else
|
||||
echo "Rerunning $LCLI1 $@" >&2
|
||||
$LCLI1 "$@" >&2 || true
|
||||
fi
|
||||
fi
|
||||
# Make sure it's confirmed before we run next command,
|
||||
# in case *that* restarts (unless manual commit)
|
||||
[ -n "$MANUALCOMMIT" ] || check ! htlc_is_state \'"$LCLI1"\' $2 $ID SENT_ADD_HTLC
|
||||
# Removals may also be forgotten.
|
||||
elif [ "$1" = "fulfillhtlc" -o "$1" = "failhtlc" ]; then
|
||||
ID="$3"
|
||||
if htlc_is_state "$LCLI1" $2 $ID RCVD_ADD_ACK_REVOCATION; then
|
||||
if [ -z "$VERBOSE" ]; then
|
||||
$LCLI1 "$@" >/dev/null 2>&1 || true
|
||||
else
|
||||
echo "Rerunning $LCLI1 $@" >&2
|
||||
$LCLI1 "$@" >&2 || true
|
||||
fi
|
||||
# Make sure it's confirmed before we run next command,
|
||||
# in case *that* restarts.
|
||||
[ -n "$MANUALCOMMIT" ] || check ! htlc_is_state \'"$LCLI1"\' $2 $ID SENT_REMOVE_HTLC
|
||||
fi
|
||||
fi
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
}
|
||||
|
||||
lcli2()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI2 "$@" >&2
|
||||
fi
|
||||
$LCLI2 "$@"
|
||||
}
|
||||
|
||||
lcli3()
|
||||
{
|
||||
if [ -n "$VERBOSE" ]; then
|
||||
echo $LCLI3 "$@" >&2
|
||||
fi
|
||||
$LCLI3 "$@"
|
||||
}
|
||||
|
||||
blockheight()
|
||||
{
|
||||
$CLI getblockcount
|
||||
}
|
||||
|
||||
# Usage: <cmd to test>...
|
||||
check()
|
||||
{
|
||||
local i=0
|
||||
while ! eval "$@"; do
|
||||
sleep 1
|
||||
i=$(($i + 1))
|
||||
if [ $i = 60 ]; then
|
||||
return 1
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
check_balance_single()
|
||||
{
|
||||
lcli="$1"
|
||||
us_pay=$2
|
||||
us_fee=$3
|
||||
them_pay=$4
|
||||
them_fee=$5
|
||||
|
||||
if check "$lcli getpeers | tr -s '\012\011\" ' ' ' | $FGREP \"our_amount : $us_pay, our_fee : $us_fee, their_amount : $them_pay, their_fee : $them_fee,\""; then :; else
|
||||
echo Cannot find $lcli output: "our_amount : $us_pay, our_fee : $us_fee, their_amount : $them_pay, their_fee : $them_fee," >&2
|
||||
$lcli getpeers | tr -s '\012\011" ' ' ' >&2
|
||||
return 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_status_single()
|
||||
{
|
||||
lcli="$1"
|
||||
us_pay=$2
|
||||
us_fee=$3
|
||||
us_htlcs="$4"
|
||||
them_pay=$5
|
||||
them_fee=$6
|
||||
them_htlcs="$7"
|
||||
|
||||
check_balance_single "$lcli" $us_pay $us_fee $them_pay $them_fee
|
||||
|
||||
if check "$lcli getpeers | tr -s '\012\011\" ' ' ' | $FGREP \"our_htlcs : [ $us_htlcs], their_htlcs : [ $them_htlcs]\""; then :; else
|
||||
echo Cannot find $lcli output: "our_htlcs : [ $us_htlcs], their_htlcs : [ $them_htlcs]" >&2
|
||||
$lcli getpeers | tr -s '\012\011" ' ' ' >&2
|
||||
return 1
|
||||
fi
|
||||
}
|
||||
|
||||
# SEND_ -> RCVD_ and RCVD_ -> SEND_
|
||||
swap_status()
|
||||
{
|
||||
echo "$@" | sed -e 's/state : RCVD_/@@/g' -e 's/state : SENT_/state : RCVD_/g' -e 's/@@/state : SENT_/g'
|
||||
}
|
||||
|
||||
check_status()
|
||||
{
|
||||
us_pay=$1
|
||||
us_fee=$2
|
||||
us_htlcs="$3"
|
||||
them_pay=$4
|
||||
them_fee=$5
|
||||
them_htlcs="$6"
|
||||
|
||||
check_status_single lcli1 "$us_pay" "$us_fee" "$us_htlcs" "$them_pay" "$them_fee" "$them_htlcs"
|
||||
check_status_single lcli2 "$them_pay" "$them_fee" "`swap_status \"$them_htlcs\"`" "$us_pay" "$us_fee" "`swap_status \"$us_htlcs\"`"
|
||||
}
|
||||
|
||||
check_tx_spend()
|
||||
{
|
||||
if check "$CLI getrawmempool | $FGREP '\"'"; then :;
|
||||
else
|
||||
echo "No tx in mempool:" >&2
|
||||
$CLI getrawmempool >&2
|
||||
parse_cmdline 3 "$@"
|
||||
case x"$STYLE" in
|
||||
x"--timeout-anchor")
|
||||
TIMEOUT_ANCHOR=1
|
||||
;;
|
||||
x"--dump-onchain")
|
||||
DUMP_ONCHAIN=1
|
||||
;;
|
||||
x"--steal")
|
||||
STEAL=1
|
||||
;;
|
||||
x"--manual-commit")
|
||||
MANUALCOMMIT=1
|
||||
;;
|
||||
x"--mutual-close-with-htlcs")
|
||||
CLOSE_WITH_HTLCS=1
|
||||
;;
|
||||
x"--different-fee-rates")
|
||||
DIFFERENT_FEES=1
|
||||
;;
|
||||
x"--normal")
|
||||
;;
|
||||
*)
|
||||
echo Unknown arg "$STYLE" >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
;;
|
||||
esac
|
||||
|
||||
check_peerstate()
|
||||
{
|
||||
if check "$1 getpeers | $FGREP -w $2"; then :
|
||||
else
|
||||
echo "$1" not in state "$2": >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_peerconnected()
|
||||
{
|
||||
if check "$1 getpeers | tr -s '\012\011\" ' ' ' | $FGREP -w 'connected : '$2"; then :
|
||||
else
|
||||
echo "$1" not connected "$2": >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
check_no_peers()
|
||||
{
|
||||
if check "$1 getpeers | tr -s '\012\011\" ' ' ' | $FGREP 'peers : [ ]'"; then :
|
||||
else
|
||||
echo "$1" still has peers: >&2
|
||||
$1 getpeers >&2
|
||||
exit 1
|
||||
fi
|
||||
}
|
||||
|
||||
extract_id()
|
||||
{
|
||||
XID=`tr -s '\012\011\" ' ' ' | sed -n 's/{ id : \([0-9]*\) }/\1/p'`
|
||||
case "$XID" in
|
||||
[0-9]*)
|
||||
echo $XID;;
|
||||
*)
|
||||
return 1;;
|
||||
esac
|
||||
}
|
||||
|
||||
all_ok()
|
||||
{
|
||||
# Look for valgrind errors.
|
||||
if grep ^== $DIR1/errors; then exit 1; fi
|
||||
if grep ^== $DIR2/errors; then exit 1; fi
|
||||
if grep ^== $DIR3/errors; then exit 1; fi
|
||||
$SHUTDOWN_BITCOIN
|
||||
|
||||
trap "rm -rf $DIR1 $DIR2 $DIR3" EXIT
|
||||
exit 0
|
||||
}
|
||||
|
||||
if [ -n "$CRASH_ON_FAIL" ]; then
|
||||
trap "$LCLI1 dev-crash 2>/dev/null || true; $LCLI2 dev-crash 2>/dev/null || true; echo Crash results in $DIR1 and $DIR2 >&2; cat $DIR1/errors $DIR2/errors >&2" EXIT
|
||||
else
|
||||
trap "echo Results in $DIR1 and $DIR2 >&2; cat $DIR1/errors $DIR2/errors >&2" EXIT
|
||||
fi
|
||||
mkdir $DIR1 $DIR2 $DIR3
|
||||
|
||||
if [ -n "$MANUALCOMMIT" ]; then
|
||||
# Aka. never.
|
||||
COMMIT_TIME=1h
|
||||
else
|
||||
COMMIT_TIME=10ms
|
||||
fi
|
||||
|
||||
cat > $DIR1/config <<EOF
|
||||
disable-irc
|
||||
log-level=debug
|
||||
bitcoind-regtest
|
||||
bitcoind-poll=5s
|
||||
deadline-blocks=5
|
||||
min-htlc-expiry=6
|
||||
bitcoin-datadir=$DATADIR
|
||||
locktime-blocks=6
|
||||
commit-time=$COMMIT_TIME
|
||||
EOF
|
||||
|
||||
cat > $DIR2/config <<EOF
|
||||
disable-irc
|
||||
bitcoind-regtest
|
||||
log-level=debug
|
||||
bitcoind-poll=5s
|
||||
deadline-blocks=5
|
||||
min-htlc-expiry=6
|
||||
bitcoin-datadir=$DATADIR
|
||||
locktime-blocks=6
|
||||
commit-time=$COMMIT_TIME
|
||||
EOF
|
||||
|
||||
cp $DIR2/config $DIR3/config
|
||||
|
||||
if [ x"$RECONNECT" = xrestart ]; then
|
||||
# Make sure node2 & 3 restart on same port, by setting in config.
|
||||
# Find a free TCP port.
|
||||
echo port=`findport 4000 $VARIANT` >> $DIR2/config
|
||||
echo port=`findport 4010 $VARIANT` >> $DIR3/config
|
||||
fi
|
||||
setup_lightning 3
|
||||
|
||||
if [ -n "$DIFFERENT_FEES" ]; then
|
||||
# Simply override default fee (estimatefee fails on regtest anyway)
|
||||
@ -399,61 +51,19 @@ if [ -n "$DIFFERENT_FEES" ]; then
|
||||
echo "default-fee-rate=$DEFAULT_FEE_RATE2" >> $DIR2/config
|
||||
fi
|
||||
|
||||
# Need absolute path for re-exec testing.
|
||||
LIGHTNINGD1="$(readlink -f `pwd`/../lightningd) --lightning-dir=$DIR1"
|
||||
if [ -n "$GDB1" ]; then
|
||||
echo Press return once you run: gdb --args $LIGHTNINGD1 >&2
|
||||
|
||||
read REPLY
|
||||
else
|
||||
LIGHTNINGD1="$PREFIX $LIGHTNINGD1"
|
||||
$LIGHTNINGD1 > $REDIR1 2> $REDIRERR1 &
|
||||
if [ -n "$MANUALCOMMIT" ]; then
|
||||
# Aka. never.
|
||||
echo 'commit-time=1h' >> $DIR1/config
|
||||
echo 'commit-time=1h' >> $DIR2/config
|
||||
echo 'commit-time=1h' >> $DIR3/config
|
||||
fi
|
||||
|
||||
LIGHTNINGD2="$(readlink -f `pwd`/../lightningd) --lightning-dir=$DIR2"
|
||||
if [ -n "$GDB2" ]; then
|
||||
echo Press return once you run: gdb --args $LIGHTNINGD2 >&2
|
||||
read REPLY
|
||||
else
|
||||
LIGHTNINGD2="$PREFIX $LIGHTNINGD2"
|
||||
$LIGHTNINGD2 > $REDIR2 2> $REDIRERR2 &
|
||||
fi
|
||||
LIGHTNINGD3="$PREFIX $(readlink -f `pwd`/../lightningd) --lightning-dir=$DIR3"
|
||||
$LIGHTNINGD3 > $DIR3/output 2> $DIR3/errors &
|
||||
start_lightningd 3
|
||||
|
||||
if ! check "$LCLI1 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 1 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if ! check "$LCLI2 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 2 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if ! check "$LCLI3 getlog 2>/dev/null | $FGREP Hello"; then
|
||||
echo Failed to start daemon 3 >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# Version should match binary version
|
||||
GETINFO_VERSION=`$LCLI1 getinfo | sed -n 's/.*"version" : "\([^"]*\)".*/\1/p'`
|
||||
LCLI_VERSION=$($LCLI1 --version | head -n1)
|
||||
LDAEMON_VERSION=$($LIGHTNINGD1 --version | head -n1)
|
||||
if [ $GETINFO_VERSION != $LCLI_VERSION -o $GETINFO_VERSION != $LDAEMON_VERSION ]; then
|
||||
echo Wrong versions: getinfo gave $GETINFO_VERSION, cli gave $LCLI_VERSION, daemon gave $LDAEMON_VERSION >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
ID1=`$LCLI1 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'`
|
||||
[ `$LCLI1 getinfo | sed -n 's/.*"id" : "\([0-9a-f]*\)".*/\1/p'` = $ID1 ]
|
||||
ID2=`$LCLI2 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'`
|
||||
[ `$LCLI2 getinfo | sed -n 's/.*"id" : "\([0-9a-f]*\)".*/\1/p'` = $ID2 ]
|
||||
ID3=`$LCLI3 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'`
|
||||
[ `$LCLI3 getinfo | sed -n 's/.*"id" : "\([0-9a-f]*\)".*/\1/p'` = $ID3 ]
|
||||
|
||||
PORT2=`$LCLI2 getlog | sed -n 's/.*on port \([0-9]*\).*/\1/p'`
|
||||
PORT3=`$LCLI3 getlog | sed -n 's/.*on port \([0-9]*\).*/\1/p'`
|
||||
# Check IDs match logs
|
||||
[ `$LCLI1 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'` = $ID1 ]
|
||||
[ `$LCLI2 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'` = $ID2 ]
|
||||
[ $NUM_LIGHTNINGD = 2 ] || [ `$LCLI3 getlog | sed -n 's/.*"ID: \([0-9a-f]*\)".*/\1/p'` = $ID3 ]
|
||||
|
||||
# Make a payment into a P2SH for anchor.
|
||||
P2SHADDR=`$LCLI1 newaddr | sed -n 's/{ "address" : "\(.*\)" }/\1/p'`
|
||||
@ -463,8 +73,8 @@ $CLI generate 1
|
||||
|
||||
# Make sure they see it (for timeout we need to know what height they were)
|
||||
BLOCKHEIGHT=`$CLI getblockcount`
|
||||
check "$LCLI1 getinfo | $FGREP '\"blockheight\" : $BLOCKHEIGHT'"
|
||||
check "$LCLI2 getinfo | $FGREP '\"blockheight\" : $BLOCKHEIGHT'"
|
||||
check '[ `get_info_field "$LCLI1" blockheight` = $BLOCKHEIGHT ]'
|
||||
check '[ `get_info_field "$LCLI2" blockheight` = $BLOCKHEIGHT ]'
|
||||
|
||||
# Prevent anchor broadcast if we want to test timeout.
|
||||
if [ -n "$TIMEOUT_ANCHOR" ]; then
|
||||
|
||||
Loading…
Reference in New Issue
Block a user