#!/bin/sh

# Test FI routines
#
# $Id: tFIroutines 1.6 1998/07/06 libtsp-v3r0 $

echo ""
echo "========== tFIKaiserLPF"
tFIKaiserLPF 27 0.2 3.952		# Example from Antoniou

echo ""
echo "========== tFIconvol"
tFIconvol 0 0 1 1 1 // 5 5 5

echo ""
echo "========== tFIwinXXX"
tFIwinXXX R 9 7
tFIwinXXX R 8 6
tFIwinXXX R 5 5
tFIwinXXX H 9 0.46
tFIwinXXX H 8 0.46
tFIwinXXX H 9 0.5
tFIwinXXX H 5 0.0
tFIwinXXX K 9 0
tFIwinXXX K 9 2
tFIwinXXX K 8 1
tFIwinXXX K 9 5
tFIwinXXX G 24 0.46

echo ""
echo "========== tFIreadFilt"
cat << EoF > test.cof
!FIR
0.5
1.0 1.5

2.0
EoF
tFIreadFilt test.cof		# test ignore blank lines
rm -rf test.cof

cat << EoF > test.cof
!IIR
0.5 1.0 1.5 2.0 2.5
xx
EoF
tFIreadFilt test.cof 2>&1	# test too many records
rm -rf test.cof

cat << EoF > test.cof
!IIRabc
0.5 1.0 1.5 2.0 2.5
! more comments

EoF
tFIreadFilt test.cof		# test trailing blank lines
rm -rf test.cof

cat << EoF > test.cof
!IIR
0.5 1.0 1.5 2.0
EoF
tFIreadFilt test.cof 2>&1	# test invalid IIR filter
rm -rf test.cof

cat << EoF > test.cof
0.5 1.0 1.5 2.0
EoF
tFIreadFilt test.cof		# test no filter type
rm -rf test.cof
