test/xslt/dom1.c

   1 /* $Id: dom1.c,v 1.2 2007-03-05 13:02:11 marc Exp $
   2    Copyright (C) 1995-2007
   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 this program; if not, write to the Free Software
  19 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  20
  21 */
  22
  23 #include <yaz/test.h>
  24 #include "testlib.h"
  25
  26 ZebraHandle index_some(ZebraService zs,
  27                        const char *filter, const char *file)
  28 {
  29     char path[256];
  30     char profile_path[256];
  31
  32     ZebraHandle zh = zebra_open(zs, 0);
  33
  34     tl_check_filter(zs, "dom");
  35
  36     YAZ_CHECK(zebra_select_database(zh, "Default") == ZEBRA_OK);
  37
  38     zebra_init(zh);
  39
  40     sprintf(profile_path, "%.80s:%.80s/../../tab",
  41             tl_get_srcdir(), tl_get_srcdir());
  42     zebra_set_resource(zh, "profilePath", profile_path);
  43
  44     zebra_set_resource(zh, "recordType", filter);
  45
  46     YAZ_CHECK(zebra_begin_trans(zh, 1) == ZEBRA_OK);
  47     sprintf(path, "%.80s/%.80s", tl_get_srcdir(), file);
  48
  49     YAZ_CHECK(zebra_repository_update(zh, path) == ZEBRA_OK);
  50     YAZ_CHECK(zebra_end_trans(zh) == ZEBRA_OK);
  51     zebra_commit(zh);
  52     return zh;
  53 }
  54
  55 void tst(int argc, char **argv)
  56 {
  57     ZebraHandle zh;
  58
  59     ZebraService zs = tl_start_up(0, argc, argv);
  60
  61     zh = index_some(zs, "dom.bad.xml", "marc-col.xml");
  62     zebra_close(zh);
  63
  64     /* testing XMLREADER input with PI stylesheet */
  65     zh = index_some(zs, "dom.dom-config-col.xml", "marc-col.xml");
  66     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
  67     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
  68     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
  69     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
  70     zebra_close(zh);
  71
  72     /* testing XMLREADER input with ELEMENT stylesheet */
  73     zh = index_some(zs, "dom.dom-config-one.xml", "marc-one.xml");
  74     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 1));
  75     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
  76     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
  77     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
  78     zebra_close(zh);
  79
  80     /* testing MARC input with ELEMENT stylesheet */
  81     zh = index_some(zs, "dom.dom-config-marc.xml", "marc-col.mrc");
  82     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 3));
  83     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 1));
  84     YAZ_CHECK(tl_query_x(zh, "@attr 1=titl computer", 0, 114));
  85     YAZ_CHECK(tl_query_x(zh, "@attr 1=4 computer", 0, 121));
  86     zebra_close(zh);
  87
  88     /* testing XMLREADER input with ELEMENT stylesheet and skipped records */
  89     zh = index_some(zs, "dom.dom-config-skipped.xml", "marc-col.xml");
  90     YAZ_CHECK(tl_query(zh, "@attr 1=title computer", 1));
  91     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224466", 0));
  92     YAZ_CHECK(tl_query(zh, "@attr 1=control 11224467", 1));
  93     YAZ_CHECK(tl_query(zh, "@attr 1=control 73090924", 0));
  94
  95     zebra_close(zh);
  96
  97
  98     YAZ_CHECK(tl_close_down(0, zs));
  99 }
 100
 101 TL_MAIN
 102
 103 /*
 104  * Local variables:
 105  * c-basic-offset: 4
 106  * indent-tabs-mode: nil
 107  * End:
 108  * vim: shiftwidth=4 tabstop=8 expandtab
 109  */
 110