master: Adjust a test

The branch "master" has been updated in SBCL:
       via  5afb7d8a0a1f74d2bc95085c885f019653165b33 (commit)
      from  46780e06666c9654ace786d1b924a67b88c9d490 (commit)

- Log -----------------------------------------------------------------
commit 5afb7d8a0a1f74d2bc95085c885f019653165b33
Author: Stas Boukarev <[email protected]>
Date:   Mon Jun 22 21:41:50 2026 +0300

    Adjust a test
---
 tests/utf-8.pure.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/utf-8.pure.lisp b/tests/utf-8.pure.lisp
index a6e108a2e..bace29d42 100644
--- a/tests/utf-8.pure.lisp
+++ b/tests/utf-8.pure.lisp
@@ -465,13 +465,18 @@
         (assert (string= string readback3))))))
 
 
-(with-test (:name :utf8-strlen)
+(with-test (:name :utf8-strlen
+            :skipped-on :interpreter)
   (flet ((test (bytes expexcted-length &optional expexcted-ascii-p (offset 0))
            (let ((bytes (coerce bytes '(vector (unsigned-byte 8)))))
              (sb-sys:with-pinned-objects (bytes)
                (multiple-value-bind (length ascii-p)
                    (sb-vm::simd-utf8-strlen (sb-sys:sap+ (sb-sys:vector-sap bytes) offset))
-                 (assert (eql expexcted-length length))
+                 (unless (and (eql expexcted-length length)
+                              (eql expexcted-ascii-p ascii-p))
+                   (error "(sb-vm::simd-utf8-strlen (sb-sys:sap+ (sb-sys:vector-sap ~s) ~s)) => ~a, ~a; but ~a, ~a expected"
+                          bytes offset length ascii-p
+                          expexcted-length expexcted-ascii-p))
                  (assert (eql expexcted-ascii-p ascii-p)))))))
     (test '(1 2 0 255 255) 2 t)
     (test (append (loop for i from 1 to 64 collect i) '(0 1 255)) 64 t)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL