wingo pushed a commit to branch wip-whippet
in repository guile.
commit 56f4fa6bc1eb04686775ae10947ef2b8282962da
Author: Andy Wingo <wi...@pobox.com>
AuthorDate: Wed Jul 16 10:12:31 2025 +0200
Update symbols.test for no more stringbuf-length in %symbol-dump
* test-suite/tests/symbols.test ("symbol internals"): Update.
---
test-suite/tests/symbols.test | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/test-suite/tests/symbols.test b/test-suite/tests/symbols.test
index 6fbc6be73..a42b30636 100644
--- a/test-suite/tests/symbols.test
+++ b/test-suite/tests/symbols.test
@@ -1,6 +1,6 @@
;;;; symbols.test --- test suite for Guile's symbols -*- scheme -*-
;;;;
-;;;; Copyright (C) 2001, 2006, 2008, 2009, 2011 Free Software Foundation, Inc.
+;;;; Copyright (C) 2001, 2006, 2008, 2009, 2011, 2025 Free Software
Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -42,7 +42,8 @@
(pass-if "length of new symbol same as stringbuf"
(let ((s 'def))
- (= (symbol-length s) (assq-ref (%symbol-dump s) 'stringbuf-length))))
+ (= (symbol-length s)
+ (string-length (assq-ref (%symbol-dump s) 'stringbuf-chars)))))
(pass-if "contents of new symbol same as stringbuf"
(let ((s 'ghi))
