mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
35 lines
1.5 KiB
Common Lisp
35 lines
1.5 KiB
Common Lisp
;;; Under the evaluator
|
|
;;; (SB-SIMD-TEST-SUITE::|SB-SIMD-SSE4.1:U32.4-IF|)
|
|
;;; failed for me with
|
|
;;; RESULT-0 = #<SIMD-PACK 33554433 127 8191 2097153>,
|
|
;;; OUTPUT-0 = #<SIMD-PACK 3 8193 2303 1073741823>.
|
|
;;; maybe there are other problems but I didn't investigate further.
|
|
#+(or interpreter gc-stress) (invoke-restart 'run-tests::skip-file)
|
|
|
|
(handler-case (require :sb-simd)
|
|
(condition (c)
|
|
(cond ((search "Don't know how" (princ-to-string c))
|
|
(format t "~&Skipping test of sb-simd~%")
|
|
(invoke-restart 'run-tests::skip-file))
|
|
(t
|
|
(error "Unexpected error: ~A" c)))))
|
|
|
|
(with-compilation-unit ()
|
|
(dolist (file '("packages.lisp"
|
|
"numbers.lisp"
|
|
"utilities.lisp"
|
|
"test-suite.lisp"
|
|
"test-arefs.lisp"
|
|
#+x86-64 "test-arefs-x86-64.lisp"
|
|
#+arm64 "test-arefs-arm64.lisp"
|
|
"test-simple-simd-functions.lisp"
|
|
#+x86-64 "test-simple-simd-functions-x86-64.lisp"
|
|
#+arm64 "test-simple-simd-functions-arm64.lisp"
|
|
"test-horizontal-functions.lisp"
|
|
#+x86-64 "test-horizontal-functions-x86-64.lisp"
|
|
#+arm64 "test-horizontal-functions-arm64.lisp"
|
|
"test-hairy-simd-functions.lisp"
|
|
"test-packages.lisp"))
|
|
(load (merge-pathnames file #P"../contrib/sb-simd/test-suite/"))))
|
|
(sb-simd-test-suite::run-test-suite)
|