11 lines
211 B
Racket
11 lines
211 B
Racket
|
#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)
|