From c0fb4b5c028fb81938b0f89f703307c8c3ae56ad Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Wed, 29 Jul 2009 10:06:22 +1000
Subject: Skip some tests if no eventloop

---
 tcltests/test_clientserver.tcl | 4 ++++
 tcltests/test_eventloop.tcl    | 3 +++
 2 files changed, 7 insertions(+)

(limited to 'tcltests')

diff --git a/tcltests/test_clientserver.tcl b/tcltests/test_clientserver.tcl
index 7cdb524..c1e555e 100644
--- a/tcltests/test_clientserver.tcl
+++ b/tcltests/test_clientserver.tcl
@@ -1,3 +1,7 @@
+if {[info commands vwait] eq ""} {
+	return "noimpl"
+}
+
 proc bgerror {msg} {
 	#puts "bgerror: $msg"
 	#exit 0
diff --git a/tcltests/test_eventloop.tcl b/tcltests/test_eventloop.tcl
index 4246e20..f32a708 100644
--- a/tcltests/test_eventloop.tcl
+++ b/tcltests/test_eventloop.tcl
@@ -1,3 +1,6 @@
+if {[info commands vwait] eq ""} {
+	return "noimpl"
+}
 
 set f [aio.socket stream localhost:80]
 
-- 
cgit v1.1