From 0cf116128bd784bf9307c857b50405b4e5ee2efb Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Fri, 13 Dec 2013 16:32:13 +0100 Subject: [PATCH] Skip unsigned (long) long integer tests on OS X with guile 1.8 --- Examples/test-suite/schemerunme/integers.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Examples/test-suite/schemerunme/integers.scm b/Examples/test-suite/schemerunme/integers.scm index 903e6a9f1..7c03c3dd8 100644 --- a/Examples/test-suite/schemerunme/integers.scm +++ b/Examples/test-suite/schemerunme/integers.scm @@ -34,10 +34,16 @@ (check-range signed-int-identity signed-int-min signed-int-max) (check-range unsigned-int-identity 0 unsigned-int-max) (check-range signed-long-identity signed-long-min signed-long-max) - (check-range unsigned-long-identity 0 unsigned-long-max) - ;;; long long not implemented in Guile and MzScheme. (check-range signed-long-long-identity signed-long-long-min signed-long-long-max) - (check-range unsigned-long-long-identity 0 unsigned-long-long-max) + + ;;; unsigned (long) long is broken in guile 1.8 on Mac OS X, skip test + (if (or (>= (string->number (major-version)) 2) + (not (equal? (utsname:sysname (uname)) "Darwin"))) + (begin + (check-range unsigned-long-identity 0 unsigned-long-max) + (check-range unsigned-long-long-identity 0 unsigned-long-long-max)) + ) + ) (exit 0)