#lang racket

(require "../s16vec-record.rkt"
         ffi/vector
         rackunit
         rackunit/text-ui
         plot)

(define channels 2)

(run-tests
(test-suite "s16vec-record"
(let ()
  
  (define s (s16vec-record 22050 44100.0))
  
  (check-equal? (* 22050 2) (s16vector-length s))
  
  ;;(rsound s 0 22050 22050.0)
  
  

  )))