Implemented INDIC03 test case

smeup · Mar 5, 2024 · 15c8300 · 15c8300
1 parent 95c9492
commit 15c8300
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 0 deletions.
diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/InterpreterTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/InterpreterTest.kt
@@ -2255,6 +2255,15 @@ Test 6
         assertEquals(expected, "INDIC02".outputOf())
     }
 
+    @Test
+    fun executeINDIC03() {
+        val expected = listOf(
+            "*INKA(0) *IN01(1)",
+            "*INKA(1) *IN01(0)"
+        )
+        assertEquals(expected, "INDIC03".outputOf())
+    }
+
     @Test
     fun executeBIFCHECK() {
         assertEquals(listOf("ok"), outputOf("BIFCHECK"))

diff --git a/rpgJavaInterpreter-core/src/test/resources/INDIC03.rpgle b/rpgJavaInterpreter-core/src/test/resources/INDIC03.rpgle
@@ -0,0 +1,18 @@
+     D £DBG_Str        S             50    VARYING
+
+     C                   MOVEL     *ON           *IN01
+     C                   MOVEL     *OFF          *INKA
+      *
+     C                   EVAL      £DBG_Str= '*INKA('+%CHAR(*INKA)+')'
+     C                                     +' *IN01('+%CHAR(*IN01)+')'
+     C     £DBG_Str      DSPLY
+      * result: '*INKA(0) *IN01(1)'
+      *
+     C                   MOVEL     *OFF          *IN01
+     C                   MOVEL     *ON           *INKA
+      *
+     C                   EVAL      £DBG_Str= '*INKA('+%CHAR(*INKA)+')'
+     C                                     +' *IN01('+%CHAR(*IN01)+')'
+     C     £DBG_Str      DSPLY
+      * result: '*INKA(1) *IN01(0)'
+     C                   SETON                                        LR