Skip to content

Commit

Permalink
Improved tests
Browse files Browse the repository at this point in the history
  • Loading branch information
@davidepalladino-apuliasoft
davidepalladino-apuliasoft committed Oct 29, 2024
1 parent 6bfc4a4 commit eb770ef
Show file tree
Hide file tree
Showing 7 changed files with 29 additions and 50 deletions.
12 changes: 5 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00135.rpgle
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,6 @@
V* ==============================================================
V* 24/10/2024 APU001 Creation
V* 29/10/2024 APU001 Improvements
V* ==============================================================
O * PROGRAM GOAL
O * MOVEL an integer array to another. The size of first is lower
Expand All @@ -14,19 +15,16 @@
D TMP S 2
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
11 changes: 4 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00136.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,19 +14,16 @@
D TMP S 2
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
11 changes: 4 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00137.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,19 +13,16 @@
D TMP S 5
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
11 changes: 4 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00138.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,19 +13,16 @@
D TMP S 5
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
11 changes: 4 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00139.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,19 +14,16 @@
D TMP S 7
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
11 changes: 4 additions & 7 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00140.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,19 +14,16 @@
D TMP S 7
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 ARR_2 #Cannot set an array as factor 2 in MOVEL/MOVEL(P) statement

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(ARR_2)
C EVAL TMP=%CHAR(ARR_2(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR
12 changes: 4 additions & 8 deletions rpgJavaInterpreter-core/src/test/resources/smeup/MUDRNRAPU00147.rpgle
View file
Original file line number Diff line number Diff line change
Expand Up @@ -12,23 +12,19 @@
D ARR_1 S 1 0 DIM(3) INZ(1)
D DS_1 DS
D DS_ARR_1 1 0 DIM(5) INZ(2)

D TMP S 7
D COUNT S 2 0 INZ(1)

C COUNT DOUEQ 4
C FOR COUNT=1 TO %ELEM(ARR_1)
C EVAL TMP=%CHAR(ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C MOVEL ARR_1 DS_ARR_1

C EVAL COUNT=1
C COUNT DOUEQ 6
C FOR COUNT=1 TO %ELEM(DS_ARR_1)
C EVAL TMP=%CHAR(DS_ARR_1(COUNT))
C TMP DSPLY
C EVAL COUNT=COUNT+1
C ENDDO
C ENDFOR

C SETON LR

0 comments on commit eb770ef

Please sign in to comment.