diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 16:11:12 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
commit | cd03e92578bff36a44d75518a3e99a446f6dbe65 (patch) | |
tree | 3f8b08dde050a3a296dc6b0aa407fc944de6f7ed /tests/unit/util/hnh-util.scm | |
parent | Add proper text calendar. (diff) | |
download | calp-cd03e92578bff36a44d75518a3e99a446f6dbe65.tar.gz calp-cd03e92578bff36a44d75518a3e99a446f6dbe65.tar.xz |
Fix sort*! test.
Literal lists may be immutable, and sort*! may modify it's argument.
Therefore a guaranteed mutable list must be sent.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/util/hnh-util.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/unit/util/hnh-util.scm b/tests/unit/util/hnh-util.scm index 79b86b54..3e8fbb6a 100644 --- a/tests/unit/util/hnh-util.scm +++ b/tests/unit/util/hnh-util.scm @@ -154,7 +154,7 @@ ;; not required. (test-equal "sort*!" '("a" "Hello" "Assparagus") - (sort*! '("Hello" "a" "Assparagus") + (sort*! (list-copy '("Hello" "a" "Assparagus")) < string-length))) |