X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=test%2Funit%2Fh2word%2Fh2word.c;fp=test%2Funit%2Fh2word%2Fh2word.c;h=a4c34f8b6b1b36787eb33242bffb8a22d9b183cc;hb=8734038470680c50615c8f71bd4934f44c5f39f6;hp=0000000000000000000000000000000000000000;hpb=7bfb6d78ba07ac3613107e88578ab7c3daee2cc3;p=YACASL2.git

diff --git a/test/unit/h2word/h2word.c b/test/unit/h2word/h2word.c
new file mode 100644
index 0000000..a4c34f8
--- /dev/null
+++ b/test/unit/h2word/h2word.c
@@ -0,0 +1,22 @@
+#include <stdio.h>
+#include "casl2.h"
+#include "assemble.h"
+#include "exec.h"
+
+int main(){
+    int i;
+    WORD r;
+    char *str[] = {
+        "#32768", "#-1", "#G", "#FFFF", "#0", "#1", "#ab", "#AB", "#20"
+    };
+    for(i = 0; i < sizeof(str)/sizeof(str[0]); i++) {
+        r = h2word(str[i]);
+        printf("%s\t#%04X", str[i], r);
+        if(cerrno > 0) {
+            printf("\tError - %d\t%s", cerrno, cerrmsg);
+            freecerr();
+        }
+        printf("\n");
+    }
+    return 0;
+}