From 6e6632ffd624ef46e5799fb4a73806976a84efb1 Mon Sep 17 00:00:00 2001
From: Ryan Plessner <plessner.ryan@gmail.com>
Date: Tue, 13 Jan 2015 22:07:48 -0500
Subject: [PATCH] tested hash-merge

---
 private/coveralls.rkt | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/private/coveralls.rkt b/private/coveralls.rkt
index 9534d25..6ed0dbc 100644
--- 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