Add test

smeup · Jan 29, 2024 · 9ed7884 · 9ed7884
1 parent 06b42f1
commit 9ed7884
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/...vaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/SmeupInterpreterTest.kt b/...vaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/evaluation/SmeupInterpreterTest.kt
@@ -219,4 +219,10 @@ open class SmeupInterpreterTest : AbstractTest() {
             "smeup/T10_A60_P04F".outputOf()
         }
     }
+
+    @Test
+    fun executeT10_A20_P19() {
+        val expected = listOf("1020")
+        assertEquals(expected, "smeup/T10_A20_P19".outputOf())
+    }
 }
diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/T10_A20_P19.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/T10_A20_P19.rpgle
@@ -0,0 +1,10 @@
+     D £DBG_Str        S             50          VARYING
+     D A20_AR1         S              2  0 DIM(2)
+     ***************************************************************************
+     C                   Z-ADD     10            A20_AR1(1)
+     C                   Z-ADD     20            A20_AR1(2)
+     C                   EVAL      £DBG_Str=%CHAR(A20_AR1(1))
+     C                                     +%CHAR(A20_AR1(2))
+      * EXPECTED: 1020
+     C     £DBG_Str      DSPLY
+     C                   SETON                                        LR