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