master: Adjust a test.
stassats via Sbcl-commits <[email protected]> Fri, 03 Jul 2026 21:05:04 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via a238aa5c912b663bb24007154db7a832d91b526a (commit)
from a3e000bbd40963fbb2ce34c03f74f2c91a3aac03 (commit)
- Log -----------------------------------------------------------------
commit a238aa5c912b663bb24007154db7a832d91b526a
Author: Stas Boukarev <[email protected]>
Date: Fri Jul 3 23:54:12 2026 +0300
Adjust a test.
---
tests/utf-8.pure.lisp | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/tests/utf-8.pure.lisp b/tests/utf-8.pure.lisp
index cdbd0fec6..e55f0f546 100644
--- a/tests/utf-8.pure.lisp
+++ b/tests/utf-8.pure.lisp
@@ -476,7 +476,8 @@
(sb-vm::simd-utf8-strlen (sb-sys:sap+ (sb-sys:vector-sap bytes) offset))
(unless (and (eql expected-length length)
(eql expected-ascii-p ascii-p)
- (eql expected-byte-length byte-length))
+ (or (not expected-length)
+ (eql expected-byte-length byte-length)))
(error "(sb-vm::simd-utf8-strlen (sb-sys:sap+ (sb-sys:vector-sap ~s) ~s)) => ~a, ~a, ~a; but ~a, ~a, ~a expected"
bytes offset length byte-length ascii-p
expected-length expected-byte-length expected-ascii-p)))))))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL