% Test script for ao/attachm
%
% M Hewitson 23-02-08
%
% $Id: test_ao_attachm.m,v 1.2 2009/02/02 15:20:38 hewitson Exp $
%

function a_out = test_ao_attachm
  
  a1 = ao(plist('tsfcn', 'sin(2*pi*0.1*t)', 'nsecs', 100, 'fs', 10));
  
  a1 = attachm(a1, mfilename);
  
  a1.mfile
  
  save(a1, 'a1.xml')
  
end