test/test-sequencer.rkt
#lang racket

(require rackunit
         rackunit/text-ui)

;; 1 second of static at -20 dB
(define test-static
  (mono-signal->rsound 
   44100
   44100
   (lambda (t) (* 0.1 (random)))))

(run-tests
(test-suite "sequencer"
            
(let ()

  (define entry-heap (make-unplayed-heap))
  
  (heap-add-all! (list (entry )))
  
  )))