--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/test/test_cdata_matrix.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,28 @@
+function test_cdata_matrix()
+
+% TEST_CDATA_MATRIX tests matrix read/write from XML for cdata class.
+%
+%
+% M Hewitson 23-05-07
+%
+% $Id: test_cdata_matrix.m,v 1.4 2008/09/19 14:03:50 ingo Exp $
+%
+
+
+a = ao(rand(10,10))
+c = select(a, sub2ind(size(a.data.y), 1:10 , 1:10))
+c.data
+
+return
+
+save(a, 'ltpda_cmat.xml');
+
+b = ao('ltpda_cmat.xml');
+
+
+%%
+c = a.*b
+
+delete('ltpda_cmat.xml');
+
+% END