+ {
+ 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);
+ }