test: improve a test to execute untested code in write_json_info

yutaro-sakamoto · yutaro-sakamoto · commit f74720b0c27c · 2025-06-13T08:21:44.000Z
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"
     }
   @:>@
 }

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`	`}`