function test_specwin(varargin)% A test function to submit a specwin to the repository. The specwin is then% retrieved and compared to the original one.% % Usage: test_specwin() - connects to Hannover repository% test_specwin(conn) - connects to the repository specified by% the database conn object.% % M Hewitson 24-02-08% % $Id: test_specwin.m,v 1.4 2008/02/24 10:17:54 hewitson Exp $% if nargin == 0 conn = mysql_connect('130.75.117.67', 'ltpda_test');else conn = varargin{1};end%% Submit a timeformatp = specwin('Hanning', 100);sinfo.conn = conn;sinfo.experiment_title = 'submit specwin';sinfo.experiment_description = 'this is just a test of the whole thing';sinfo.analysis_description = 'just submitting';sinfo.quantity = 'none';sinfo.keywords = 'none';sinfo.reference_ids = '1,2';sinfo.additional_comments = 'none';sinfo.additional_authors = 'no one';[ids, cid] = ltpda_obj_submit(p, sinfo);%% Retrieve the objectq = ltpda_obj_retrieve(conn, ids);%% Close connectionif nargin == 0 close(conn);end%% Testif p ~= q error('### specwin objects are not the same.')end