#!/bin/sh -e

debug()
{
	echo $* >&2
}

askquestion()
{
	question=$1
	priority=$2
	echo FSET $question seen false
	read ans
	debug "$question fset ANS: $ans"
	echo INPUT $priority $question
	read ans
	debug "$question input ANS: $ans"
	echo GO
	read ans
	debug "$question go ANS: $ans"
	echo GET $question
	read ans
	debug "$question get ANS: $ans"
}

echo "SET debconf/language de"

read ans
debug "set debconf/language de ANS: $ans"

echo "INFO test/info"

read ans
debug "info ANS: $ans"

echo "SETTITLE test/title"

read ans
debug "settitle ANS: $ans"

echo "REGISTER test/string test/string-register"

read ans
debug "register ANS: $ans"

askquestion test/string-register critical

echo "SET debconf/language en"

read ans
debug "set debconf/language en ANS: $ans"

echo "SUBST test/text-subst TEXT yabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadooyabbadiyabbadoo 1234567890abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz"

read ans
debug "subst ANS: $ans"

askquestion "test/text-subst" critical

echo "SETTITLE test/title-2"

read ans
debug "settitle2 ANS: $ans"

echo "SUBST test/select EXTRA untranslated item 1, untranslated item 2"

read ans
debug "subst test/select EXTRA ANS: $ans"

echo "SUBST test/select EXTRA-TRANS translated item 1, translated item 2"

read ans
debug "subst test/select EXTRA-TRANS ANS: $ans"

for t in boolean boolean-no-default multiselect note password select string text; do
	askquestion "test/$t" critical
done

echo STOP
sleep 1
exit 0