Add tests for multiple error conditions.

dmsc · dmsc · commit d81d1609e144 · 2021-03-10T23:49:47.000-03:00
The idea is having test coverage for all normal error conditions in the
parser.
diff --git a/testsuite/tests/err-loop-1.bas b/testsuite/tests/err-loop-1.bas
@@ -0,0 +1,3 @@
+
+LOOP
+
diff --git a/testsuite/tests/err-loop-1.chk b/testsuite/tests/err-loop-1.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 2 column 0
+Error-pos: 2:4
diff --git a/testsuite/tests/err-loop-2.bas b/testsuite/tests/err-loop-2.bas
@@ -0,0 +1,4 @@
+' Open WHILE/WEND loop and close with DO/LOOP.
+WHILE 1
+LOOP
+
diff --git a/testsuite/tests/err-loop-2.chk b/testsuite/tests/err-loop-2.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 3 column 0
+Error-pos: 3:4
diff --git a/testsuite/tests/err-loop-3.bas b/testsuite/tests/err-loop-3.bas
@@ -0,0 +1,3 @@
+' Try to exit with no loop:
+EXIT
+
diff --git a/testsuite/tests/err-loop-3.chk b/testsuite/tests/err-loop-3.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 2 column 1
+Error-pos: 2:4
diff --git a/testsuite/tests/err-loop-4.bas b/testsuite/tests/err-loop-4.bas
@@ -0,0 +1,6 @@
+' EXIR from DATA
+DATA A() = 1,2,
+EXIT
+DATA 3,4
+
+
diff --git a/testsuite/tests/err-loop-4.chk b/testsuite/tests/err-loop-4.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 3 column 1
+Error-pos: 4:5
diff --git a/testsuite/tests/err-loop-5.bas b/testsuite/tests/err-loop-5.bas
@@ -0,0 +1,5 @@
+' Open too many loop:
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO
+
diff --git a/testsuite/tests/err-loop-5.chk b/testsuite/tests/err-loop-5.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 4 column 31
+Error-pos: 6:0
diff --git a/testsuite/tests/err-loop-6.bas b/testsuite/tests/err-loop-6.bas
@@ -0,0 +1,5 @@
+' Open too many loop:
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:DO
+DO:DO:DO:DO:DO:DO:DO:DO:DO:DO:EXIT
+
diff --git a/testsuite/tests/err-loop-6.chk b/testsuite/tests/err-loop-6.chk
@@ -0,0 +1,4 @@
+Name: Check detection of loop errors
+Test: compile-error
+Error: bad loop at line 4 column 31
+Error-pos: 6:0
diff --git a/testsuite/tests/err-string1.bas b/testsuite/tests/err-string1.bas
@@ -0,0 +1,4 @@
+
+A$="1234
+
+
diff --git a/testsuite/tests/err-string1.chk b/testsuite/tests/err-string1.chk
@@ -0,0 +1,4 @@
+Name: Check unclosed string
+Test: compile-error
+Error: parse error at line 2 column 8
+Error-pos: 2:3
diff --git a/testsuite/tests/err-string2.bas b/testsuite/tests/err-string2.bas
@@ -0,0 +1,2 @@
+
+A$="123"$2"45"$X"67"
diff --git a/testsuite/tests/err-string2.chk b/testsuite/tests/err-string2.chk
@@ -0,0 +1,4 @@
+Name: Check bad hex escape in string
+Test: compile-error
+Error: parse error at line 2 column 14
+Error-pos: 2:3
diff --git a/testsuite/tests/manyvars.bas b/testsuite/tests/manyvars.bas
@@ -201,4 +201,4 @@ VAR_197 = 1197
 VAR_198 = 1198
 VAR_199 = 1199
 ? VAR_000, VAR_064, VAR_127, VAR_128, VAR_160, VAR_199
-
+? 1 + VAR_160
diff --git a/testsuite/tests/manyvars.chk b/testsuite/tests/manyvars.chk
@@ -3,3 +3,4 @@ Test: run
 Output:
 Start
 1000      1064      1127      1128      1160      1199
+1161
diff --git a/testsuite/tests/misc-int.bas b/testsuite/tests/misc-int.bas
@@ -18,6 +18,9 @@ B=-5
 A=0
 B=0
 ? A/B, A MOD B
+A=256
+B=255
+? A/B, A MOD B
 A=VAL("66500") : B=ERR()
 ? A, B
 ' Test integer overflow conditions in comparisons:
@@ -28,3 +31,4 @@ A=VAL("66500") : B=ERR()
 ' Test for strings > 128 characters into VAL
 S$="000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000123400000000000000"
 ? VAL(S$)
+? VAL("-0")
diff --git a/testsuite/tests/misc-int.chk b/testsuite/tests/misc-int.chk
@@ -9,9 +9,11 @@ Start
 -24       -3
 -24       3
 -1        0
+1         1
 771       18
 1         1         0         1
 0         1         0         0
 0         0         1         0
 1         0         1         1
 12340
+0
diff --git a/testsuite/tests/procerr2.bas b/testsuite/tests/procerr2.bas
@@ -0,0 +1,10 @@
+
+proc test1
+endproc
+
+
+proc test1
+endproc
+
+
+
diff --git a/testsuite/tests/procerr2.chk b/testsuite/tests/procerr2.chk
@@ -0,0 +1,4 @@
+Name: Check detection of already defined PROC
+Test: compile-error
+Error: parse error at line 6 column 10
+Error-pos: 6:5
diff --git a/testsuite/tests/procerr3.bas b/testsuite/tests/procerr3.bas
@@ -0,0 +1,9 @@
+' Define one DATA array
+DATA test1() = 1
+
+' And try to define a PROC with the same name
+proc test1
+endproc
+
+
+
diff --git a/testsuite/tests/procerr3.chk b/testsuite/tests/procerr3.chk
@@ -0,0 +1,4 @@
+Name: Check detection of PROC / DATA clash
+Test: compile-error
+Error: parse error at line 5 column 10
+Error-pos: 5:5

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +' Open WHILE/WEND loop and close with DO/LOOP.
 +WHILE 1
 +LOOP
++
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+' Try to exit with no loop:`
	`2`	`+EXIT`
	`3`	`+`