diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 19:01:53 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 19:01:53 -0700 |
| commit | 9bed01c59d5f5fe0bbc9d025ae95cf3b9518d5a7 (patch) | |
| tree | 8900b2665c83354fbab2cc206bb2843d2e2dcad5 /tests/common.tl | |
| parent | 7872378ee23adf65c2bed5819a74811ed6e954fc (diff) | |
| download | txr-9bed01c59d5f5fe0bbc9d025ae95cf3b9518d5a7.tar.gz txr-9bed01c59d5f5fe0bbc9d025ae95cf3b9518d5a7.tar.bz2 txr-9bed01c59d5f5fe0bbc9d025ae95cf3b9518d5a7.zip | |
tests: first FFI regression test case.
* tests/017/qsort.expected: New file.
* tests/017/qsort.tl: New file.
* tests/common.tl (libc): New function.
* Makefile (tst/tests/017/%): Clear TXR_DBG_OPTS so the GC
stress test isn't applied to tests in this directory.
Diffstat (limited to 'tests/common.tl')
| -rw-r--r-- | tests/common.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/common.tl b/tests/common.tl index a61c0ff1..3cd5df63 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -32,3 +32,8 @@ (iff (f^ #/Darwin/) (ret :macos)) (ret :unknown)) u.sysname])) + +(defun libc () + (caseql (os-symbol) + ((:linux :solaris :macos) (dlopen nil)) + ((:cygwin) (dlopen "cygwin1.dll")))) |