diff libtests/0027/prog1.c @ 498:342822c2d49a

Merge api-inversion branch (-r656:771, but I don't expect to return to
that branch) into the trunk.

I expect there to be minor performance regressions (e.g. in the SOAP
server index cacheing, which I have forcibly removed) and minor
unplugged memory leaks (e.g. in audioDB::query(), where I don't free up
the datum).  I hope that these leaks and performance regressions can be
plugged in short order.  I also expect that some (but maybe not all) of
the issues currently addressed in the memory-leaks branch are superseded
or fixed by this merge.

There remains much work to be done; go forth and do it.

--- a/libtests/0027/prog1.c	Sat Jan 10 11:11:27 2009 +0000
+++ b/libtests/0027/prog1.c	Sat Jan 10 16:47:57 2009 +0000
@@ -1,362 +1,144 @@
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <sysexits.h>
-#include <fcntl.h>
-#include <dirent.h>
-#include <unistd.h>
-#include <sys/stat.h>
-/*
- *  * #define NDEBUG
- *   * */
-#include <assert.h>
+#include "audioDB_API.h"
+#include "test_utils_lib.h"
 
-#include "../../audioDB_API.h"
-#include "../test_utils_lib.h"
+int main(int argc, char **argv) {
+  adb_t *adb;
 
+  clean_remove_db(TESTDB);
+  if(!(adb = audiodb_create(TESTDB, 0, 0, 0)))
+    return 1;
 
-int main(int argc, char **argv){
+  adb_datum_t feature = {2, 2, "testfeature", (double[4]){0, 1, 1, 0},
+                         (double[2]){-0.5, -1}};
+  if(!audiodb_insert_datum(adb, &feature))
+    return 1;
+  if(audiodb_power(adb))
+    return 1;
+  feature.power = NULL;
+  if(!audiodb_insert_datum(adb, &feature))
+    return 1;
+  feature.power = (double[2]){-0.5, -1};
+  if(audiodb_insert_datum(adb, &feature))
+    return 1;
 
-    int returnval=0;
-    adb_ptr mydbp={0};
-    int ivals[10];
-    double dvals[10];
-    adb_insert_t myinsert={0};
-    unsigned int myerr=0;
-    char * databasename="testdb";
-    adb_query_t myadbquery={0};
-    adb_queryresult_t myadbqueryresult={0};
-    adb_query_t myadbquery2={0};
-    adb_queryresult_t myadbqueryresult2={0};
-    int size=0;
+  if(audiodb_l2norm(adb))
+    return 1;
 
+  adb_datum_t query = {1, 2, "testquery", (double[2]) {0, 0.5}};
+  adb_query_id_t qid = {0};
+  qid.datum = &query;
+  qid.sequence_length = 1;
+  qid.sequence_start = 0;
+  adb_query_parameters_t parms = 
+    {ADB_ACCUMULATION_PER_TRACK, ADB_DISTANCE_EUCLIDEAN_NORMED, 10, 10};
+  adb_query_refine_t refine = {0};
+  refine.hopsize = 1;
 
-    /* remove old directory */
-    //if [ -f testdb ]; then rm -f testdb; fi
-    clean_remove_db(databasename);
+  adb_query_spec_t spec;
+  spec.qid = qid;
+  spec.params = parms;
+  spec.refine = refine;
 
-    /* create new db */
-    //${AUDIODB} -d testdb -N
-    mydbp=audiodb_create(databasename,0,0,0);
+  adb_query_results_t *results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  result_present_or_fail(results, "testfeature", 2, 0, 1);
+  audiodb_query_free_results(adb, &spec, results);
 
-    //intstring 2 > testfeature
-    //floatstring 0 1 >> testfeature
-    //floatstring 1 0 >> testfeature
-    ivals[0]=2;
-    dvals[0]=0; dvals[1]=1; dvals[2]=1; dvals[3]=0;
-    maketestfile("testfeature",ivals,dvals,4);
+  spec.params.npoints = 1;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    //intstring 1 > testpower
-    //floatstring -0.5 >> testpower
-    //floatstring -1 >> testpower
-    ivals[0]=1;
-    dvals[0]=-0.5; dvals[1]=-1;
-    maketestfile("testpower",ivals,dvals,2);
+  spec.qid.datum->data = (double [2]) {0.5, 0};
+  spec.params.npoints = 10;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 1);
+  result_present_or_fail(results, "testfeature", 2, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    /* insert breaks because power flag off and power insert */
-    //expect_clean_error_exit ${AUDIODB} -d testdb -I -f testfeature -w testpower
-    myinsert.features="testfeature";
-    myinsert.power="testpower";
-    if (!audiodb_insert(mydbp,&myinsert)){ returnval=-1; } 
+  spec.params.npoints = 1;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 1);
+  audiodb_query_free_results(adb, &spec, results);
   
-  
-    /* make sure power can be turned on */
-//${AUDIODB} -d testdb -P
-    if(audiodb_power(mydbp)){ returnval=-1; };
+  /* queries with associated power data */
+  spec.qid.datum->data = (double [2]) {0, 0.5};
+  spec.qid.datum->power = (double [1]) {-0.5};
+  spec.params.npoints = 10;
+  spec.refine.flags = ADB_REFINE_ABSOLUTE_THRESHOLD;
+  spec.refine.absolute_threshold = -1.4;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  result_present_or_fail(results, "testfeature", 2, 0, 1);
+  audiodb_query_free_results(adb, &spec, results);
 
+  spec.refine.absolute_threshold = -0.6;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    /* inserts now require power also */
-////expect_clean_error_exit ${AUDIODB} -d testdb -I -f testfeature
-    myinsert.features="testfeature";
-    myinsert.power=NULL;
-    //myerr=audiodb_insert(mydbp,&myinsert);   
-    if (!audiodb_insert(mydbp,&myinsert)){ returnval=-1; } 
+  spec.refine.absolute_threshold = -0.2;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 0) return 1;
+  audiodb_query_free_results(adb, &spec, results);
 
-    /* now make a real insert */
-//${AUDIODB} -d testdb -I -f testfeature -w testpower
-    myinsert.features="testfeature";
-    myinsert.power="testpower";
-    myerr=audiodb_insert(mydbp,&myinsert);   
-    if (audiodb_insert(mydbp,&myinsert)){ returnval=-1; } 
+  spec.refine.absolute_threshold = 0;
+  spec.refine.flags = ADB_REFINE_RELATIVE_THRESHOLD;
+  spec.refine.relative_threshold = 1;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  result_present_or_fail(results, "testfeature", 2, 0, 1);
+  audiodb_query_free_results(adb, &spec, results);
 
+  spec.refine.relative_threshold = 0.2;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    //# sequence queries require L2NORM
-    //${AUDIODB} -d testdb -L
-    if(audiodb_l2norm(mydbp)){ returnval=-1; };
+  spec.qid.datum->data = (double [2]) {0.5, 0};
+  spec.refine.flags = ADB_REFINE_ABSOLUTE_THRESHOLD;
+  spec.refine.absolute_threshold = -1.4;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 1);
+  result_present_or_fail(results, "testfeature", 2, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
+  spec.refine.absolute_threshold = -0.6;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 2, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    //# queries without power files should run as before
-    //echo "query point (0.0,0.5)"
-    //intstring 2 > testquery
-    //floatstring 0 0.5 >> testquery
-    ivals[0]=2;
-    dvals[0]=-0; dvals[1]=0.5;
-    maketestfile("testquery",ivals,dvals,2);
+  spec.refine.absolute_threshold = -0.2;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 0) return 1;
+  audiodb_query_free_results(adb, &spec, results);
 
+  spec.refine.absolute_threshold = 0;
+  spec.refine.flags = ADB_REFINE_RELATIVE_THRESHOLD;
+  spec.refine.relative_threshold = 1;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 2) return 1;
+  result_present_or_fail(results, "testfeature", 0, 0, 1);
+  result_present_or_fail(results, "testfeature", 2, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    /* query 1 */
-    //${AUDIODB} -d testdb -Q sequence -l 1 -f testquery > testoutput
-    //echo testfeature 1 0 0 > test-expected-output
-    //cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
+  spec.refine.relative_threshold = 0.2;
+  results = audiodb_query_spec(adb, &spec);
+  if(!results || results->nresults != 1) return 1;
+  result_present_or_fail(results, "testfeature", 2, 0, 0);
+  audiodb_query_free_results(adb, &spec, results);
 
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",1,0,0)) {returnval = -1;};
+  audiodb_close(adb);
 
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -n 1 > testoutput
-//echo testfeature 0 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.numpoints="1";
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",0,0,0)) {returnval = -1;};
-
-//echo "query point (0.5,0.0)"
-//intstring 2 > testquery
-//floatstring 0.5 0 >> testquery
-    ivals[0]=2;
-    dvals[0]=0.5; dvals[1]=0.0;
-    maketestfile("testquery",ivals,dvals,2);
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery > testoutput
-//echo testfeature 1 0 1 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.numpoints=NULL;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",1,0,1)) {returnval = -1;};
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -n 1 > testoutput
-//echo testfeature 0 0 1 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.numpoints="1";
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",0,0,1)) {returnval = -1;};
-
-
-
-//# queries with power files might do something different
-//echo "query point (0.0,0.5), p=-0.5"
-//intstring 2 > testquery
-//floatstring 0 0.5 >> testquery
-//intstring 1 > testquerypower
-//floatstring -0.5 >> testquerypower
-    ivals[0]=2;
-    dvals[0]=-0; dvals[1]=0.5;
-    maketestfile("testquery",ivals,dvals,2);
-    ivals[0]=1;
-    dvals[0]=-0.5;
-    maketestfile("testquerypower",ivals,dvals,1);
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-1.4 > testoutput
-//echo testfeature 1 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.power="testquerypower";
-    myadbquery.numpoints=NULL;
-    myadbquery.absolute_threshold=-1.4;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",1,0,0)) {returnval = -1;};
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-0.6 > testoutput
-//echo testfeature 0 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.power="testquerypower";
-    myadbquery.numpoints=NULL;
-    myadbquery.absolute_threshold=-0.6;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",0,0,0)) {returnval = -1;};
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-0.2 > testoutput
-//cat /dev/null > test-expected-output
-//cmp testoutput test-expected-output
-
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.power="testquerypower";
-    myadbquery.numpoints=NULL;
-    myadbquery.absolute_threshold=-0.2;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-    //dump_query(&myadbquery,&myadbqueryresult);
-
-    /* check the test values */
-    if (size != 0) {returnval = -1;};
-
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --relative-threshold=1 > testoutput
-//echo testfeature 1 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.power="testquerypower";
-    myadbquery.numpoints=NULL;
-    myadbquery.absolute_threshold=0;
-    myadbquery.relative_threshold=1;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",1,0,0)) {returnval = -1;};
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --relative-threshold=0.2 > testoutput
-//echo testfeature 0 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery.querytype="sequence";
-    myadbquery.feature="testquery";
-    myadbquery.sequencelength="1";
-    myadbquery.power="testquerypower";
-    myadbquery.numpoints=NULL;
-    myadbquery.absolute_threshold=0;
-    myadbquery.relative_threshold=0.2;
-    audiodb_query(mydbp,&myadbquery,&myadbqueryresult);
-    size=myadbqueryresult.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult,0,"testfeature",0,0,0)) {returnval = -1;};
-
-
-//echo "query point (0.5,0.0), p=-0.5"
-//intstring 2 > testquery
-//floatstring 0.5 0 >> testquery
-    ivals[0]=2;
-    dvals[0]=0.5; dvals[1]=0.0;
-    maketestfile("testquery",ivals,dvals,2);
-
-
-//audioDB -Q sequence -d testdb -f testquery -w testquerypower -l 1 --absolute-threshold -1.400000 
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-1.4 > testoutput
-//echo testfeature 1 0 1 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery2.querytype="sequence";
-    myadbquery2.feature="testquery";
-    myadbquery2.sequencelength="1";
-    myadbquery2.power="testquerypower";
-    myadbquery2.numpoints=NULL;
-    myadbquery2.absolute_threshold=-1.4;
-    audiodb_query(mydbp,&myadbquery2,&myadbqueryresult2);
-    size=myadbqueryresult2.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult2,0,"testfeature",1,0,1)) {returnval = -1;};
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-0.6 > testoutput
-//echo testfeature 2 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery2.querytype="sequence";
-    myadbquery2.feature="testquery";
-    myadbquery2.sequencelength="1";
-    myadbquery2.power="testquerypower";
-    myadbquery2.numpoints=NULL;
-    myadbquery2.absolute_threshold=-0.6;
-    audiodb_query(mydbp,&myadbquery2,&myadbqueryresult2);
-    size=myadbqueryresult2.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult2,0,"testfeature",2,0,0)) {returnval = -1;};
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --absolute-threshold=-0.2 > testoutput
-//cat /dev/null > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery2.querytype="sequence";
-    myadbquery2.feature="testquery";
-    myadbquery2.sequencelength="1";
-    myadbquery2.power="testquerypower";
-    myadbquery2.numpoints=NULL;
-    myadbquery2.absolute_threshold=-0.2;
-    myadbquery2.relative_threshold=0.0;
-    audiodb_query(mydbp,&myadbquery2,&myadbqueryresult2);
-    size=myadbqueryresult2.sizeRlist;
-
-    /* check the test values */
-    if (size != 0) {returnval = -1;};
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --relative-threshold=1 > testoutput
-//echo testfeature 1 0 1 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery2.querytype="sequence";
-    myadbquery2.feature="testquery";
-    myadbquery2.sequencelength="1";
-    myadbquery2.power="testquerypower";
-    myadbquery2.numpoints=NULL;
-    myadbquery2.absolute_threshold=0.0;
-    myadbquery2.relative_threshold=1;
-    audiodb_query(mydbp,&myadbquery2,&myadbqueryresult2);
-    size=myadbqueryresult2.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult2,0,"testfeature",1,0,1)) {returnval = -1;};
-
-
-
-//${AUDIODB} -d testdb -Q sequence -l 1 -f testquery -w testquerypower --relative-threshold=0.2 > testoutput
-//echo testfeature 2 0 0 > test-expected-output
-//cmp testoutput test-expected-output
-    myadbquery2.querytype="sequence";
-    myadbquery2.feature="testquery";
-    myadbquery2.sequencelength="1";
-    myadbquery2.power="testquerypower";
-    myadbquery2.numpoints=NULL;
-    myadbquery2.absolute_threshold=-0.0;
-    myadbquery2.relative_threshold=0.1;
-    audiodb_query(mydbp,&myadbquery2,&myadbqueryresult2);
-    size=myadbqueryresult2.sizeRlist;
-
-    /* check the test values */
-    if (size != 1) {returnval = -1;};
-    if (testoneresult(&myadbqueryresult2,0,"testfeature",2,0,0)) {returnval = -1;};
-
-//    printf("returnval:%d\n",returnval);
-    return(returnval);
+  return 104;
 }
-