+#!/usr/bin/wish
+
+# usage:
+# run show-thing without args
+# then on stdin write
+# one line which is a Tcl list for foolist
+# the xpm in the format expected
+# then expect child to raise SIGSTOP or exit 0 or exit nonzero
+# if child raised SIGSTOP, check database was updated