Compare sorted hash table keys in test

This fixes a test failure with Clozure CL. The order of items returned by hash-table-keys is implementation-defined.
AccelerationNet · Jan 16, 2022 · 7f29f8d · 7f29f8d
1 parent 33d96fe
commit 7f29f8d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/access.lisp b/test/access.lisp
@@ -74,8 +74,8 @@
       (assert-equal value nil)
       (assert-equal present-p nil))
     (assert-equal
-        (list "something" "5" "four" "three" "two" "one")
-        (access +ht+ 'hash-table-keys))
+     (list "5" "four" "one" "something" "three" "two")
+     (sort (access +ht+ 'hash-table-keys) 'string<))
     (assert-equal 3 (accesses o 'pl 'three ))))
 
 (define-test test-with-access ()