Add test case

smeup · Jun 27, 2024 · 0206417 · 0206417
1 parent 0c12710
commit 0206417
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/...aInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT02ConstAndDSpecTest.kt b/...aInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT02ConstAndDSpecTest.kt
@@ -352,4 +352,14 @@ open class MULANGT02ConstAndDSpecTest : MULANGTTest() {
         val expected = listOf("ok")
         assertEquals(expected, "smeup/MUDRNRAPU00219".outputOf(configuration = smeupConfig))
     }
+
+    /**
+     * Caller activation group with no actual caller
+     * @see #LS24003137
+     */
+    @Test
+    fun executeMUDRNRAPU00221() {
+        val expected = listOf("ok")
+        assertEquals(expected, "smeup/MUDRNRAPU00221".outputOf(configuration = smeupConfig))
+    }
 }
diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00221.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00221.rpgle
@@ -0,0 +1,5 @@
+     D £DBG_Str        S             2
+     H DECEDIT(*JOBRUN) DATEDIT(*DMY/) DFTACTGRP(*NO) ACTGRP(*CALLER)
+     H OPTION(*NODEBUGIO:*SRCSTMT:*NOUNREF) CCSID(*CHAR : *JOBRUN) DEBUG(*INPUT)
+     C                   EVAL      £DBG_Str='ok'
+     C     £DBG_Str      DSPLY