! Test that a piped file remains in ram after pipe off. (Bug 2130)
! 
! Author:  W. Knight | J. Bauer
! Version: $Id: test_pipe_clear.mm,v 1.3 2010/04/26 15:42:48 jwb Exp $
!
startmacro
  wave ram_testfile{aux=ram} form=sf elem=16e3 shape=sin amp=16k freq=1e3 delta=1/8e3 

  pipe on
    noop ram_testfile _junkp
  pipe off

  files/n/list=fileList aux=ram
  assert/text="Pipe: ram files left in ram (Bug 2130)" "ram_testfile" subs ^fileList 
  assert/text="Pipe: pipe files NOT left in ram test (Bug 2130)" "_junkp" nsubs ^fileList 

endmacro
