From bb586f4ab7f8aacc9d0591e276fc5aa6986e54be Mon Sep 17 00:00:00 2001
From: Vedant Tewari <vedanttewari541@gmail.com>
Date: Mon, 9 Sep 2024 02:11:48 -0500
Subject: [PATCH] Added test for invalid name

---
 tests/testsuite.src/run_java.at | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tests/testsuite.src/run_java.at b/tests/testsuite.src/run_java.at
index 0061d498a..ce8bb02c5 100644
--- a/tests/testsuite.src/run_java.at
+++ b/tests/testsuite.src/run_java.at
@@ -65,3 +65,19 @@ AT_CHECK([$COMPILE prog.cob], [0], [], [])
 # TODO: should fail!
 AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [])
 AT_CLEANUP
+
+AT_SETUP([CALL Java with malformed method name])
+AT_KEYWORDS([extensions jni malformed])
+
+AT_SKIP_IF([test "$COB_HAS_JNI" = "no"])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       PROCEDURE        DIVISION.
+           CALL "JavaInvalidName"
+           STOP RUN.
+])
+
+AT_CHECK([$COMPILE prog.cob], [1], [], [stderr])
+AT_CLEANUP
\ No newline at end of file