Move test

OCamlPro · Dec 18, 2024 · 93fb963 · 93fb963
1 parent d6aa13e
commit 93fb963
Show file tree

Hide file tree

Showing 2 changed files with 38 additions and 38 deletions.
diff --git a/tests/testsuite.src/run_fundamental.at b/tests/testsuite.src/run_fundamental.at
@@ -11308,41 +11308,3 @@ AT_CHECK([$COMPILE prog.cob], [0], [], [])
 AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
 
 AT_CLEANUP
-
-
-AT_SETUP([DISPLAY COMP-X values])
-AT_KEYWORDS([fundamental])
-
-AT_DATA([prog.cob], [
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. prog.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-
-       01 W-X                  PIC X COMP-X VALUE 99.
-       01 W-Y                  PIC X COMP-X VALUE 128.
-       01 W-Z                  PIC X VALUE "z".
-       01 W-ZR  REDEFINES W-Z  PIC X COMP-X.
-
-       PROCEDURE DIVISION.
-       MAIN.
-           DISPLAY FUNCTION BYTE-LENGTH (W-X).
-           DISPLAY FUNCTION BYTE-LENGTH (W-Y).
-           DISPLAY FUNCTION BYTE-LENGTH (W-ZR).
-           DISPLAY W-X.
-           DISPLAY W-Y.
-           DISPLAY W-ZR.
-           STOP RUN.
-])
-
-AT_CHECK([$COMPILE prog.cob], [0], [], [])
-AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [1
-1
-1
-099
-128
-122
-], [])
-
-AT_CLEANUP
diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at
@@ -15014,3 +15014,41 @@ AT_CHECK([COB_PROF_ENABLE=1 COB_PROF_FILE=prof.csv $COBCRUN_DIRECT ./caller], [0
 ])
 
 AT_CLEANUP
+
+
+AT_SETUP([DISPLAY COMP-X values])
+AT_KEYWORDS([DISPLAY COMP-X])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. prog.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+
+       01 W-X                  PIC X COMP-X VALUE 99.
+       01 W-Y                  PIC X COMP-X VALUE 128.
+       01 W-Z                  PIC X VALUE "z".
+       01 W-ZR  REDEFINES W-Z  PIC X COMP-X.
+
+       PROCEDURE DIVISION.
+       MAIN.
+           DISPLAY FUNCTION BYTE-LENGTH (W-X).
+           DISPLAY FUNCTION BYTE-LENGTH (W-Y).
+           DISPLAY FUNCTION BYTE-LENGTH (W-ZR).
+           DISPLAY W-X.
+           DISPLAY W-Y.
+           DISPLAY W-ZR.
+           STOP RUN.
+])
+
+AT_CHECK([$COMPILE prog.cob], [0], [], [])
+AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [1
+1
+1
+099
+128
+122
+], [])
+
+AT_CLEANUP