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 timeformat
p = 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 object

q = ltpda_obj_retrieve(conn, ids);

%% Close connection
if nargin == 0
  close(conn);
end


%% Test

if p ~= q
  error('### specwin objects are not the same.')
end
