ユニットテストに、最新版のAutotest.mkを反映

[YACASL2.git] / test / unit / linetok / cmd.c

diff --git a/test/unit/linetok/cmd.c b/test/unit/linetok/cmd.c
new file mode 100644 (file)
index 0000000..28555cd
--- /dev/null
+++ b/test/unit/linetok/cmd.c
@@ -0,0 +1,48 @@
+#include <stdio.h>
+#include <malloc.h>
+#include "casl2.h"
+#include "assemble.h"
+
+int main(){
+    int i, j;
+    char *testline[] = {
+        "IOTEST START\n",
+        "      OUT OBUF1,OLEN1\n",
+        "      OUT OBUF2,OLEN2 ;comment\n",
+        "      OUT OBUF1,OLEN1 \n",
+        "      OUT OBUF1,OLEN1 \n",
+        "      OUT OBUF2,OLEN2 \n",
+        "      OUT OBUF1, OLEN1 \n",
+        "BEGIN LD      GR1, A\n",
+        "\n",
+        "      ;comment\n"
+    };
+
+    CMDLINE *testcl = malloc(sizeof(CMDLINE));
+    cerr = malloc_chk(sizeof(CERR), "cerr");    /* エラーの初期化 */
+    addcerrlist_assemble();
+    for(i = 0; i < sizeof testline /sizeof testline[0]; i++) {
+        printf("%d: %s", i, testline[i]);
+        testcl = linetok(testline[i]);
+        if(testcl == NULL) {
+            puts("cl is NULL");
+        } else {
+            if(testcl->label != NULL){
+                printf("cl->label: %s\n", testcl->label);
+            }
+            if(testcl->cmd != NULL){
+                printf("cl->cmd: %s\n", testcl->cmd);
+                printf("cl->opdc: %d\n", testcl->opd->opdc);
+                for(j = 0; j < testcl->opd->opdc; j++) {
+                    printf("cl->opdv[%d]: %s\n", j, testcl->opd->opdv[j]);
+                }
+            }
+        }
+        if(cerr->num != 0) {
+            printf("\terror - %d: %s\n", cerr->num, cerr->msg);
+        }
+        printf("\n");
+    }
+    freecerr();
+    return 0;
+}