Added tests for interval-map-ref/bounds.

data-test/tests/data/interval-map.rkt

@@ -100,3 +100,56 @@
   (interval-map-expand! im a b)
   (vec-expand! a b)
   (check-all-refs))
+
+;; tests for interval-map-ref/bounds
+(let ([im (make-interval-map '())])
+  ;; check ref for empty map
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 5 #t)])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t)))
+(let ([im (make-interval-map '(((5 . 10) . "value")))])
+  ;; check refs for map with one value
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 5)])
+    (check-equal? s 5)
+    (check-equal? e 10)
+    (check-equal? v "value"))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 10 #t)])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 4 (λ () #t))])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t)))
+(let ([im (make-interval-map '(((5 . 10) . "value") ((20 . 30) . "other")))])
+  ;; check refs for map with multiple values
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 4 #t)])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 7)])
+    (check-equal? s 5)
+    (check-equal? e 10)
+    (check-equal? v "value"))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 15 #t)])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 22)])
+    (check-equal? s 20)
+    (check-equal? e 30)
+    (check-equal? v "other"))
+  (let-values ([(s e v)
+                (interval-map-ref/bounds im 30 #t)])
+    (check-equal? s #f)
+    (check-equal? e #f)
+    (check-equal? v #t)))