test/test_embed_record.c

   1 /* This file is part of the YAZ toolkit.
   2  * Copyright (C) 1995-2012 Index Data
   3  * See the file LICENSE for details.
   4  */
   5 #if HAVE_CONFIG_H
   6 #include <config.h>
   7 #endif
   8
   9 #include <yaz/record_conv.h>
  10 #include <yaz/test.h>
  11 #include <yaz/wrbuf.h>
  12 #include <string.h>
  13 #include <yaz/log.h>
  14 #include <yaz/record_render.h>
  15
  16 #if YAZ_HAVE_XML2
  17
  18 #include <yaz/base64.h>
  19 #include <yaz/marcdisp.h>
  20 #include <yaz/proto.h>
  21 #include <yaz/prt-ext.h>
  22
  23 #include <libxml/parser.h>
  24 #include <libxml/tree.h>
  25
  26 void test1(void)
  27 {
  28   char base_enc[] =
  29     "MDA3NjZuYW0gIDIyMDAyNjU4YSA0NTAwMDAxMDAxMjAwMDAwMDAzMDAwNjAwMDEyMDA1MDAx"
  30     "NzAwMDE4MDA4MDA0MTAwMDM1MDEwMDAxNzAwMDc2MDIwMDAxNTAwMDkzMDM1MDAxODAwMTA4"
  31     "MDQwMDAxODAwMTI2MDQ5MDAwOTAwMTQ0MDUwMDAyNjAwMTUzMDgyMDAxNzAwMTc5MTAwMDAx"
  32     "ODAwMTk2MjQ1MDA2NzAwMjE0MjYwMDA1MjAwMjgxMjYzMDAwOTAwMzMzMzAwMDAyNzAwMzQy"
  33     "NTAwMDAyNzAwMzY5NTA0MDA1MTAwMzk2NjUwMDA0NDAwNDQ3OTk5MDAwOTAwNDkxHm9jbTI4"
  34     "MzM5ODYzHk9Db0xDHjE5OTQwMTA1MDc0NTIyLjAeOTMwNjA5czE5OTQgICAgY291ICAgICAg"
  35     "YiAgICAwMDEgMCBlbmcgIB4gIB9hICAgOTMwMDkwNDcgHiAgH2EwMTMwMzA1NTI5HiAgH2Eo"
  36     "b2NtKTI4MzM5ODYzHiAgH2FETEMfY0RMQx9kS0tVHiAgH2FLS1VKHjAwH2FRQTc2LjczLkMy"
  37     "OB9iRzczIDE5OTQeMDAfYTAwNS4xMy8zHzIyMB4xIB9hR3JhaGFtLCBQYXVsLh4xMB9hT24g"
  38     "TGlzcCA6H2JhZHZhbmNlZCB0ZWNobmlxdWVzIGZvciBjb21tb24gTGlzcCAvH2NQYXVsIEdy"
  39     "YWhhbS4eICAfYUVuZ2xld29vZCBDbGlmZnMsIE4uSi4gOh9iUHJlbnRpY2UgSGFsbCwfYzE5"
  40     "OTQuHiAgH2E5NDEwHiAgH2F4aWlpLCA0MTMgcC4gOx9jMjMgY20uHiAgH2EiQW4gQWxhbiBS"
  41     "LiBBcHQgYm9vay4iHiAgH2FJbmNsdWRlcyBiaWJsaW9ncmFwaGljYWwgcmVmZXJlbmNlcyBh"
  42     "bmQgaW5kZXguHiAwH2FDT01NT04gTElTUCAoQ29tcHV0ZXIgcHJvZ3JhbSBsYW5ndWFnZSke"
  43     "H2xVQUhJTEweHQ==";
  44
  45     char bin_marc[] =
  46       "00766nam  22002658a 4500001001200000003000600012005001700018008004100035010001700076020001500093035001800108040001800126049000900144050002600153082001700179100001800196245006700214260005200281263000900333300002700342500002700369504005100396650004400447999000900491\036ocm28339863\036OCoLC\03619940105074522.0\036930609s1994    cou      b    001 0 eng  \036  \037a   93009047 \036  \037a0130305529\036  \037a(ocm)28339863\036  \037aDLC\037cDLC\037dKKU\036  \037aKKUJ\03600\037aQA76.73.C28\037bG73 1994\03600\037a005.13/3\037220\0361 \037aGraham, Paul.\03610\037aOn Lisp :\037badvanced techniques for common Lisp /\037cPaul Graham.\036  \037aEnglewood Cliffs, N.J. :\037bPrentice Hall,\037c1994.\036  \037a9410\036  \037axiii, 413 p. ;\037c23 cm.\036  \037a\"An Alan R. Apt book.\"\036  \037aIncludes bibliographical references and index.\036 0\037aCOMMON LISP (Computer program language)\036\037lUAHILL\036\035";
  47
  48     int marc_size = strlen(bin_marc);
  49     char out_rec[1000];
  50     yaz_marc_t marc = yaz_marc_create();
  51     WRBUF buf = wrbuf_alloc();
  52
  53     yaz_base64decode(base_enc, out_rec);
  54     YAZ_CHECK(strcmp(out_rec, bin_marc) == 0);
  55
  56     yaz_marc_read_iso2709(marc, out_rec, marc_size);
  57
  58     yaz_marc_write_marcxml(marc, buf);
  59
  60     yaz_marc_destroy(marc);
  61     wrbuf_destroy(buf);
  62
  63 }
  64 #endif
  65
  66 static int test_render(const char *type_spec, int is_marc, const char *input,
  67                     const char *expected_output)
  68 {
  69     ODR odr = odr_createmem(ODR_ENCODE);
  70     const char *actual_output;
  71     int actual_len;
  72     int res = 0;
  73     WRBUF wrbuf = wrbuf_alloc();
  74
  75     Z_NamePlusRecord *npr = odr_malloc(odr, sizeof(*npr));
  76     npr->which = Z_NamePlusRecord_databaseRecord;
  77     if (is_marc)
  78         npr->u.databaseRecord = z_ext_record_usmarc(odr, input, strlen(input));
  79     else
  80         npr->u.databaseRecord = z_ext_record_xml(odr, input, strlen(input));
  81
  82     actual_output = yaz_record_render(npr, 0, wrbuf, type_spec, &actual_len);
  83
  84     if (actual_output && expected_output)
  85     {
  86         if (strlen(expected_output) == actual_len &&
  87             !memcmp(expected_output, actual_output, actual_len))
  88             res = 1;
  89         else
  90         {
  91             yaz_log(YLOG_LOG, "Got result");
  92             yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
  93             yaz_log(YLOG_LOG, "Expected result");
  94             yaz_log(YLOG_LOG, "%s", expected_output);
  95         }
  96     }
  97     else if (!actual_output && !expected_output)
  98         res = 1;
  99     else if (!actual_output && expected_output)
 100     {
 101         yaz_log(YLOG_LOG, "Got null result, but expected");
 102         yaz_log(YLOG_LOG, "%s", expected_output);
 103     }
 104     else
 105     {
 106         yaz_log(YLOG_LOG, "Got result, but expected no result");
 107         yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
 108     }
 109     wrbuf_destroy(wrbuf);
 110     odr_destroy(odr);
 111     return res;
 112 }
 113
 114 int main(int argc, char **argv)
 115 {
 116     YAZ_CHECK_INIT(argc, argv);
 117     YAZ_CHECK_LOG();
 118 #if YAZ_HAVE_XML2
 119     test1();
 120     YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
 121
 122     YAZ_CHECK(test_render(
 123                   "xml", 1,
 124                   "\x30\x30\x31\x33\x38\x6E\x61\x6D\x20\x20\x32\x32\x30\x30\x30\x37"
 125                   "\x33\x38\x61\x20\x34\x35\x30\x30\x30\x30\x31\x30\x30\x31\x33\x30"
 126                   "\x30\x30\x30\x30\x30\x30\x33\x30\x30\x30\x34\x30\x30\x30\x31\x33"
 127                   "\x31\x30\x30\x30\x30\x31\x37\x30\x30\x30\x31\x37\x32\x34\x35\x30"
 128                   "\x30\x33\x30\x30\x30\x30\x33\x34\x1E\x20\x20\x20\x31\x31\x32\x32"
 129                   "\x34\x34\x36\x36\x20\x1E\x44\x4C\x43\x1E\x31\x30\x1F\x61\x4A\x61"
 130                   "\x63\x6B\x20\x43\x6F\x6C\x6C\x69\x6E\x73\x1E\x31\x30\x1F\x61\x48"
 131                   "\x6F\x77\x20\x74\x6F\x20\x70\x72\x6F\x67\x72\x61\x6D\x20\x61\x20"
 132                   "\x63\x6F\x6D\x70\x75\x74\x65\x72\x1E\x1D",
 133                   "<record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
 134                   "  <leader>00138nam a22000738a 4500</leader>\n"
 135                   "  <controlfield tag=\"001\">   11224466 </controlfield>\n"
 136                   "  <controlfield tag=\"003\">DLC</controlfield>\n"
 137                   "  <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
 138                   "    <subfield code=\"a\">Jack Collins</subfield>\n"
 139                   "  </datafield>\n"
 140                   "  <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
 141                   "    <subfield code=\"a\">How to program a computer</subfield>\n"
 142                   "  </datafield>\n"
 143                   "</record>\n"));
 144
 145     YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
 146
 147     YAZ_CHECK(test_render(
 148                   "xml; base64=/my/text()", 0,
 149                   "<my>"
 150                   "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
 151                   "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
 152                   "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
 153                   "</my>",
 154                   "<?xml version=\"1.0\"?>\n"
 155                   "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
 156                   "  <leader>00138nam a22000738a 4500</leader>\n"
 157                   "  <controlfield tag=\"001\">   11224466 </controlfield>\n"
 158                   "  <controlfield tag=\"003\">DLC</controlfield>\n"
 159                   "  <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
 160                   "    <subfield code=\"a\">Jack Collins</subfield>\n"
 161                   "  </datafield>\n"
 162                   "  <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
 163                   "    <subfield code=\"a\">How to program a computer</subfield>\n"
 164                   "  </datafield>\n"
 165                   "</record></my>\n"));
 166
 167     YAZ_CHECK(test_render(
 168                   "xml; charset=utf-8; base64=/my/text()", 0,
 169                   "<my>"
 170                   "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
 171                   "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
 172                   "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
 173                   "</my>",
 174                   "<?xml version=\"1.0\"?>\n"
 175                   "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
 176                   "  <leader>00138nam a22000738a 4500</leader>\n"
 177                   "  <controlfield tag=\"001\">   11224466 </controlfield>\n"
 178                   "  <controlfield tag=\"003\">DLC</controlfield>\n"
 179                   "  <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
 180                   "    <subfield code=\"a\">Jack Collins</subfield>\n"
 181                   "  </datafield>\n"
 182                   "  <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
 183                   "    <subfield code=\"a\">How to program a computer</subfield>\n"
 184                   "  </datafield>\n"
 185                   "</record></my>\n"));
 186
 187     YAZ_CHECK(test_render(
 188                   "xml; base64=/my/text();charset=utf-8", 0,
 189                   "<my>"
 190                   "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
 191                   "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
 192                   "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
 193                   "</my>",
 194                   "<?xml version=\"1.0\"?>\n"
 195                   "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
 196                   "  <leader>00138nam a22000738a 4500</leader>\n"
 197                   "  <controlfield tag=\"001\">   11224466 </controlfield>\n"
 198                   "  <controlfield tag=\"003\">DLC</controlfield>\n"
 199                   "  <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
 200                   "    <subfield code=\"a\">Jack Collins</subfield>\n"
 201                   "  </datafield>\n"
 202                   "  <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
 203                   "    <subfield code=\"a\">How to program a computer</subfield>\n"
 204                   "  </datafield>\n"
 205                   "</record></my>\n"));
 206
 207     YAZ_CHECK(test_render(
 208                   "txml;base64=/my/text();charset=utf-8", 0,
 209                   "<my>"
 210                   "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
 211                   "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
 212                   "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
 213                   "</my>",
 214                   "<?xml version=\"1.0\"?>\n"
 215                   "<my><r xmlns=\"http://www.indexdata.com/turbomarc\">\n"
 216                   "  <l>00138nam a22000738a 4500</l>\n"
 217                   "  <c001>   11224466 </c001>\n"
 218                   "  <c003>DLC</c003>\n"
 219                   "  <d100 i1=\"1\" i2=\"0\">\n"
 220                   "    <sa>Jack Collins</sa>\n"
 221                   "  </d100>\n"
 222                   "  <d245 i1=\"1\" i2=\"0\">\n"
 223                   "    <sa>How to program a computer</sa>\n"
 224                   "  </d245>\n"
 225                   "</r></my>\n"));
 226 #endif
 227     YAZ_CHECK_TERM;
 228 }
 229
 230
 231 /*
 232  * Local variables:
 233  * c-basic-offset: 4
 234  * c-file-style: "Stroustrup"
 235  * indent-tabs-mode: nil
 236  * End:
 237  * vim: shiftwidth=4 tabstop=8 expandtab
 238  */
 239