# This file is part of GNU pies testsuite. -*- autotest -*- # Copyright (C) 2016-2023 Sergey Poznyakoff # # GNU pies is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # # GNU pies is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU pies. If not, see . m4_version_prereq([2.69]) m4_define([PIES_SGN],[pies (AT_PACKAGE_NAME) AT_PACKAGE_VERSION]) m4_define([PIES_XFAIL_MSG],[cat >$[]XFAILFILE <<'_EOT' ============================================================== $* ============================================================== _EOT ]) m4_define([PIES_XFAIL_CHECK],[AT_XFAIL_IF([test -f $[]XFAILFILE])]) m4_define([PIES_CONTROL_INIT],[ PIES_PIDFILE="$PWD/pies.pid" PIES_CTLSOCK="unix://$PWD/pies.ctl"; export PIES_PIDFILE PIES_CTLSOCK cat > control.conf <<_EOT pidfile "$PIES_PIDFILE"; control { socket "$PIES_CTLSOCK"; } _EOT ]) m4_define([PIES_STOP],[ piesctl --config-file=/dev/null --no-netrc --url "$PIES_CTLSOCK" shutdown pies_stop_spinner=0 while test -f $PIES_PIDFILE do sleep 1 pies_stop_spinner=$(($pies_stop_spinner + 1)) if test $pies_stop_spinner -gt 3; then kill `cat $PIES_PIDFILE` echo >&2 "timed out waiting for shutdown" fi done]) AT_INIT AT_TESTED([pies]) AT_BANNER([Initial]) m4_include([version.at]) m4_include([control.at]) AT_BANNER([Dependencies]) m4_include([cyclic.at]) AT_BANNER([Components]) m4_include([respawn.at]) m4_include([redirect.at]) m4_include([ret-exec.at]) m4_include([ret-notify.at]) m4_include([startup.at]) m4_include([shutdown.at]) m4_include([shell.at]) m4_include([sigterm.at]) m4_include([expandenv.at]) m4_include([shdnseq.at]) m4_include([inet.at]) m4_include([maxinst.at]) m4_include([builtin.at]) m4_include([passfd.at]) m4_include([accept.at]) m4_include([envop.at]) m4_include([env.at]) m4_include([envglobal.at])