diff options
Diffstat (limited to 'test-suite/tests/foreign.test')
-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))) |