tested hash-merge

2015-01-13 22:07:48 -05:00 · 2015-01-13 22:07:48 -05:00 · 6e6632ffd6
commit 6e6632ffd6
parent 644965e0a9
1 changed files with 5 additions and 0 deletions
--- a/private/coveralls.rkt
+++ b/private/coveralls.rkt
@ -150,6 +150,11 @@

 (define (hash-merge h1 h2) (for/fold ([res h1]) ([(k v) h2]) (hash-set res k v)))

+(module+ test
+  (let ()
+    (check-equal? (hash-merge (hash 'foo 3 'bar 5) (hash 'baz 6))
+                  (hash 'foo 3 'bar 5 'baz 6))))
+

 ;; Git Magic