test(*): 数値型への代入エラーについてテストを追加

test(*): Add test move string to numeric

数値型へ文字列と変数を代入するテストを追加した

Author: n-isaka

tests/run.src/misc.at

@@ -2026,3 +2026,25 @@ AT_CHECK([${COMPILE} -o prog prog.cob])
 AT_CHECK([./prog], [0], [021027013])
 
 AT_CLEANUP
+
+
+AT_SETUP([MOVE x TO numeric])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       DATA             DIVISION.
+       WORKING-STORAGE  SECTION.
+       01 X-ABC         PIC 999.
+       01 X             PIC XXX VALUE "abc".
+       PROCEDURE        DIVISION.
+           MOVE X TO X-ABC.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE_JP_COMPAT} prog.cob], [0])
+AT_CHECK([./prog], [1], [],
+[prog.cob:9: libcob: Numeric value is expected
+])
+
+AT_CLEANUP

tests/syntax.src/move.at

@@ -312,3 +312,24 @@ AT_CHECK([${COMPILE_ONLY} prog.cob], [1], ,
 ])
 
 AT_CLEANUP
+
+
+AT_SETUP([MOVE string TO numeric])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       DATA             DIVISION.
+       WORKING-STORAGE  SECTION.
+       01 X-ABC         PIC 999.
+       PROCEDURE        DIVISION.
+           MOVE "abc" TO X-ABC.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE_JP_COMPAT} prog.cob], [1], ,
+[prog.cob:8: Error: Numeric value is expected
+prog.cob:6: Error: 'X-ABC' defined here as PIC 999
+])
+
+AT_CLEANUP