test/play-stream-test.rkt
#lang racket

(require "../main.rkt")

(stop)
(printf "tone should be uninterrupted, 2 seconds long.")
(define t (make-tone 441 0.2 22000))
(play/s/f t 0)
(play/s/f t 22000)
(play/s/f t 44000)
(play/s/f t 66000)

(sleep 3.0)