--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/test/test_mtimes.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,39 @@
+function test_mtimes()
+% A test script for the AO mtimes.
+% 
+% M Hewitson 16-03-07
+% 
+% $Id: test_mtimes.m,v 1.3 2008/09/19 14:03:50 ingo Exp $
+% 
+
+%% make test data files
+make_test_ascii_file('data1', 1, 1000);
+make_test_ascii_file('data2', 1, 1000);
+
+%% Load data into analysis objects
+
+a1 = ao(randn(123,1),12);
+a2 = a1.';
+
+
+%% add and plot
+a3  = a2*a1
+a3.data
+
+iplot(a3)
+plot(a3.hist)
+
+
+%% Reproduce from history
+
+% Write an m-file from AO
+ao2m(a3, 'test.m');
+
+%% now run it
+clear
+a1 = test
+
+iplot(a1)
+plot(a1.hist)
+
+delete('test.m')