+ {
+ Z_OPACRecord *opac = 0;
+ yaz_marc_t mt = yaz_marc_create();
+ ret = yaz_xml_to_opac(mt, opacxml_rec, strlen(opacxml_rec),
+ &opac, 0 /* iconv */, nmem, 0);
+ YAZ_CHECK(ret);
+ YAZ_CHECK(opac);
+
+ if (opac)
+ {
+ WRBUF output_record = wrbuf_alloc();
+ char *p;
+
+ yaz_marc_xml(mt, YAZ_MARC_MARCXML);
+ yaz_opac_decode_wrbuf(mt, opac, output_record);
+
+ /* change MARC size to 00077 from 00078, due to
+ encoding of the aring (two bytes in UTF-8) */
+ p = strstr(wrbuf_buf(output_record), "00078");
+ YAZ_CHECK(p);
+ if (p)
+ p[4] = '7';
+
+ ret = strcmp(wrbuf_cstr(output_record), opacxml_rec);
+ YAZ_CHECK(ret == 0);
+ if (ret)
+ {
+ printf("got-output_record len=%ld: %s\n",
+ (long) wrbuf_len(output_record),
+ wrbuf_cstr(output_record));
+ printf("output_expect_record len=%ld %s\n",
+ (long) strlen(opacxml_rec),
+ opacxml_rec);
+ }
+ wrbuf_destroy(output_record);
+ }
+ yaz_marc_destroy(mt);
+ }
+ nmem_destroy(nmem);
+}
+
+static void tst_convert4(void)
+{
+ NMEM nmem = nmem_create();
+ int ret;
+
+ const char *opacxml_rec =
+ "<opacRecord>\n"
+ " <bibliographicRecord>\n"
+ "<record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+ " <leader>00077nam a22000498a 4500</leader>\n"
+ " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
+ " <datafield tag=\"010\" ind1=\" \" ind2=\" \">\n"
+ " <subfield code=\"a\">k" "\xc3" "\xb8" /* oslash in UTF_8 */
+ "benhavn</subfield>\n"
+ " </datafield>\n"
+ "</record>\n"
+ " </bibliographicRecord>\n"
+ " <holdings>\n"
+ " <holding>\n"
+ " <shelvingLocation>Sprague Library hidden basement</shelvingLocation>\n"
+ " <callNumber>E98.L7L44 1976 </callNumber>\n"
+ " <volumes/>\n"
+ " </holding>\n"
+ " </holdings>\n"
+ " </opacRecord>\n"
+ ;
+
+ Z_OPACRecord *opac = 0;
+ yaz_marc_t mt = yaz_marc_create();
+ ret = yaz_xml_to_opac(mt, opacxml_rec, strlen(opacxml_rec),
+ &opac, 0 /* iconv */, nmem, 0);
+ YAZ_CHECK(ret);
+ YAZ_CHECK(opac);
+ yaz_marc_destroy(mt);