fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

chore: add identity test for hash-table transducer

Browse Source
This commit is contained in:
Edward Langley
2023-03-26 11:11:31 -07:00
parent f51e305922
commit e0688b8fcc
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
t/transducers.lisp
View File

@ -225,6 +225,16 @@
(prog1 (list it count) (prog1 (list it count)
(incf count)))) (incf count))))
'(:p :l :i :s :t))))) '(:p :l :i :s :t)))))
(let ((l '((1 . 2)
(2 . 3)
(3 . 4))))
(5am:is (equal l
(sort (alexandria:hash-table-alist
(data-lens.transducers:into (make-hash-table)
(data-lens.transducers:mapping 'identity)
(alexandria:alist-hash-table l)))
'<
:key 'car))))
(loop for type in '(vector list) (loop for type in '(vector list)
do (5am:is (equalp #(1 2 3 4 5 6) do (5am:is (equalp #(1 2 3 4 5 6)