! Test the basic functionality of the fsvi primitive.
!
! @author  Jeff Schoen
! @version $Id: test_fsvi.mm,v 1.3 2012/05/31 12:50:42 jgs Exp $
!
startmacro

  waveform nnx sf 128k white

  fft/mag nnx nna 1k navg=1
  fft/mag nnx nnb 1k navg=5
  fft/mag nnx nne 1k navg=1 /nexp=5

  fsvi nna nnc 0 5 aver
  assert/text="Comparing FFT avg vs FSVI avg output files" nnb feq/d nnc

! maybe these should be made to work the same but FFT's 1st frame is all zeros
!  fsvi nna nnc 0 5 exp
!  assert/text="Comparing FFT exp vs FSVI exp output files" nne feq/d nnc

  fsvi nna nnc 0 5 int
  fcalc nnc nnc 5 /
  assert/text="Comparing FFT avg vs FSVI int output files" nnb feq/t nnc

  erase nnx nna nnb nnc nne

endmacro
