+
−function test_cdata(varargin)
+
−
+
−if nargin == 0
+
−  [conn, username] = mysql_connect('130.75.117.67', 'ltpda_test');
+
−else
+
−  conn = varargin{1};
+
−  username = varargin{2};
+
−end
+
−%% Submit a mfir
+
−p = cdata(complex(randn(4,4), randn(4,4)));
+
−
+
−sinfo.conn                   = conn;
+
−sinfo.username               = username;
+
−sinfo.experiment_title       = 'submit cdata';
+
−sinfo.experiment_description = 'this is just a test of the whole thing';
+
−sinfo.reference_ids          = '';
+
−sinfo.additional_comments    = 'none';
+
−sinfo.additional_authors     = 'no one';
+
−
+
−
+
−[ids, cid] = ltpda_obj_submit(p, sinfo)
+
−
+
−%% Retrieve the object
+
−
+
−q = ltpda_obj_retrieve(conn, cid)
+
−
+
−%% Close connection
+
−if nargin == 0
+
−  close(conn);
+
−end
+
−
+
−
+
−%% Test
+
−
+
−if p ~= q
+
−  error('### cdata objects are not the same.')
+
−end