function a_out = test_ao_attachm	
	
% Test script for ao/attachm	
% 	
% M Hewitson 23-02-08	
% 	
% $Id: test_ao_attachm.m,v 1.1 2008/03/02 18:47:55 hewitson Exp $	
% 	
	
	
a1 = ao(plist('tsfcn', 'sin(2*pi*0.1*t)', 'nsecs', 100, 'fs', 10));	
	
a1 = attachm(a1, mfilename);	
	
a1.mfile	
	
save(a1, 'a1.xml')	
	
clear all	
	
a1 = ao('a1.xml');	
	
mkdir tmp	
cd tmp	
	
	
extractm(a1)	
	
edit test_ao_attachm