From 5edac15d52098e60431f9983399cd3949e4d3663 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 13:35:46 +0100 Subject: [PATCH 01/12] Implemented test --- .../rpgparser/smeup/MULANGT10BaseCodopTest.kt | 10 ++++++ .../test/resources/smeup/MUDRNRAPU00193.rpgle | 35 +++++++++++++++++++ 2 files changed, 45 insertions(+) create mode 100644 rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt index ecd6aae67..6d8aade12 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt @@ -928,4 +928,14 @@ open class MULANGT10BaseCodopTest : MULANGTTest() { val expected = listOf("1", "0") assertEquals(expected, "smeup/MUDRNRAPU00280".outputOf(configuration = smeupConfig)) } + + /** + * MOVEA from DS to S defined as array. + * @see #LS25000557 + */ + @Test + fun executeMUDRNRAPU00193() { + val expected = listOf("0123456789", "", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9") + assertEquals(expected, "smeup/MUDRNRAPU00191".outputOf()) + } } \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle new file mode 100644 index 000000000..5e64a88a6 --- /dev/null +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle @@ -0,0 +1,35 @@ + V* ============================================================== + V* 05/02/2025 APU001 Creation + V* ============================================================== + O * PROGRAM GOAL + O * MOVEA from DS to S defined as array. + V* ============================================================== + O * JARIKO ANOMALY + O * An operation is not implemented: takeFirst not yet implemented + O * for DataStructValue. + V* ============================================================== + D SCAATTDS DS 10 + D SCAATTSTR S 10 + D SCAATT S 1 DIM(10) + D I S 2 0 + + C EVAL SCAATTDS='0123456789' + C EXSR SHOW + + C MOVEA SCAATTDS SCAATT #Issue executing MoveAStmt at line 4. An operation is not implemented: takeFirst not yet implemented for DataStructValue + C EXSR SHOW + + C SETON LR + + + + C SHOW BEGSR + + C SCAATTDS DSPLY + C CLEAR SCAATTSTR + C FOR I = 1 TO 10 + C EVAL SCAATTSTR=%TRIM(SCAATTSTR)+ + C %CHAR(SCAATT(I)) + C ENDFOR + C SCAATTSTR DSPLY + C ENDSR \ No newline at end of file From 2b724906f7edc0230e7eeed2fcf953be5313d982 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 13:38:41 +0100 Subject: [PATCH 02/12] Fixed assert --- .../kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt index 6d8aade12..ba7b7f1e9 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt @@ -936,6 +936,6 @@ open class MULANGT10BaseCodopTest : MULANGTTest() { @Test fun executeMUDRNRAPU00193() { val expected = listOf("0123456789", "", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9") - assertEquals(expected, "smeup/MUDRNRAPU00191".outputOf()) + assertEquals(expected, "smeup/MUDRNRAPU00193".outputOf()) } } \ No newline at end of file From a2a1bbd47732f5fc411321a621a5c8f127066cba Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 13:49:23 +0100 Subject: [PATCH 03/12] Fixed expected value --- .../kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt index ba7b7f1e9..916e5c8c0 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt @@ -935,7 +935,7 @@ open class MULANGT10BaseCodopTest : MULANGTTest() { */ @Test fun executeMUDRNRAPU00193() { - val expected = listOf("0123456789", "", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9") + val expected = listOf("0123456789", "", "0123456789", "0123456789") assertEquals(expected, "smeup/MUDRNRAPU00193".outputOf()) } } \ No newline at end of file From 414eb94a6700c6cdb4d4674086c69db5a7eaee61 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 14:08:29 +0100 Subject: [PATCH 04/12] Applied fix for DS to Array of String --- .../src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt index 34a155c04..e73493d80 100644 --- a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt +++ b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt @@ -1342,6 +1342,10 @@ data class DataStructValue(@Contextual val value: DataStructValueBuilder, privat result = 31 * result + unlimitedStringField.hashCode() return result } + + override fun takeFirst(n: Int): Value { + return getSubstring(0, n) + } } fun Int.asValue() = IntValue(this.toLong()) From e4e398559f703a35322dbc511bc5d8e1138eabb7 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 15:01:41 +0100 Subject: [PATCH 05/12] Implemented `ERROR51` --- .../rpgparser/interpreter/JarikoCallbackTest.kt | 12 ++++++++++++ .../src/test/resources/ERROR51.rpgle | 15 +++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt index d1f987938..50406f279 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt @@ -1033,6 +1033,18 @@ class JarikoCallbackTest : AbstractTest() { executeSourceLineTest("ERROR50") } + @Test + fun executeERROR51CallBackTest() { + executePgmCallBackTest("ERROR51", SourceReferenceType.Program, "ERROR51", mapOf( + 13 to "Factor 2 and Result aren't same type: SCAATTDS (Position(start=Line 13, Column 35, end=Line 13, Column 43))" + )) + } + + @Test + fun executeERROR51SourceLineTest() { + executeSourceLineTest("ERROR51") + } + @Test fun bypassSyntaxErrorTest() { val configuration = Configuration().apply { diff --git a/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle b/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle new file mode 100644 index 000000000..c4fc80d86 --- /dev/null +++ b/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle @@ -0,0 +1,15 @@ + V* ============================================================== + D* 05/02/25 + D* Purpose: Must fire the following errors during execution of + D* `C MOVEA SCAATTDS SCAATT`: + D* line 19 - "Factor 2 and Result aren't same type" + D* because isn't possible to assign DS to a Standalone defined + D* as number + V* ============================================================== + D SCAATTDS DS 10 + D SCAATT S 1 0 DIM(10) + + C EVAL SCAATTDS='0123456789' + C MOVEA SCAATTDS SCAATT + + C SETON LR \ No newline at end of file From b2b303988abcc94ad7039cf7c5f48e388e514969 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 15:01:55 +0100 Subject: [PATCH 06/12] Applied fix for `ERROR51` --- .../src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt index ac19401b3..43826424e 100644 --- a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt +++ b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt @@ -56,6 +56,10 @@ private fun moveaNumber( interpreterCore: InterpreterCore, value: Expression ): ConcreteArrayValue { + if (value is DataRefExpr && value.variable.referred?.type is DataStructureType) { + throw IllegalStateException("Factor 2 and Result aren't same type: ${value.render()} (${value.position})") + } + val targetArray = interpreterCore.get(target.variable.referred!!).asArray() val newValue = interpreterCore.toArray(value, targetArray.elementType) val arrayValue = createArrayValue(baseType(target.type()), target.type().numberOfElements()) { From 683c8da212f05661b596dd060d8c265ea57a54df Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Wed, 5 Feb 2025 15:22:36 +0100 Subject: [PATCH 07/12] Renamed tests for next merge from develop --- .../com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt | 4 ++-- .../smeup/{MUDRNRAPU00193.rpgle => MUDRNRAPU00195.rpgle} | 0 2 files changed, 2 insertions(+), 2 deletions(-) rename rpgJavaInterpreter-core/src/test/resources/smeup/{MUDRNRAPU00193.rpgle => MUDRNRAPU00195.rpgle} (100%) diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt index 916e5c8c0..8242ecf2c 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt @@ -934,8 +934,8 @@ open class MULANGT10BaseCodopTest : MULANGTTest() { * @see #LS25000557 */ @Test - fun executeMUDRNRAPU00193() { + fun executeMUDRNRAPU00195() { val expected = listOf("0123456789", "", "0123456789", "0123456789") - assertEquals(expected, "smeup/MUDRNRAPU00193".outputOf()) + assertEquals(expected, "smeup/MUDRNRAPU00195".outputOf()) } } \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00195.rpgle similarity index 100% rename from rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00193.rpgle rename to rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00195.rpgle From 2acc39e4e5d281800d7aa532862bd6a085986e57 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Thu, 6 Feb 2025 10:13:30 +0100 Subject: [PATCH 08/12] Added two new test. --- .../rpgparser/smeup/MULANGT10BaseCodopTest.kt | 20 ++++++++++++ .../test/resources/smeup/MUDRNRAPU00196.rpgle | 31 ++++++++++++++++++ .../test/resources/smeup/MUDRNRAPU00197.rpgle | 32 +++++++++++++++++++ 3 files changed, 83 insertions(+) create mode 100644 rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00196.rpgle create mode 100644 rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00197.rpgle diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt index eab31ec43..7e2a2213f 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/smeup/MULANGT10BaseCodopTest.kt @@ -938,4 +938,24 @@ open class MULANGT10BaseCodopTest : MULANGTTest() { val expected = listOf("0123456789", "", "0123456789", "0123456789") assertEquals(expected, "smeup/MUDRNRAPU00195".outputOf()) } + + /** + * MOVEA from DS to S defined as array, with size lower than DS. + * @see #LS25000557 + */ + @Test + fun executeMUDRNRAPU00196() { + val expected = listOf("0123456789", "", "0123456789", "01234567") + assertEquals(expected, "smeup/MUDRNRAPU00196".outputOf()) + } + + /** + * MOVEA from DS to S defined as array, with size greater than DS. + * @see #LS25000557 + */ + @Test + fun executeMUDRNRAPU00197() { + val expected = listOf("0123456789", "", "0123456789", "0123456789") + assertEquals(expected, "smeup/MUDRNRAPU00197".outputOf()) + } } \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00196.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00196.rpgle new file mode 100644 index 000000000..16ebf1698 --- /dev/null +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00196.rpgle @@ -0,0 +1,31 @@ + V* ============================================================== + V* 06/02/2025 APU001 Creation + V* ============================================================== + O * PROGRAM GOAL + O * MOVEA from DS to S defined as array, with size lower than DS. + V* ============================================================== + D SCAATTDS DS 10 + D SCAATTSTR S 8 + D SCAATT S 1 DIM(8) + D I S 1 0 + + C EVAL SCAATTDS='0123456789' + C EXSR SHOW + + C MOVEA SCAATTDS SCAATT + C EXSR SHOW + + C SETON LR + + + + C SHOW BEGSR + + C SCAATTDS DSPLY + C CLEAR SCAATTSTR + C FOR I = 1 TO 8 + C EVAL SCAATTSTR=%TRIM(SCAATTSTR)+ + C %CHAR(SCAATT(I)) + C ENDFOR + C SCAATTSTR DSPLY + C ENDSR \ No newline at end of file diff --git a/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00197.rpgle b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00197.rpgle new file mode 100644 index 000000000..cc234fe26 --- /dev/null +++ b/rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00197.rpgle @@ -0,0 +1,32 @@ + V* ============================================================== + V* 06/02/2025 APU001 Creation + V* ============================================================== + O * PROGRAM GOAL + O * MOVEA from DS to S defined as array, with size greater + O * than DS. + V* ============================================================== + D SCAATTDS DS 10 + D SCAATTSTR S 12 + D SCAATT S 1 DIM(12) + D I S 2 0 + + C EVAL SCAATTDS='0123456789' + C EXSR SHOW + + C MOVEA SCAATTDS SCAATT + C EXSR SHOW + + C SETON LR + + + + C SHOW BEGSR + + C SCAATTDS DSPLY + C CLEAR SCAATTSTR + C FOR I = 1 TO 12 + C EVAL SCAATTSTR=%TRIM(SCAATTSTR)+ + C %CHAR(SCAATT(I)) + C ENDFOR + C SCAATTSTR DSPLY + C ENDSR \ No newline at end of file From fd9a4a592fa6c477cccf60aaf0e2ae01910b0b01 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Thu, 6 Feb 2025 10:13:51 +0100 Subject: [PATCH 09/12] Applied fix for `MUDRNRAPU00197` --- .../src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt index e73493d80..f07233859 100644 --- a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt +++ b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/values.kt @@ -1344,7 +1344,7 @@ data class DataStructValue(@Contextual val value: DataStructValueBuilder, privat } override fun takeFirst(n: Int): Value { - return getSubstring(0, n) + return getSubstring(0, if (n <= len) n else len) } } From 3348e0f3a88fa45d3220dcbae8995a3fb2041029 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Fri, 7 Feb 2025 09:59:46 +0100 Subject: [PATCH 10/12] Improved error message --- .../src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt index 43826424e..0c4fd45b9 100644 --- a/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt +++ b/rpgJavaInterpreter-core/src/main/kotlin/com/smeup/rpgparser/interpreter/move_a.kt @@ -57,7 +57,7 @@ private fun moveaNumber( value: Expression ): ConcreteArrayValue { if (value is DataRefExpr && value.variable.referred?.type is DataStructureType) { - throw IllegalStateException("Factor 2 and Result aren't same type: ${value.render()} (${value.position})") + throw IllegalStateException("You cannot move a DS into a numeric array: ${value.render()} (${value.position})") } val targetArray = interpreterCore.get(target.variable.referred!!).asArray() From 870a4b29924497bdfb78bddc05cb9cbcf66c0ae7 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Fri, 7 Feb 2025 10:05:07 +0100 Subject: [PATCH 11/12] Applied refactoring for `ERROR51` test --- .../com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt | 2 +- rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt index 1263aee52..de7adec48 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt @@ -1036,7 +1036,7 @@ class JarikoCallbackTest : AbstractTest() { @Test fun executeERROR51CallBackTest() { executePgmCallBackTest("ERROR51", SourceReferenceType.Program, "ERROR51", mapOf( - 13 to "Factor 2 and Result aren't same type: SCAATTDS (Position(start=Line 13, Column 35, end=Line 13, Column 43))" + 13 to "You cannot move a DS into a numeric array: SCAATTDS (Position(start=Line 13, Column 35, end=Line 13, Column 43))" )) } diff --git a/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle b/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle index c4fc80d86..99d643e63 100644 --- a/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle +++ b/rpgJavaInterpreter-core/src/test/resources/ERROR51.rpgle @@ -2,7 +2,7 @@ D* 05/02/25 D* Purpose: Must fire the following errors during execution of D* `C MOVEA SCAATTDS SCAATT`: - D* line 19 - "Factor 2 and Result aren't same type" + D* line 13 - "You cannot move a DS into a numeric array" D* because isn't possible to assign DS to a Standalone defined D* as number V* ============================================================== From e80c995e3a6705048ff7e3b964e8df01b60a4740 Mon Sep 17 00:00:00 2001 From: Davide Palladino Date: Fri, 7 Feb 2025 10:05:36 +0100 Subject: [PATCH 12/12] Sorted `ERROR53` test --- .../com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt index de7adec48..289341b1a 100644 --- a/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt +++ b/rpgJavaInterpreter-core/src/test/kotlin/com/smeup/rpgparser/interpreter/JarikoCallbackTest.kt @@ -1046,13 +1046,13 @@ class JarikoCallbackTest : AbstractTest() { } @Test - fun executeERROR53SourceLineTest() { - executeSourceLineTest("ERROR53") + fun executeERROR53CallBackTest() { + executePgmCallBackTest("ERROR53", SourceReferenceType.Copy, "QILEGEN,£PDS", listOf(130)) } @Test - fun executeERROR53CallBackTest() { - executePgmCallBackTest("ERROR53", SourceReferenceType.Copy, "QILEGEN,£PDS", listOf(130)) + fun executeERROR53SourceLineTest() { + executeSourceLineTest("ERROR53") } @Test