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