test/xslt/xslt3.c

   1 /* $Id: xslt3.c,v 1.5 2006-02-23 11:26:00 adam Exp $
   2    Copyright (C) 1995-2005
   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 <stdio.h>
  24 #include "testlib.h"
  25
  26 int main(int argc, char **argv)
  27 {
  28     char path[256];
  29     char record_buf[20000];
  30     const char *records_array[] = {
  31         record_buf, 0
  32     };
  33     FILE *f;
  34     size_t r;
  35
  36     ZebraService zs = start_up(0, argc, argv);
  37     ZebraHandle  zh = zebra_open(zs, 0);
  38
  39     check_filter(zs, "xslt");
  40
  41     zebra_select_database(zh, "Default");
  42
  43     zebra_init(zh);
  44
  45     zebra_set_resource(zh, "recordType", "xslt.marcschema-one.xml");
  46
  47     sprintf(path, "%.200s/marc-one.xml", get_srcdir());
  48     f = fopen(path, "rb");
  49     if (!f)
  50     {
  51         yaz_log(YLOG_FATAL|YLOG_ERRNO, "Cannot open %s", path);
  52         exit(1);
  53     }
  54     r = fread(record_buf, 1, sizeof(record_buf)-1, f);
  55     if (r < 2 || r == sizeof(record_buf)-1)
  56     {
  57         yaz_log(YLOG_FATAL, "Bad size of %s", path);
  58         exit(1);
  59     }
  60     fclose(f);
  61
  62     record_buf[r] = '\0';
  63
  64     /* index this one record */
  65     init_data(zh, records_array);
  66
  67     /* only get hits from first record .. */
  68     do_query(__LINE__, zh, "@attr 1=title computer", 1);
  69     do_query(__LINE__, zh, "@attr 1=control 11224466", 1);
  70     do_query_x(__LINE__, zh, "@attr 1=titl computer", 0, 114);
  71
  72
  73     /* index one more time to see that we don't get dups, since
  74      index.xsl has a record ID associated with them */
  75     zebra_add_record(zh, record_buf, strlen(record_buf));
  76
  77     /* only get hits from first record .. */
  78     do_query(__LINE__, zh, "@attr 1=title computer", 1);
  79     do_query(__LINE__, zh, "@attr 1=control 11224466", 1);
  80     do_query_x(__LINE__, zh, "@attr 1=titl computer", 0, 114);
  81
  82
  83
  84     return close_down(zh, zs, 0);
  85 }