From 3d5db752ffeaf40e616198872083b3a00eadc36b Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Thu, 12 Aug 2010 12:37:56 +1000
Subject: Small improvements to tests

Make exec-9.7 test more reliable
Quieten jim tests unless running manually
Add jim pipe example

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 examples/pipe.tcl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 examples/pipe.tcl

(limited to 'examples/pipe.tcl')

diff --git a/examples/pipe.tcl b/examples/pipe.tcl
new file mode 100644
index 0000000..6b10dbd
--- /dev/null
+++ b/examples/pipe.tcl
@@ -0,0 +1,16 @@
+lassign [socket pipe] r w
+
+# Note, once the exec has the fh (via dup), close it
+# so that the pipe data is accessible
+exec ps aux >@$w &
+$w close
+
+$r readable {
+	puts [$r gets]
+	if {[eof $r]} {
+		$r close
+		set done 1
+	}
+}
+
+vwait done
-- 
cgit v1.1