diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-06-16 16:52:38 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-06-16 16:52:38 +0200 |
commit | 09fb52b6c908606a0f4a5d5d118128c02de606c4 (patch) | |
tree | 80ae26726bde965c5fa8aa69ed6c5cee0b59f85f /test-suite/tests | |
parent | 556d35af88f01ba8cb6019de3a54e30e3f7f59d8 (diff) | |
download | guile-09fb52b6c908606a0f4a5d5d118128c02de606c4.tar.gz |
tests: Skip FFI tests that use `qsort' when it's not accessible.
* test-suite/tests/foreign.test ("procedure->pointer")[qsort]: Wrap in
`false-if-exception'.
["qsort", "qsort, wrong return type", "qsort, wrong arity"]: Throw
'unresolved when QSORT if #f.
Reported by Eli Zaretskii <eliz@gnu.org>.
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/foreign.test | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test index 66fd3d5aa..4b129db24 100644 --- a/test-suite/tests/foreign.test +++ b/test-suite/tests/foreign.test @@ -224,9 +224,13 @@ (define qsort ;; Bindings for libc's `qsort' function. - (pointer->procedure void - (dynamic-func "qsort" (dynamic-link)) - (list '* size_t size_t '*))) + ;; On some platforms, such as MinGW, `qsort' is visible only if + ;; linking with `-export-dynamic'. Just skip these tests when it's + ;; not visible. + (false-if-exception + (pointer->procedure void + (dynamic-func "qsort" (dynamic-link)) + (list '* size_t size_t '*)))) (define (dereference-pointer-to-byte ptr) (let ((b (pointer->bytevector ptr 1))) @@ -236,7 +240,7 @@ '(7 1 127 3 5 4 77 2 9 0)) (pass-if "qsort" - (if (defined? 'procedure->pointer) + (if (and qsort (defined? 'procedure->pointer)) (let* ((called? #f) (cmp (lambda (x y) (set! called? #t) @@ -254,7 +258,7 @@ (pass-if-exception "qsort, wrong return type" exception:wrong-type-arg - (if (defined? 'procedure->pointer) + (if (and qsort (defined? 'procedure->pointer)) (let* ((cmp (lambda (x y) #f)) ; wrong return type (ptr (procedure->pointer int cmp (list '* '*))) (bv (u8-list->bytevector input))) @@ -266,7 +270,7 @@ (pass-if-exception "qsort, wrong arity" exception:wrong-num-args - (if (defined? 'procedure->pointer) + (if (and qsort (defined? 'procedure->pointer)) (let* ((cmp (lambda (x y z) #f)) ; wrong arity (ptr (procedure->pointer int cmp (list '* '*))) (bv (u8-list->bytevector input))) |