tools/tesh/catch-timeout.tesh

   1 #! ./tesh
   2
   3 # This suite must be functional because we changed the timeout value to 10
   4 # before sleeping 6 secs.
   5
   6 ! expect return 3
   7 < ! timeout 1
   8 < $ sleep 6
   9 > Test suite from stdin
  10 > [(stdin):2] sleep 6
  11 > <(stdin):2> timeouted. Kill the process.
  12 > Test suite `(stdin)': NOK (<(stdin):2> timeout after 1 sec)
  13 > <(stdin):2> No output so far.
  14 $ perl ${bindir:=.}/tesh