% TEST_MFIR_CLASS tests run on mfir class.
%
% M Hewitson 11-05-07
%
% $Id: test_mfir_class.m,v 1.5 2009/02/02 15:20:38 hewitson Exp $
%
function test_mfir_class()
  
  
  % Empty constructor
  f = mfir()
  
  % Lowpass from plist
  pl = plist('type', 'lowpass', 'Win', specwin('Kaiser', 10, 150), 'fs', 100, 'fc', 20);
  f  = mfir(pl)
  
  resp(f, plist('f1', 1,'f2', 50))
  
  % Highpass from plist
  pl = plist('type', 'highpass', 'Win', specwin('Kaiser', 10, 150), 'fs', 100, 'fc', 20);
  f  = mfir(pl)
  
  resp(f, plist('f1', 1,'f2', 50))
  
  % Bandpass from plist
  pl = plist('type', 'bandpass', 'fs', 100, 'order', 1024, 'fc', [0.1 10]);
  % pl.append('Win', specwin('Kaiser', 10, 250));
  f  = mfir(pl)
  
  resp(f, plist('f1', 0.0001,'f2', 50));
  
  % Bandreject from plist
  pl = plist('type', 'bandreject', 'fs', 100, 'order', 1024, 'fc', [0.1 10]);
  % pl.append('Win', specwin('Kaiser', 10, 250));
  f  = mfir(pl)
  
  resp(f, plist('f1', 0.0001, 'scale', 'log'));
  
end
% END