diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-11-20 18:53:24 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-11-20 18:53:24 -0800 |
| commit | 0a4c8368263bf2b9258f02fea12c60825d780885 (patch) | |
| tree | 6abf903895cd28d4e9f9ba68ff0803e45186c388 | |
| parent | 47c863dbab992cb476e902eb99d2fe330345dbe5 (diff) | |
| download | txr-0a4c8368263bf2b9258f02fea12c60825d780885.tar.gz txr-0a4c8368263bf2b9258f02fea12c60825d780885.tar.bz2 txr-0a4c8368263bf2b9258f02fea12c60825d780885.zip | |
tests: fix FFI libpng setjmp test case for Solaris 10.
* tests/017/setjmp.tl: Solaris has libpng.so, but but some
version without png_set_longjmp_fn. We add a test for the
presence of this function as a precondition for running
the real test.
| -rw-r--r-- | tests/017/setjmp.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/017/setjmp.tl b/tests/017/setjmp.tl index 6cb64b5a..bac25957 100644 --- a/tests/017/setjmp.tl +++ b/tests/017/setjmp.tl @@ -9,7 +9,8 @@ (put-string "libpng longjmp\nlibpng error 42\n") (exit)) -(unless (ignerr (dlopen "libpng.so")) +(unless (ignerr (let ((png (dlopen "libpng.so"))) + (nequal cptr-null (dlsym png "png_set_longjmp_fn")))) (png-fake-output)) ;; needed by png-set-longjmp-fn API |