% A simple test script to exercise the LTPDA repository
% 
% Edit the repository information before running.
% 
% 31-03-08
% 

clear all;


% Hostname and database setting
hostname = '130.75.117.61';
dbase    = 'ltpda_test';

%% -----------------------------------------------
%% NO NEED TO EDIT BELOW HERE

send     = true;


% Connect to the database
conn = mysql_connect(hostname, dbase);

% Submitting N aos
N = 5;
rand_N = false;
obj_type = 'ao';
nsecs = 1000;
fs = 10;

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, 'nsecs', nsecs, 'fs', fs, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N plists
N = 1;
rand_N = false;
obj_type = 'plist';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N specwins
N = 3;
rand_N = false;
obj_type = 'specwin';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N pzmodels
N = 5;
rand_N = false;
obj_type = 'pzmodel';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N miir objects
N = 2;
rand_N = false;
obj_type = 'miir';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N mfir objects
N = 2;
rand_N = false;
obj_type = 'mfir';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N time objects
N = 4;
rand_N = false;
obj_type = 'time';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting N timespan objects
N = 4;
rand_N = false;
obj_type = 'mfir';

pl = plist('obj_type', obj_type, 'send', send, 'N', N, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N aos
rand_N = true;
obj_type = 'ao';
nsecs = 1000;
fs = 10;

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, 'nsecs', nsecs, 'fs', fs, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N plists
rand_N = true;
obj_type = 'plist';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
  'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N specwins
rand_N = true;
obj_type = 'specwin';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N pzmodels
rand_N = true;
obj_type = 'pzmodel';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N miir objects
rand_N = true;
obj_type = 'miir';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N mfir objects
rand_N = true;
obj_type = 'mfir';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N time objects
rand_N = true;
obj_type = 'time';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N timespan objects
rand_N = true;
obj_type = 'mfir';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);


% Submitting random N objects
rand_N = true;
obj_type = 'none';

pl = plist('obj_type', obj_type, 'send', send, ...
  'rand', rand_N, ...
'conn', conn);

UTN_repo_test_func(pl);

disp('*** done')