From a6551d3c4b832ef4b724e6039c615dfd56d76b7e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 10 Mar 2016 06:49:57 -0800
Subject: Run IPv6 tests only on some operating systems.

* tests/014/dgram-stream.tl (test): Renamed to
dgram-test since now this includes common.tl which
has a macro called test.
Only include af-inet6 in the family list if
the OS is GNU/Linux, Darwin or Cygwin.

* tests/common.tl (osname): New function.
---
 tests/common.tl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests/common.tl')

diff --git a/tests/common.tl b/tests/common.tl
index 301a5402..ea2be1d5 100644
--- a/tests/common.tl
+++ b/tests/common.tl
@@ -19,3 +19,7 @@
 
 (defmacro stest (expr expected)
   ^(vtest ,^(tostring ,expr) ,expected))
+
+(defun osname ()
+  (with-stream (u (open-command "(uname -o || uname) 2> /dev/null"))
+    (get-line u)))
-- 
cgit v1.2.3