diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 18:52:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 18:52:18 -0700 |
| commit | 7872378ee23adf65c2bed5819a74811ed6e954fc (patch) | |
| tree | 6505d0bb50f6329fd3472ba45416088ebee8ad72 /tests/common.tl | |
| parent | b0c58add3f8ad3da79c6c536925cc7377d59612b (diff) | |
| download | txr-7872378ee23adf65c2bed5819a74811ed6e954fc.tar.gz txr-7872378ee23adf65c2bed5819a74811ed6e954fc.tar.bz2 txr-7872378ee23adf65c2bed5819a74811ed6e954fc.zip | |
tests: use internal OS identification method.
* tests/common.tl (osname): Function based on calling
shell command removed.
(os-symbol): New symbol-returning function based on
uname system call.
* tests/014/dgram-stream.tl (dgram-test): Use os-symbol
function rather than osname.
Diffstat (limited to 'tests/common.tl')
| -rw-r--r-- | tests/common.tl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/common.tl b/tests/common.tl index c0dda285..a61c0ff1 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -23,6 +23,12 @@ (defmacro mtest (. pairs) ^(progn ,*(mapcar (op cons 'test) (tuples 2 pairs)))) -(defun osname () - (with-stream (u (open-command "(uname -o || uname) 2> /dev/null")) - (get-line u))) +(defun os-symbol () + (let ((u (uname))) + [(orf (iff (f^ #/Linux/) (ret :linux)) + (iff (f^ #/SunOS/) (ret :solaris)) + (iff (f^ #/CYGWIN/) (ret :cygwin)) + (iff (f^ #/CYGNAL/) (ret :cygnal)) + (iff (f^ #/Darwin/) (ret :macos)) + (ret :unknown)) + u.sysname])) |