new test
diff --git a/skeletons/tests/check-OCTET_STRING.c b/skeletons/tests/check-OCTET_STRING.c
new file mode 100644
index 0000000..a69ee74
--- /dev/null
+++ b/skeletons/tests/check-OCTET_STRING.c
@@ -0,0 +1,97 @@
+#define EMIT_ASN_DEBUG 1
+#include <OCTET_STRING.c>
+#include <BIT_STRING.c>
+#include <xer_decoder.c>
+#include <xer_support.c>
+#include <ber_decoder.c>
+#include <ber_tlv_length.c>
+#include <ber_tlv_tag.c>
+#include <der_encoder.c>
+#include <constraints.c>
+#include <sys/time.h>
+
+#define HEX 0
+#define BINARY 1
+#define UTF8 2
+
+static void
+check(int type, char *tagname, char *xmlbuf, char *verify) {
+ int xmllen = strlen(xmlbuf);
+ int verlen = verify ? strlen(verify) : 0;
+ asn_TYPE_descriptor_t *td = &asn_DEF_OCTET_STRING;
+ OCTET_STRING_t *st = 0;
+ asn_dec_rval_t rc;
+ xer_type_decoder_f *decoder = 0;
+
+ switch(type) {
+ case HEX: decoder = OCTET_STRING_decode_xer_hex; break;
+ case BINARY:
+ td = &asn_DEF_BIT_STRING;
+ decoder = OCTET_STRING_decode_xer_binary; break;
+ case UTF8: decoder = OCTET_STRING_decode_xer_utf8; break;
+ }
+
+ rc = decoder(0, td, (void **)&st, tagname, xmlbuf, xmllen);
+ printf("[%s] => [%s]:%d vs [%s]:%d, code %d\n",
+ xmlbuf,
+ st ? st->buf : 0, st ? st->size : 0,
+ verify, verlen, rc.code);
+
+ if(verify) {
+ assert(rc.code == RC_OK);
+ assert(st);
+ assert(st->buf);
+ assert(st->size == verlen);
+ assert(!memcmp(st->buf, verify, verlen));
+ } else {
+ assert(rc.code != RC_OK);
+ }
+}
+
+int
+main() {
+
+ check(HEX, 0, "<OCTET_STRING>41424</OCTET_STRING>",
+ "AB@");
+
+ check(HEX, 0, "<!--comment--><OCTET_STRING>\n"
+ "<!--comment-->41424</OCTET_STRING>",
+ "AB@");
+
+ check(HEX, 0, "<OCTET_STRING blah blah> 4 1 4 2 4 5 44 </OCTET_STRING>",
+ "ABED");
+
+ /* Some hard cases */
+ check(HEX, "z", "<z><!-- < -->40</z>", "@");
+ check(HEX, "z", "<z><!-- <-->40</z>", "@");
+ check(HEX, "z", "<z><!-- -->>40</z>", 0);
+ check(HEX, "z", "<z><!-- <some <sometag>-->40</z>", "@");
+ check(HEX, "z", "<z><!-- <some <sometag-->>40</z>", 0);
+
+ check(HEX, "tag", "<tag>4</tag>", "@");
+
+ check(BINARY, "tag", "<tag/>", "");
+ check(BINARY, "tag", "<tag>blah</tag>", 0);
+ check(BINARY, "tag", "<tag>01000001</tag>", "A");
+ check(BINARY, "tag", "<tag>01000<!--blah--> 00 101 00001</tag>", "AB");
+
+ check(UTF8, 0, "<OCTET_STRING>one, two, three</OCTET_STRING>",
+ "one, two, three");
+
+ check(UTF8, "z", "<z z z><&></z z z>", "<&>");
+ check(UTF8, "z", "<z z z>a<b&c>d</z z z>", "a<b&c>d");
+ check(UTF8, "z", "<z z z>a<</z z z>", "a<");
+ check(UTF8, "z", "<z z z>a&sdfsdfsdf;b</z z z>", "a&sdfsdfsdf;b");
+ check(UTF8, "z", "<z z z>a b</z z z>", "a b");
+ check(UTF8, "z", "<z z z>a b</z z z>", "a b");
+ check(UTF8, "z", "<z>a繃b</z>", "a\347\271\203b");
+ check(UTF8, "z", "<z>a�b</z>", "a�b");
+ check(UTF8, "z", "<z>aĬ</z>", "aĬ");
+ check(UTF8, "z", "<z>a&#-300;</z>", "a&#-300;");
+ check(UTF8, "z", "<z>a<ff/>b</z>", "a\014b");
+ check(UTF8, "z", "<z>a<soh/>b</z>", "a\001b");
+ check(UTF8, "z", "<z>a<bel/></z>", "a\007");
+
+ return 0;
+}
+