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
csv-simple
(test-equal? csv-parse-line
((make-csv-line-parser ";" "\"") "test;2;3")
((make-csv-line-parser #\; #\") "test;2;3")
'("test" "2" "3"))
(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-equal? csv-split-header
(csv-split-header '((1 2) () (3 4)))

10
src/dictionary.scm
View file

@ -121,7 +121,7 @@
(proc v)))
r))
(add1 i))))))
;; Returns a dictionary containing only kv pairs matching the
;; predicate which must accept two arguments. Unlike list filter,
;; does not perform final reverse on the result.
@ -160,13 +160,13 @@
(test-equal? dict-map (dict-map (lambda (v) (* 2 v))
'((a . 1)
(b . 2)))
'((a . 2)
(b . 4)))
'((b . 4)
(a . 2)))
(test-equal? dict-map (dict-map (lambda (k v) (* 2 v))
'((a . 1)
(b . 2)))
'((a . 2)
(b . 4)))
'((b . 4)
(a . 2)))
(test-equal? dict-filter (dict-filter (lambda (k v)
(odd? v))
'((a . 1)