#lang racket/base
(require "blocking-box.rkt")
(require rackunit)
(define b (make-blocking-box))
(set-blocking-box! b 1)
(set-blocking-box! b 2)
(set-blocking-box! b 3)
(check-equal? (blocking-box-value b) 1)