diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-14 21:06:26 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-14 21:06:26 -0800 |
| commit | a968e8595b999d5c0a43c59de69bcb4f34e205c1 (patch) | |
| tree | 248ee958532eaaa07ed32c58a8dc3d3709ce9afc /csc/hash-map-test.csc | |
| parent | 85a1d8d269383cc061d54cf4e1af0254a6c6ccb7 (diff) | |
| download | chromatopelma-a968e8595b999d5c0a43c59de69bcb4f34e205c1.tar.zst | |
Write a first draft macro expander.
Committing it because it compiles. I have to write tests and debug
it still.
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)))))))) |