scolobb/dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

utils: Fix some transient test errors.

Browse Source
This commit is contained in:
Sergiu Ivanov 2022-01-16 23:18:14 +01:00
parent 75560658a0
commit 752d173279
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils.rkt
View File

@ -382,7 +382,7 @@
(module+ test
(test-case "list-sets->list-strings"
(check-equal? (list-sets->list-strings (list (set 'x 'y) (set 'z) (set) (set 't)))
'("y x" "z" "" "t"))))
'("x y" "z" "" "t"))))
;;; Pretty-prints a set of sets of symbols.
;;;
@ -535,7 +535,7 @@
(module+ test
(test-case "collect-by-key/sets"
(define-values (e3 l3) (collect-by-key/sets '(a b a) '(1 2 1)))
(check-equal? e3 '(a b)) (check-equal? l3 (list (set 1) (set 2)))))
(check-equal? e3 '(b a)) (check-equal? l3 (list (set 2) (set 1)))))
;;; Converts the values of a hash table from lists to sets.
(define (ht-values/list->set ht)