# This file is part of GNU pies testsuite. -*- Autotest -*- # Copyright (C) 2016-2017 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],[ pidfile="$PWD/pies.pid" ctlsock="unix://$PWD/pies.ctl"; cat > control.conf <<_EOT pidfile "$pidfile"; control { socket "$ctlsock"; } _EOT ]) m4_define([PIES_STOP],[ piesctl --url "$ctlsock" shutdown pies_stop_spinner=0 while test -f $pidfile do sleep 1 pies_stop_spinner=$(($pies_stop_spinner + 1)) if test $pies_stop_spinner -gt 3; then kill `cat $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([Components]) m4_include([respawn.at]) m4_include([redirect.at]) m4_include([ret-exec.at]) m4_include([ret-notify.at])