(have-llvect?): Removed, Scheme code will always

have u64 and s64 uniform vectors.

diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test
index c69a315..1a2b254 100644 (file)
--- a/test-suite/tests/unif.test
+++ b/test-suite/tests/unif.test
@@ -19,10 +19,6 @@
 (define-module (test-suite test-unif)
   #:use-module (test-suite lib))
 
-;; true if long long uniform arrays are available
-(define have-llvect?  (false-if-exception (make-uniform-vector 1 'l)))
-
-
 ;;;
 ;;; array?
 ;;;
@@ -68,126 +64,117 @@
       (pass-if (eq? #f (typed-array? scm      'a))))
 
     (with-test-prefix "is byte"
-      (pass-if (eq? #f (typed-array? bool        'u8)))
-      (pass-if (eq? #f (typed-array? char        'u8)))
-      (pass-if (eq? #t (typed-array? byte        'u8)))
-      (pass-if (eq? #f (typed-array? short       'u8)))
-      (pass-if (eq? #f (typed-array? ulong       'u8)))
-      (pass-if (eq? #f (typed-array? long        'u8)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 'u8))))
+      (pass-if (eq? #f (typed-array? bool     'u8)))
+      (pass-if (eq? #f (typed-array? char     'u8)))
+      (pass-if (eq? #t (typed-array? byte     'u8)))
+      (pass-if (eq? #f (typed-array? short    'u8)))
+      (pass-if (eq? #f (typed-array? ulong    'u8)))
+      (pass-if (eq? #f (typed-array? long     'u8)))
+      (pass-if (eq? #f (typed-array? longlong 'u8)))
       (pass-if (eq? #f (typed-array? float    'u8)))
       (pass-if (eq? #f (typed-array? double   'u8)))
       (pass-if (eq? #f (typed-array? complex  'u8)))
       (pass-if (eq? #f (typed-array? scm      'u8))))
 
     (with-test-prefix "is short"
-      (pass-if (eq? #f (typed-array? bool        's16)))
-      (pass-if (eq? #f (typed-array? char        's16)))
-      (pass-if (eq? #f (typed-array? byte        's16)))
-      (pass-if (eq? #t (typed-array? short       's16)))
-      (pass-if (eq? #f (typed-array? ulong       's16)))
-      (pass-if (eq? #f (typed-array? long        's16)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 's16))))
+      (pass-if (eq? #f (typed-array? bool     's16)))
+      (pass-if (eq? #f (typed-array? char     's16)))
+      (pass-if (eq? #f (typed-array? byte     's16)))
+      (pass-if (eq? #t (typed-array? short    's16)))
+      (pass-if (eq? #f (typed-array? ulong    's16)))
+      (pass-if (eq? #f (typed-array? long     's16)))
+      (pass-if (eq? #f (typed-array? longlong 's16)))
       (pass-if (eq? #f (typed-array? float    's16)))
       (pass-if (eq? #f (typed-array? double   's16)))
       (pass-if (eq? #f (typed-array? complex  's16)))
       (pass-if (eq? #f (typed-array? scm      's16))))
 
     (with-test-prefix "is ulong"
-      (pass-if (eq? #f (typed-array? bool        'u32)))
-      (pass-if (eq? #f (typed-array? char        'u32)))
-      (pass-if (eq? #f (typed-array? byte        'u32)))
-      (pass-if (eq? #f (typed-array? short       'u32)))
-      (pass-if (eq? #t (typed-array? ulong       'u32)))
-      (pass-if (eq? #f (typed-array? long        'u32)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 'u32))))
+      (pass-if (eq? #f (typed-array? bool     'u32)))
+      (pass-if (eq? #f (typed-array? char     'u32)))
+      (pass-if (eq? #f (typed-array? byte     'u32)))
+      (pass-if (eq? #f (typed-array? short    'u32)))
+      (pass-if (eq? #t (typed-array? ulong    'u32)))
+      (pass-if (eq? #f (typed-array? long     'u32)))
+      (pass-if (eq? #f (typed-array? longlong 'u32)))
       (pass-if (eq? #f (typed-array? float    'u32)))
       (pass-if (eq? #f (typed-array? double   'u32)))
       (pass-if (eq? #f (typed-array? complex  'u32)))
       (pass-if (eq? #f (typed-array? scm      'u32))))
 
     (with-test-prefix "is long"
-      (pass-if (eq? #f (typed-array? bool        's32)))
-      (pass-if (eq? #f (typed-array? char        's32)))
-      (pass-if (eq? #f (typed-array? byte        's32)))
-      (pass-if (eq? #f (typed-array? short       's32)))
-      (pass-if (eq? #f (typed-array? ulong       's32)))
-      (pass-if (eq? #t (typed-array? long        's32)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 's32))))
+      (pass-if (eq? #f (typed-array? bool     's32)))
+      (pass-if (eq? #f (typed-array? char     's32)))
+      (pass-if (eq? #f (typed-array? byte     's32)))
+      (pass-if (eq? #f (typed-array? short    's32)))
+      (pass-if (eq? #f (typed-array? ulong    's32)))
+      (pass-if (eq? #t (typed-array? long     's32)))
+      (pass-if (eq? #f (typed-array? longlong 's32)))
       (pass-if (eq? #f (typed-array? float    's32)))
       (pass-if (eq? #f (typed-array? double   's32)))
       (pass-if (eq? #f (typed-array? complex  's32)))
       (pass-if (eq? #f (typed-array? scm      's32))))
 
     (with-test-prefix "is long long"
-      (pass-if (eq? #f (typed-array? bool        's64)))
-      (pass-if (eq? #f (typed-array? char        's64)))
-      (pass-if (eq? #f (typed-array? byte        's64)))
-      (pass-if (eq? #f (typed-array? short       's64)))
-      (pass-if (eq? #f (typed-array? ulong       's64)))
-      (pass-if (eq? #f (typed-array? long        's64)))
-      (if have-llvect?
-         (pass-if (eq? #t (typed-array? longlong 's64))))
+      (pass-if (eq? #f (typed-array? bool     's64)))
+      (pass-if (eq? #f (typed-array? char     's64)))
+      (pass-if (eq? #f (typed-array? byte     's64)))
+      (pass-if (eq? #f (typed-array? short    's64)))
+      (pass-if (eq? #f (typed-array? ulong    's64)))
+      (pass-if (eq? #f (typed-array? long     's64)))
+      (pass-if (eq? #t (typed-array? longlong 's64)))
       (pass-if (eq? #f (typed-array? float    's64)))
       (pass-if (eq? #f (typed-array? double   's64)))
       (pass-if (eq? #f (typed-array? complex  's64)))
       (pass-if (eq? #f (typed-array? scm      's64))))
 
     (with-test-prefix "is float"
-      (pass-if (eq? #f (typed-array? bool        'f32)))
-      (pass-if (eq? #f (typed-array? char        'f32)))
-      (pass-if (eq? #f (typed-array? byte        'f32)))
-      (pass-if (eq? #f (typed-array? short       'f32)))
-      (pass-if (eq? #f (typed-array? ulong       'f32)))
-      (pass-if (eq? #f (typed-array? long        'f32)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 'f32))))
+      (pass-if (eq? #f (typed-array? bool     'f32)))
+      (pass-if (eq? #f (typed-array? char     'f32)))
+      (pass-if (eq? #f (typed-array? byte     'f32)))
+      (pass-if (eq? #f (typed-array? short    'f32)))
+      (pass-if (eq? #f (typed-array? ulong    'f32)))
+      (pass-if (eq? #f (typed-array? long     'f32)))
+      (pass-if (eq? #f (typed-array? longlong 'f32)))
       (pass-if (eq? #t (typed-array? float    'f32)))
       (pass-if (eq? #f (typed-array? double   'f32)))
       (pass-if (eq? #f (typed-array? complex  'f32)))
       (pass-if (eq? #f (typed-array? scm      'f32))))
 
     (with-test-prefix "is double"
-      (pass-if (eq? #f (typed-array? bool        'f64)))
-      (pass-if (eq? #f (typed-array? char        'f64)))
-      (pass-if (eq? #f (typed-array? byte        'f64)))
-      (pass-if (eq? #f (typed-array? short       'f64)))
-      (pass-if (eq? #f (typed-array? ulong       'f64)))
-      (pass-if (eq? #f (typed-array? long        'f64)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 'f64))))
+      (pass-if (eq? #f (typed-array? bool     'f64)))
+      (pass-if (eq? #f (typed-array? char     'f64)))
+      (pass-if (eq? #f (typed-array? byte     'f64)))
+      (pass-if (eq? #f (typed-array? short    'f64)))
+      (pass-if (eq? #f (typed-array? ulong    'f64)))
+      (pass-if (eq? #f (typed-array? long     'f64)))
+      (pass-if (eq? #f (typed-array? longlong 'f64)))
       (pass-if (eq? #f (typed-array? float    'f64)))
       (pass-if (eq? #t (typed-array? double   'f64)))
       (pass-if (eq? #f (typed-array? complex  'f64)))
       (pass-if (eq? #f (typed-array? scm      'f64))))
 
     (with-test-prefix "is complex"
-      (pass-if (eq? #f (typed-array? bool        'c64)))
-      (pass-if (eq? #f (typed-array? char        'c64)))
-      (pass-if (eq? #f (typed-array? byte        'c64)))
-      (pass-if (eq? #f (typed-array? short       'c64)))
-      (pass-if (eq? #f (typed-array? ulong       'c64)))
-      (pass-if (eq? #f (typed-array? long        'c64)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong 'c64))))
+      (pass-if (eq? #f (typed-array? bool     'c64)))
+      (pass-if (eq? #f (typed-array? char     'c64)))
+      (pass-if (eq? #f (typed-array? byte     'c64)))
+      (pass-if (eq? #f (typed-array? short    'c64)))
+      (pass-if (eq? #f (typed-array? ulong    'c64)))
+      (pass-if (eq? #f (typed-array? long     'c64)))
+      (pass-if (eq? #f (typed-array? longlong 'c64)))
       (pass-if (eq? #f (typed-array? float    'c64)))
       (pass-if (eq? #f (typed-array? double   'c64)))
       (pass-if (eq? #t (typed-array? complex  'c64)))
       (pass-if (eq? #f (typed-array? scm      'c64))))
 
     (with-test-prefix "is scm"
-      (pass-if (eq? #f (typed-array? bool        #t)))
-      (pass-if (eq? #f (typed-array? char        #t)))
-      (pass-if (eq? #f (typed-array? byte        #t)))
-      (pass-if (eq? #f (typed-array? short       #t)))
-      (pass-if (eq? #f (typed-array? ulong       #t)))
-      (pass-if (eq? #f (typed-array? long        #t)))
-      (if have-llvect?
-         (pass-if (eq? #f (typed-array? longlong #t))))
+      (pass-if (eq? #f (typed-array? bool     #t)))
+      (pass-if (eq? #f (typed-array? char     #t)))
+      (pass-if (eq? #f (typed-array? byte     #t)))
+      (pass-if (eq? #f (typed-array? short    #t)))
+      (pass-if (eq? #f (typed-array? ulong    #t)))
+      (pass-if (eq? #f (typed-array? long     #t)))
+      (pass-if (eq? #f (typed-array? longlong #t)))
       (pass-if (eq? #f (typed-array? float    #t)))
       (pass-if (eq? #f (typed-array? double   #t)))
       (pass-if (eq? #f (typed-array? complex  #t)))