From 5106885c4e8de1ab665db4950ce1b63e6741b211 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 1 Apr 2023 10:33:46 +0200 Subject: [PATCH] Fix tests after latest changes. --- src/csv-simple.scm | 4 ++-- src/dictionary.scm | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/csv-simple.scm b/src/csv-simple.scm index e20689a..0daa7f0 100644 --- a/src/csv-simple.scm +++ b/src/csv-simple.scm @@ -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))) diff --git a/src/dictionary.scm b/src/dictionary.scm index 5c0f840..966ba61 100644 --- a/src/dictionary.scm +++ b/src/dictionary.scm @@ -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)