アセンブラファイルとテストの整理

[YACASL2.git] / test / unit / getgr / getgr.c

diff --git a/test/unit/getgr/getgr.c b/test/unit/getgr/getgr.c
new file mode 100644 (file)
index 0000000..fe6ac18
--- /dev/null
+++ b/test/unit/getgr/getgr.c
@@ -0,0 +1,29 @@
+#include "casl2.h"
+#include "assemble.h"
+
+int main(){
+    int i, j;
+    char *title = malloc(64);
+    WORD r;
+    bool is_x[] = {
+        false, true
+    };
+    char *str[] = {
+        "", "0", "aaa", "GR", "GR8", "GR20",
+        "GR0", "GR1", "GR2", "GR3", "GR4", "GR5", "GR6", "GR7"
+    };
+    for(i = 0; i <= 1; i++) {
+        title = (is_x[i] == false) ? "Generel Register" : "Index Register";
+        printf("== %s ==\n", title);
+        for(j = 0; j < sizeof(str)/sizeof(str[0]); j++) {
+            r = getgr(str[j], is_x[i]);
+            printf("%s\t#%04X", str[j], r);
+            if(cerrno > 0) {
+                printf("\tError - %d\t%s", cerrno, cerrmsg);
+                freecerr();
+            }
+            printf("\n");
+        }
+    }
+    return 0;
+}