44bf6fdff56b421c7a922abbdb807e846ca0ba6b
[idzebra-moved-to-github.git] / test / xslt / dom1.c
1 /* This file is part of the Zebra server.
2    Copyright (C) 1994-2010 Index Data
3
4 Zebra is free software; you can redistribute it and/or modify it under
5 the terms of the GNU General Public License as published by the Free
6 Software Foundation; either version 2, or (at your option) any later
7 version.
8
9 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
12 for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
17
18 */
19
20 #include <yaz/test.h>
21 #include "testlib.h"
22
23
24 void index_more(ZebraHandle zh, const char *filter, const char *file)
25 {
26     char path[256];
27     char profile_path[256];
28
29     sprintf(profile_path, "%.80s:%.80s/../../tab", 
30             tl_get_srcdir(), tl_get_srcdir());
31     zebra_set_resource(zh, "profilePath", profile_path);
32
33     zebra_set_resource(zh, "recordType", filter);
34
35     YAZ_CHECK(zebra_begin_trans(zh, 1) == ZEBRA_OK);
36     sprintf(path, "%.80s/%.80s", tl_get_srcdir(), file);
37
38     YAZ_CHECK(zebra_repository_update(zh, path) == ZEBRA_OK);
39     YAZ_CHECK(zebra_end_trans(zh) == ZEBRA_OK);
40     zebra_commit(zh);
41 }
42
43 ZebraHandle index_some(ZebraService zs,
44                        const char *filter, const char *file)
45 {
46     ZebraHandle zh = zebra_open(zs, 0);
47
48     tl_check_filter(zs, "dom");
49
50     YAZ_CHECK(zebra_select_database(zh, "Default") == ZEBRA_OK);
51
52     zebra_init(zh);
53
54     index_more(zh, filter, file);
55     return zh;
56 }
57
58 void tst(int argc, char **argv)
59 {
60     ZebraHandle zh;
61     
62     ZebraService zs = tl_start_up(0, argc, argv);
63
64     zh = index_some(zs, "dom.bad.xml", "marc-col.xml");
65     zebra_close(zh);
66
67    
68     /* testing XMLREADER input with PI stylesheet */ 
69     zh = index_some(zs, "dom.dom-config-col.xml", "marc-col.xml");
70     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
71
72     /* fetch first using dom-brief.xsl */
73     YAZ_CHECK_EQ(tl_fetch_first_compare(
74                      zh, "B", yaz_oid_recsyn_xml,
75                      "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
76                      "<title>How to program a computer</title>\n"),
77                  ZEBRA_OK);
78     /* fetch first using dom-snippets.xsl */
79     YAZ_CHECK_EQ(tl_fetch_first_compare(
80                      zh, "snippet", yaz_oid_recsyn_xml,
81                      "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
82                      "<root>\n"
83                      "  <record xmlns=\"http://www.indexdata.com/zebra/\">\n"
84                      "  <snippet name=\"title\" type=\"w\">How to program a <s>computer</s></snippet>\n"
85                      "</record>\n"
86                      "  <title>How to program a computer</title>\n"
87                      "</root>\n"),
88                  ZEBRA_OK);
89
90     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
91     
92     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
93     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
94     zebra_close(zh);
95
96
97     /* testing XMLREADER input with ELEMENT stylesheet */ 
98     zh = index_some(zs, "dom.dom-config-one.xml", "marc-one.xml");
99     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 1));
100     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
101     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
102     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
103     zebra_close(zh);
104
105     /* testing MARC input with ELEMENT stylesheet */ 
106     zh = index_some(zs, "dom.dom-config-marc.xml", "marc-col.mrc");
107     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
108     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
109     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
110     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
111     zebra_close(zh);
112
113     /* testing XMLREADER input with ELEMENT stylesheet and skipped records */ 
114     zh = index_some(zs, "dom.dom-config-skipped.xml", "marc-col.xml");
115     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 1));
116     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 0));
117     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224467", 1));
118     YAZ_CHECK(tl_query(zh, "@attr 1=control 73090924", 0));
119
120     /* testing XMLREADER input with type attributes (insert,delete,..) */ 
121     zh = index_some(zs, "dom.dom-config-del.xml", "del-col.xml");
122     YAZ_CHECK(tl_query(zh, "@attr 1=title a", 1));
123     YAZ_CHECK(tl_query(zh, "@attr 1=title 1", 0));
124     YAZ_CHECK(tl_query(zh, "@attr 1=title 2", 0));
125     YAZ_CHECK(tl_query(zh, "@attr 1=title 3", 1));
126     YAZ_CHECK(tl_query(zh, "@attr 1=title b", 1));
127
128     zh = index_some(zs, "dom.gutenberg.xml", "gutenberg-sample.xml");
129     YAZ_CHECK(tl_query(zh, "oscar", 1));
130
131     YAZ_CHECK_EQ(tl_fetch_first_compare(
132                      zh, "zebra::snippet", yaz_oid_recsyn_xml,
133                      "<record xmlns=\"http://www.indexdata.com/zebra/\">\n"
134                      "  <snippet name=\"any\" type=\"w\" fields=\"title\">"
135                      "Selected Prose of <s>Oscar</s> Wilde"
136                      "</snippet>\n"
137                      "  <snippet name=\"any\" type=\"w\" fields=\"creator\">"
138                      "Wilde, <s>Oscar</s>, 1854-1900"
139                      "</snippet>\n"
140                      "</record>"),
141                  ZEBRA_OK);
142
143     zebra_close(zh);
144
145
146     YAZ_CHECK(tl_close_down(0, zs));
147 }
148
149 TL_MAIN
150
151 /*
152  * Local variables:
153  * c-basic-offset: 4
154  * c-file-style: "Stroustrup"
155  * indent-tabs-mode: nil
156  * End:
157  * vim: shiftwidth=4 tabstop=8 expandtab
158  */
159