Cleaned the test programs a bit, used routines in testlib
[idzebra-moved-to-github.git] / test / api / t3.c
1 /* $Id: t3.c,v 1.11 2004-10-28 15:24:36 heikki Exp $
2    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
3    Index Data Aps
4
5 This file is part of the Zebra server.
6
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
10 version.
11
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15 for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with Zebra; see the file LICENSE.zebra.  If not, write to the
19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA.
21 */
22
23 #include <yaz/log.h>
24 #include <yaz/pquery.h>
25 #include <idzebra/api.h>
26 #include "testlib.h"
27
28         
29 int main(int argc, char **argv)
30 {
31     int i;
32     ZebraService zs;
33     ZebraHandle zh;
34     const char *myrec =
35         "<gils>\n"
36         "  <title>My title</title>\n"
37         "</gils>\n";
38
39     yaz_log_init_file("t3.log");
40      yaz_log_init_level(LOG_ALL);
41
42     nmem_init ();
43     
44     zs = start_service(0);
45     zh = zebra_open (zs);
46     zebra_select_database(zh, "Default");
47     zebra_init(zh);
48
49     zebra_begin_trans (zh, 1);
50     zebra_add_record (zh, myrec, strlen(myrec));
51     zebra_end_trans (zh);
52
53     for (i = 0; i<4; i++)
54     {
55 #if 0
56         ZebraRetrievalRecord retrievalRecord;
57 #endif
58         char setname[20];
59         char *setnamep = setname;
60         int status;
61         ODR odr_input = odr_createmem (ODR_DECODE);    
62         ODR odr_output = odr_createmem (ODR_ENCODE);    
63         YAZ_PQF_Parser parser = yaz_pqf_create();
64         Z_RPNQuery *query = yaz_pqf_parse(parser, odr_input, 
65                                           "@attr 1=4 my");
66         int hits;
67         zebra_begin_trans (zh, 1);
68         zebra_begin_trans (zh, 0);
69         
70         sprintf(setname, "s%d", i+1);
71         zebra_search_RPN (zh, odr_input, query, setname, &hits);
72
73         zebra_end_trans (zh);
74         zebra_end_trans (zh);
75         yaz_pqf_destroy(parser);
76 #if 0
77         /*FIXME Why is this disabled ??? */
78         zebra_records_retrieve (zh, odr_output, setname, 0,
79                                 VAL_TEXT_XML, 1, &retrievalRecord);
80 #endif
81 #if 1
82         zebra_deleleResultSet(zh, Z_DeleteRequest_list,
83                               1, &setnamep, &status);
84 #endif
85         odr_destroy (odr_input);
86         odr_destroy (odr_output);
87     }
88     zebra_commit (zh);
89     zebra_close (zh);
90     zebra_stop (zs);
91
92     nmem_exit ();
93     xmalloc_trav ("x");
94     logf(LOG_LOG,"================ All tests OK ");
95     exit (0);
96 }