--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/test/aorepo_proto_test/test3.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,222 @@
+% 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')
\ No newline at end of file