brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix tests after latest changes.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 10:33:46 +02:00
parent e127145681
commit 5106885c4e
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/csv-simple.scm
View file

@ -124,10 +124,10 @@
(run-tests (run-tests
csv-simple csv-simple
(test-equal? csv-parse-line (test-equal? csv-parse-line
((make-csv-line-parser ";" "\"") "test;2;3") ((make-csv-line-parser #\; #\") "test;2;3")
'("test" "2" "3")) '("test" "2" "3"))
(test-equal? csv-parse-line (test-equal? csv-parse-line
((make-csv-line-parser ";" "\"") "test;\"2;quoted\";3") ((make-csv-line-parser #\; #\") "test;\"2;quoted\";3")
'("test" "2;quoted" "3")) '("test" "2;quoted" "3"))
(test-equal? csv-split-header (test-equal? csv-split-header
(csv-split-header '((1 2) () (3 4))) (csv-split-header '((1 2) () (3 4)))

8
src/dictionary.scm
View file

@ -160,13 +160,13 @@
(test-equal? dict-map (dict-map (lambda (v) (* 2 v)) (test-equal? dict-map (dict-map (lambda (v) (* 2 v))
'((a . 1) '((a . 1)
(b . 2))) (b . 2)))
'((a . 2) '((b . 4)
(b . 4))) (a . 2)))
(test-equal? dict-map (dict-map (lambda (k v) (* 2 v)) (test-equal? dict-map (dict-map (lambda (k v) (* 2 v))
'((a . 1) '((a . 1)
(b . 2))) (b . 2)))
'((a . 2) '((b . 4)
(b . 4))) (a . 2)))
(test-equal? dict-filter (dict-filter (lambda (k v) (test-equal? dict-filter (dict-filter (lambda (k v)
(odd? v)) (odd? v))
'((a . 1) '((a . 1)