-AT_SETUP([vlog - vlog/reopen can't reopen log file - Python])
-AT_SKIP_IF([test $HAVE_PYTHON = no])
-
-# Verify that /dev/full is a character device that fails writes.
-AT_SKIP_IF([test ! -c /dev/full])
-AT_SKIP_IF([echo > /dev/full])
-
-on_exit 'kill `cat test-unixctl.py.pid`'
-
-AT_CHECK([$PYTHON $srcdir/test-unixctl.py --log-file=`pwd`/log --pidfile --detach])
-AT_CHECK([APPCTL -t test-unixctl.py log message])
-mv log log.old
-ln -s /dev/full log
-AT_CHECK([APPCTL -t test-unixctl.py vlog/reopen])
-AT_CHECK([APPCTL -t test-unixctl.py log message2])
-rm log
-AT_CHECK([APPCTL -t test-unixctl.py vlog/reopen])
-AT_CHECK([APPCTL -t test-unixctl.py log message3])
-AT_CHECK([APPCTL -t test-unixctl.py exit])
-AT_CHECK([sed 's/.*|//' log.old], [0], [dnl
+m4_define([VLOG_CANT_REOPEN_PYN],
+ [AT_SETUP([vlog - vlog/reopen can't reopen log file - $1])
+ AT_SKIP_IF([test $2 = no])
+
+ # Verify that /dev/full is a character device that fails writes.
+ AT_SKIP_IF([test ! -c /dev/full])
+ AT_SKIP_IF([echo > /dev/full])
+
+ on_exit 'kill `cat test-unixctl.py.pid`'
+
+ AT_CHECK([$3 $srcdir/test-unixctl.py --log-file=`pwd`/log --pidfile --detach])
+ AT_CHECK([APPCTL -t test-unixctl.py log message])
+ mv log log.old
+ ln -s /dev/full log
+ AT_CHECK([APPCTL -t test-unixctl.py vlog/reopen])
+ AT_CHECK([APPCTL -t test-unixctl.py log message2])
+ rm log
+ AT_CHECK([APPCTL -t test-unixctl.py vlog/reopen])
+ AT_CHECK([APPCTL -t test-unixctl.py log message3])
+ AT_CHECK([APPCTL -t test-unixctl.py exit])
+ AT_CHECK([sed 's/.*|//' log.old], [0], [dnl