ref: c0aff678e9f1a88163781ccad94b889d7961bc57
parent: a3d88366716a0c5115a54296d93fb6ee650fd08e
author: ISSOtm <[email protected]>
date: Sun Mar 29 08:34:13 EDT 2020
Improve arg-shift test
--- a/test/asm/arg-shift.asm
+++ b/test/asm/arg-shift.asm
@@ -21,6 +21,16 @@
PRINTT "\n"
ENDM
+bad_rept: MACRO
+ REPT _NARG - 2
+ REPT 1
+ shift
+ ENDR
+ ENDR
+ PRINTT \1
+ PRINTT "\n"
+ENDM
+
print_all This test, probably, passes\,, but who knows, ?
print_some R,e,d,n,e,x,G,a,m,e,B,o,y,D,e,v,e,l,o,p,e,m,e,n,t,S,y,s,t,e,m,\n
@@ -30,3 +40,10 @@
bad 0, 1, 2, 3, "L"
bad 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, "L"
bad as, asd, asdf, asdfg, asdgh, "O"
+
+ bad_rept "B", 0, " ", 11
+ bad_rept "U", 1, "W", 10
+ bad_rept "G", 2, "O", 9
+ bad_rept "G", 3, "R", 8
+ bad_rept "E", 4, "L", 7
+ bad_rept "D", 5, "D", 6
--- a/test/asm/arg-shift.out
+++ b/test/asm/arg-shift.out
@@ -5,3 +5,9 @@
L
L
O
+
+W
+O
+R
+L
+D