From 6778c36ca8204d45fdaef06cf54c094f75689e26 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Wed, 1 Feb 2023 14:33:41 +1000 Subject: vwait -signal docs and test script Signed-off-by: Steve Bennett --- examples/vwaitsignal.tcl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 examples/vwaitsignal.tcl (limited to 'examples') diff --git a/examples/vwaitsignal.tcl b/examples/vwaitsignal.tcl new file mode 100644 index 0000000..d59879a --- /dev/null +++ b/examples/vwaitsignal.tcl @@ -0,0 +1,26 @@ +# In lieu of some proper unit tests, this example +# checks that vwait can be interrupted by handled signals + +set f [open "/dev/urandom" r] + +set count 0 + +$f ndelay 1 + +signal handle SIGALRM + +$f readable { + incr count [string bytelength [read $f 100]] +} + + +set start [clock millis] + +# Even though nothing sets 'done', vwait will return on the signal +alarm 0.5 +vwait -signal done + +set end [clock millis] +puts "Read $count bytes and received [signal check -clear] after $($end - $start)ms" + +$f close -- cgit v1.1