diff options
Diffstat (limited to 'Examples/test-suite/guile/argout_runme.scm')
| -rw-r--r-- | Examples/test-suite/guile/argout_runme.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Examples/test-suite/guile/argout_runme.scm b/Examples/test-suite/guile/argout_runme.scm index 8bbb96cc9..16f2aeb1c 100644 --- a/Examples/test-suite/guile/argout_runme.scm +++ b/Examples/test-suite/guile/argout_runme.scm @@ -2,15 +2,19 @@ ;; https://www.gnu.org/software/guile/manual/html_node/Void-Pointers-and-Byte-Access.html (dynamic-call "scm_init_argout_module" (dynamic-link "./libargout")) -(use-modules (srfi srfi-4) (system foreign)) - (define initial-value 42) (define some-s32-data (s32vector initial-value)) -(if (not (= (incp (bytevector->pointer some-s32-data)) initial-value)) - (error "Didn't read s32 data" initial-value some-s32-data)) +;; if we're running guile 1.8, then bytevector->pointer won't exist and this +;; test is useless +(if (>= (string->number (major-version)) 2) + (begin + (use-modules (srfi srfi-4) (system foreign)) + + (if (not (= (incp (bytevector->pointer some-s32-data)) initial-value)) + (error "Didn't read s32 data" initial-value some-s32-data)) -(if (not (= (s32vector-ref some-s32-data 0) (+ initial-value 1))) - (error "Failed to increment s32 data" some-s32-data)) + (if (not (= (s32vector-ref some-s32-data 0) (+ initial-value 1))) + (error "Failed to increment s32 data" some-s32-data)))) (exit 0) |