#!/bin/sh

set -e
cd $AUTOPKGTEST_TMP

rls() {
  echo $(ls /etc/rc*.d/[SK][0-9][0-9]$1 | sed -r 's,.*/([SK])[^/]*,\1,g')
}

do_tmux() {
  echo "+ tmux" "$@"
  tmux -Lui-test "$@"
}

send_wait_get() {
  [ -z "$1" ] || do_tmux send-key $1
  sleep ${2:-0}
  do_tmux capture-pane -p | tee screen
}

do_tmux new-session -d /usr/sbin/sysv-rc-conf; sleep 3
send_wait_get
if grep 'systemd is init' screen
then
  send_wait_get Enter 1
fi
grep -E 'atd +\[ \] +\[X\] +\[X\] +\[X\] +\[X\] +\[ \] +\[ \] +\[~\]' screen
test "$(rls atd)" = "K K S S S S K"
send_wait_get m 1
grep -E 'atd +\[ \] +\[ \] +\[ \] +\[ \] +\[ \] +\[ \] +\[ \] +\[~\]' screen
test "$(rls atd)" = "K K K K K K K"
send_wait_get d 1
test "$(rls atd)" = "K K S S S S K"
send_wait_get q 1 || true
do_tmux kill-session || true
echo "Done."
