New test for ODR. Demonstrates the use of small ASN.1 spec too.

[yaz-moved-to-github.git] / odr / tstodr.c

diff --git a/odr/tstodr.c b/odr/tstodr.c
new file mode 100644 (file)
index 0000000..f302b20
--- /dev/null
+++ b/odr/tstodr.c
@@ -0,0 +1,61 @@
+/*
+ * Copyright (c) 1995-2003, Index Data
+ * See the file LICENSE for details.
+ *
+ * $Id: tstodr.c,v 1.1 2003-05-06 10:08:30 adam Exp $
+ *
+ */
+#include <stdio.h>
+#include <yaz/odr.h>
+#include "tstodrcodec.h"
+
+void tst_MySequence(ODR encode, ODR decode)
+{
+    char *ber_buf;
+    int ber_len;
+    Yc_MySequence *s = odr_malloc(encode, sizeof(*s));
+    Yc_MySequence *t;
+
+    s->first = odr_intdup(encode, 12345);
+    s->second = odr_malloc(encode, sizeof(*s->second));
+    s->second->buf = "hello";
+    s->second->len = 5;
+    s->second->size = 0;
+    s->third = odr_intdup(encode, 1);
+    s->fourth = odr_nullval();
+    s->fifth = odr_intdup(encode, YC_MySequence_enum1);
+
+    if (!yc_MySequence(encode, &s, 0, 0))
+        exit(1);
+    
+    ber_buf = odr_getbuf(encode, &ber_len, 0);
+
+    odr_setbuf(decode, ber_buf, ber_len, 1);
+
+    if (!yc_MySequence(decode, &t, 0, 0))
+        exit(2);
+    if (!t->first || *t->first != 12345)
+        exit(3);
+    if (!t->second || !t->second->buf || t->second->len != 5)
+        exit(4);
+    if (memcmp(t->second->buf, "hello", t->second->len))
+        exit(5);
+    if (!t->third || *t->third != 1)
+        exit(6);
+    if (!t->fourth)
+        exit(7);
+    if (!t->fifth || *t->fifth != YC_MySequence_enum1)
+        exit(8);
+}
+
+int main(int argc, char **argv)
+{
+    ODR odr_encode = odr_createmem(ODR_ENCODE);
+    ODR odr_decode = odr_createmem(ODR_DECODE);
+
+    tst_MySequence(odr_encode, odr_decode);
+
+    odr_destroy(odr_encode);
+    odr_destroy(odr_decode);
+    exit(0);
+}