diff options
Diffstat (limited to 'csc/hash-map-test.csc')
| -rw-r--r-- | csc/hash-map-test.csc | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/csc/hash-map-test.csc b/csc/hash-map-test.csc index 3e26570..f346e1e 100644 --- a/csc/hash-map-test.csc +++ b/csc/hash-map-test.csc @@ -83,3 +83,13 @@ (test lookup-notfound (assert-raises key-not-found-error? (lookup (alist->map hash-symbol cmp-symbols '((a . 1) (b . 2) (c . 3))) 'd))) + + +(test merge + (assert-equal + (sort-alist '((a . 1) (b . 2) (c . 3) (d . 4))) + (sort-alist + (map->alist + (merge + (alist->map hash-symbol cmp-symbols '((a . 1) (b . 2))) + (alist->map hash-symbol cmp-symbols '((c . 3) (d . 4)))))))) |