picolisp

commit 0c2d8d3375ea68ee4c5de88cd69f8baf1aac2996
parent 792ede3627f30152b6a89138deb8fd867237b3bc
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 22 Feb 2011 18:30:35 +0100

Skip (sigio) unit test for SunOS
Diffstat:
M
test/src/main.l
 | 
21
+++++++++++----------

1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/test/src/main.l b/test/src/main.l
@@ -1,4 +1,4 @@
-# 07dec10abu
+# 22feb11abu
 # (c) Software Lab. Alexander Burger
 
 ### alarm ###
@@ -11,15 +11,16 @@
 
 
 ### sigio ###
-(off "SigVal")
-(sigio (setq "SigSock" (port T 4444))
-   (setq "SigVal" (udp "SigSock")) )
-(test '((setq "SigVal" (udp "SigSock"))) (sigio))
-(udp "localhost" 4444 '(a b c))
-(wait 200)
-(test '(a b c) "SigVal")
-(sigio "SigSock")
-(test NIL (sigio))
+(unless (= *OS "SunOS")
+   (off "SigVal")
+   (sigio (setq "SigSock" (port T 4444))
+      (setq "SigVal" (udp "SigSock")) )
+   (test '((setq "SigVal" (udp "SigSock"))) (sigio))
+   (udp "localhost" 4444 '(a b c))
+   (wait 200)
+   (test '(a b c) "SigVal")
+   (sigio "SigSock")
+   (test NIL (sigio)) )
 
 
 ### protect ###