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 | f049d7a3e52768b6e59940174135f31a5580144b (patch) | |
| tree | 6abf903895cd28d4e9f9ba68ff0803e45186c388 | |
| parent | 0de47cb1f9177a65acef2c0e8e39c04aba0018e6 (diff) | |
| download | txr-f049d7a3e52768b6e59940174135f31a5580144b.tar.gz txr-f049d7a3e52768b6e59940174135f31a5580144b.tar.bz2 txr-f049d7a3e52768b6e59940174135f31a5580144b.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 |