line source
% 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')