From f74720b0c27cfe94570cbef2f13a769a92c4a0ed Mon Sep 17 00:00:00 2001 From: Yutaro Sakamoto Date: Fri, 13 Jun 2025 08:14:26 +0000 Subject: [PATCH 1/2] test: improve a test to execute untested code in write_json_info --- tests/command-line-options.src/info-java-dir.at | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tests/command-line-options.src/info-java-dir.at b/tests/command-line-options.src/info-java-dir.at index b2b34390..a2b61d37 100644 --- 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" } @:>@ } From bffed8d66ca9b321138a239e16a57168b0cee7f9 Mon Sep 17 00:00:00 2001 From: Yutaro Sakamoto Date: Tue, 17 Jun 2025 02:40:24 +0000 Subject: [PATCH 2/2] test: fix info-java-dir.at --- tests/command-line-options.src/info-java-dir.at | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/command-line-options.src/info-java-dir.at b/tests/command-line-options.src/info-java-dir.at index a2b61d37..0415356c 100644 --- a/tests/command-line-options.src/info-java-dir.at +++ b/tests/command-line-options.src/info-java-dir.at @@ -79,6 +79,10 @@ AT_CHECK([cat bbb/info_callee.json], [0], { "variable_name": "P2", "java_type": "int" + }, + { + "variable_name": "P3", + "java_type": "double" } @:>@ }