Improve a test to execute untested code in write_json_info in cobj/codegen.c (#667)

yutaro-sakamoto · web-flow · commit 80eedf526202 · 2025-06-17T13:27:28.000+09:00
diff --git a/tests/command-line-options.src/info-java-dir.at b/tests/command-line-options.src/info-java-dir.at
@@ -10,7 +10,8 @@ AT_DATA([callee.cbl], [
        LINKAGE          SECTION.
        01 P1            PIC X ANY LENGTH.
        01 P2            PIC 99.
-       PROCEDURE        DIVISION USING P1 P2.
+       01 P3            PIC 9V9.
+       PROCEDURE        DIVISION USING P1 P2 P3.
            GOBACK.
 ])
 
@@ -38,6 +39,10 @@ AT_CHECK([cat info_callee.json], [0],
     {
       "variable_name": "P2",
       "java_type": "int"
+    },
+    {
+      "variable_name": "P3",
+      "java_type": "double"
     }
   @:>@
 }
@@ -74,6 +79,10 @@ AT_CHECK([cat bbb/info_callee.json], [0],
     {
       "variable_name": "P2",
       "java_type": "int"
+    },
+    {
+      "variable_name": "P3",
+      "java_type": "double"
     }
   @:>@
 }

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,8 @@ AT_DATA([callee.cbl], [`
`10`	`10`	`LINKAGE SECTION.`
`11`	`11`	`01 P1 PIC X ANY LENGTH.`
`12`	`12`	`01 P2 PIC 99.`
`13`		`- PROCEDURE DIVISION USING P1 P2.`
	`13`	`+ 01 P3 PIC 9V9.`
	`14`	`+ PROCEDURE DIVISION USING P1 P2 P3.`
`14`	`15`	`GOBACK.`
`15`	`16`	`])`
`16`	`17`
`@@ -38,6 +39,10 @@ AT_CHECK([cat info_callee.json], [0],`
`38`	`39`	`{`
`39`	`40`	`"variable_name": "P2",`
`40`	`41`	`"java_type": "int"`
	`42`	`+ },`
	`43`	`+ {`
	`44`	`+ "variable_name": "P3",`
	`45`	`+ "java_type": "double"`
`41`	`46`	`}`
`42`	`47`	`@:>@`
`43`	`48`	`}`
`@@ -74,6 +79,10 @@ AT_CHECK([cat bbb/info_callee.json], [0],`
`74`	`79`	`{`
`75`	`80`	`"variable_name": "P2",`
`76`	`81`	`"java_type": "int"`
	`82`	`+ },`
	`83`	`+ {`
	`84`	`+ "variable_name": "P3",`
	`85`	`+ "java_type": "double"`
`77`	`86`	`}`
`78`	`87`	`@:>@`
`79`	`88`	`}`