Move BASIC fixtures into the editable language corpus

Move every program and expectation out of tests/reference and register the unified tests/language corpus as local cases. Remove the old immutable-corpus protections from build, maintenance, and documentation paths.

Co-authored-by: andrew <andrew@aklabs.net>

tests/reference/language/arithmetic/float.bas

@@ -1,7 +0,0 @@
-10 PRINT 2.0 + 2.0
-20 PRINT 2.0 * 2.0
-30 PRINT 4.0 / 2.0
-40 PRINT 4.0 - 2.0
-50 PRINT 1.0 / 0.5
-60 PRINT 12.0 / 4.0
-70 PRINT 1.20 / 0.4

tests/reference/language/arithmetic/float.txt

@@ -1,7 +0,0 @@
-4.000000
-4.000000
-2.000000
-2.000000
-2.000000
-3.000000
-3.000000

tests/reference/language/arithmetic/integer.bas

@@ -1,5 +0,0 @@
-10 PRINT 2 + 2
-20 PRINT 2 * 2
-30 PRINT 4 / 2
-40 PRINT 4 - 2
-

tests/reference/language/arithmetic/integer.txt

@@ -1,4 +0,0 @@
-4
-4
-2
-2

tests/reference/language/array_multidimensional.bas

@@ -1,6 +0,0 @@
-10 DIM A#(8, 8)
-20 PRINT LEN(A#)
-30 A#(0,7) = 31337
-40 A#(1,7) = 65535
-50 PRINT A#(0,7)
-60 PRINT A#(1,7)

tests/reference/language/array_multidimensional.txt

@@ -1,3 +0,0 @@
-64
-31337
-65535

tests/reference/language/array_outofbounds.bas

@@ -1,3 +0,0 @@
-10 DIM A#(3)
-20 PRINT A#(4)
-30 PRINT "FAILURE"

tests/reference/language/array_outofbounds.txt

@@ -1,2 +0,0 @@
-? 20 : RUNTIME ERROR Variable index access out of bounds at dimension 0: 4 (max 2)
-

tests/reference/language/arrays.bas

@@ -1,9 +0,0 @@
-10 DIM A#(3)
-20 A#(0) = 100
-30 A#(1) = 101
-40 A#(2) = 102
-50 IF LEN(A#) <> 3 THEN PRINT "LEN(A#) != 3 : " + LEN(A#) + " FAILURE"
-60 IF A#(0) <> 100 THEN PRINT "A#(0) != 100 : " + A#(0) + " FAILURE"
-70 IF A#(1) <> 101 THEN PRINT "A#(1) != 101 : " + A#(1) + " FAILURE"
-80 IF A#(2) <> 102 THEN PRINT "A#(2) != 102 : " + A#(2) + " FAILURE"
-90 PRINT "SUCCESS"

tests/reference/language/arrays.txt

@@ -1 +0,0 @@
-SUCCESS

tests/reference/language/caseinsensitivefunctionsandcommands.bas

@@ -1,2 +0,0 @@
-10 print "HELLO"
-20 print mod(12, 5)

tests/reference/language/caseinsensitivefunctionsandcommands.txt

@@ -1,2 +0,0 @@
-HELLO
-2

tests/reference/language/flowcontrol/forloop.bas

@@ -1,4 +0,0 @@
-10 FOR I# = 1 TO 4
-20 PRINT I#
-30 NEXT I#
-40 QUIT

tests/reference/language/flowcontrol/forloop.txt

@@ -1,4 +0,0 @@
-1
-2
-3
-4

tests/reference/language/flowcontrol/forloopwaitingforcommand.bas

@@ -1,13 +0,0 @@
-10 REM This shows the waitingForCommand utility in the BasicEnvironment
-11 REM We have a FOR loop here with a condition where the loop should
-12 REM not execute at all. But because the checking of the conditional is
-13 REM delayed until the bottom of the loop, we run the risk of the
-14 REM runtime executing every line between FOR ... NEXT even though it
-15 REM shouldn't. waitingForCommand prevents this from occurring
-20 FOR I# = 1 TO 1
-30 PRINT "waitingForCommand FAILS if this is seen"
-40 NEXT I#
-50 FOR I# = 1 TO 2
-60 PRINT "waitingForCommand PASS if this is seen"
-70 NEXT I#
-80 QUIT

tests/reference/language/flowcontrol/forloopwaitingforcommand.txt

@@ -1,2 +0,0 @@
-waitingForCommand PASS if this is seen
-waitingForCommand PASS if this is seen

tests/reference/language/flowcontrol/goto.bas

@@ -1,3 +0,0 @@
-10 GOTO 30
-20 PRINT "FAILURE"
-30 PRINT "SUCCESS"

tests/reference/language/flowcontrol/goto.txt

@@ -1 +0,0 @@
-SUCCESS

tests/reference/language/flowcontrol/ifthenelse.bas

@@ -1,11 +0,0 @@
-10 A# = 1
-20 IF A# == 1 THEN GOTO 30 ELSE GOTO 40
-30 PRINT "A# IS 1"
-35 GOTO 50
-45 PRINT "A# IS NOT 1"
-50 IF A# == 2 THEN GOTO 60 ELSE GOTO 80
-60 PRINT "A# IS 2"
-65 PRINT A#
-70 GOTO 90
-80 PRINT "A# IS NOT 2"
-90 PRINT "DONE"

tests/reference/language/flowcontrol/ifthenelse.txt

@@ -1,3 +0,0 @@
-A# IS 1
-A# IS NOT 2
-DONE

tests/reference/language/flowcontrol/nestedforloops.bas

@@ -1,10 +0,0 @@
-10 FOR I# = 1 TO 4
-15     PRINT "OUTER : I# IS " + I#
-20         FOR J# = 2 TO 3
-23             PRINT "INNER : I# IS " + I#
-25             PRINT "INNER : J# IS " + J#
-30             PRINT "INNER : I# * J# IS " + (I# * J#)
-40         NEXT J#
-50     NEXT I#
-60 PRINT "DONE"
-70 QUIT

tests/reference/language/flowcontrol/nestedforloops.txt

@@ -1,29 +0,0 @@
-OUTER : I# IS 1
-INNER : I# IS 1
-INNER : J# IS 2
-INNER : I# * J# IS 2
-INNER : I# IS 1
-INNER : J# IS 3
-INNER : I# * J# IS 3
-OUTER : I# IS 2
-INNER : I# IS 2
-INNER : J# IS 2
-INNER : I# * J# IS 4
-INNER : I# IS 2
-INNER : J# IS 3
-INNER : I# * J# IS 6
-OUTER : I# IS 3
-INNER : I# IS 3
-INNER : J# IS 2
-INNER : I# * J# IS 6
-INNER : I# IS 3
-INNER : J# IS 3
-INNER : I# * J# IS 9
-OUTER : I# IS 4
-INNER : I# IS 4
-INNER : J# IS 2
-INNER : I# * J# IS 8
-INNER : I# IS 4
-INNER : J# IS 3
-INNER : I# * J# IS 12
-DONE

tests/reference/language/flowcontrol/nestedforloopwaitingforcommand.bas

@@ -1,11 +0,0 @@
-10 REM This shows the waitingForCommand utility in the BasicEnvironment
-11 REM when we have a nested for loop. The inner loop SHOULD execute, but
-12 REM the outer loop should NOT execute. Therefore, neither loop should execute.
-20 FOR I# = 1 TO 0
-25 FOR J# = 2 TO 4
-30 PRINT "waitingForCommand FAILS if this is seen"
-32 QUIT
-35 NEXT J#
-40 NEXT I#
-50 PRINT "SUCCESS"
-80 QUIT

tests/reference/language/flowcontrol/nestedforloopwaitingforcommand.txt

@@ -1 +0,0 @@
-SUCCESS

tests/reference/language/functions.bas

@@ -1,6 +0,0 @@
-10 DEF SQR(X#) = X# * X#
-20 DEF MUL(X#, Y#) = X# * Y#
-30 A# = SQR(3)
-40 B# = MUL(A#, 4)
-50 IF A# <> 9 THEN PRINT "SQR FAIL" ELSE PRINT "SQR PASS"
-60 IF B# <> 36 THEN PRINT "MUL FAIL" ELSE PRINT "MUL PASS"

tests/reference/language/functions.txt

@@ -1,2 +0,0 @@
-SQR PASS
-MUL PASS

tests/reference/language/functions/atn.bas

@@ -1 +0,0 @@
-10 PRINT ATN(3)

tests/reference/language/functions/atn.txt

@@ -1 +0,0 @@
-1.249046

tests/reference/language/functions/chr.bas

@@ -1,3 +0,0 @@
-10 PRINT "97 : " + CHR(97)
-20 PRINT "65 : " + CHR(65)
-30 PRINT "64 : " + CHR(64)

tests/reference/language/functions/chr.txt

@@ -1,3 +0,0 @@
-97 : a
-65 : A
-64 : @

tests/reference/language/functions/cos.bas

@@ -1 +0,0 @@
-10 PRINT COS(90)

tests/reference/language/functions/cos.txt

@@ -1 +0,0 @@
--0.448074

tests/reference/language/functions/hex.bas

@@ -1 +0,0 @@
-10 PRINT HEX(255)

tests/reference/language/functions/hex.txt

@@ -1 +0,0 @@
-ff

tests/reference/language/functions/instr.bas

@@ -1,3 +0,0 @@
-10 X$ = "HELLO"
-20 Y$ = "LLO"
-30 PRINT INSTR(X$, Y$)

tests/reference/language/functions/instr.txt

@@ -1 +0,0 @@
-2

tests/reference/language/functions/left.bas

@@ -1 +0,0 @@
-10 PRINT LEFT("HELLO", 2)

tests/reference/language/functions/left.txt

@@ -1 +0,0 @@
-HE

tests/reference/language/functions/len.bas

@@ -1,5 +0,0 @@
-10 A$ = "HELLO"
-20 STRLEN# = LEN(A$)
-30 IF STRLEN# == 5 THEN GOTO 50
-40 PRINT "FAILURE"
-50 PRINT "SUCCESS"

tests/reference/language/functions/len.txt

@@ -1 +0,0 @@
-SUCCESS

tests/reference/language/functions/log.bas

@@ -1 +0,0 @@
-10 PRINT LOG(3.14)

tests/reference/language/functions/log.txt

@@ -1 +0,0 @@
-1.144223

tests/reference/language/functions/mid.bas

@@ -1,3 +0,0 @@
-10 A$ = "HELLO"
-20 B$ = MID(A$, 2, 3)
-30 PRINT B$

tests/reference/language/functions/mid.txt

@@ -1 +0,0 @@
-LLO

tests/reference/language/functions/mod.bas

@@ -1,6 +0,0 @@
-10 PRINT MOD(10, 3)
-20 PRINT MOD(12, 5)
-30 PRINT MOD(4, 2)
-40 REM MOD() ONLY WORKS WITH INTEGERS - RESULTS WITH FLOATING POINT ARE UNRELIABLE
-50 REM PRINT MOD(1.2, 0.4)
-60 REM THERE IS NO ERROR THROWN HERE. JUST DONT DO IT.

tests/reference/language/functions/mod.txt

@@ -1,3 +0,0 @@
-1
-2
-0

tests/reference/language/functions/pointer.bas

@@ -1,8 +0,0 @@
-10 A# = 255
-20 B# = POINTER(A#)
-30 IF PEEK(B#) == 255 THEN GOTO 50
-40 PRINT "FAILURE: PEEK != 255"
-50 POKE B#, 127
-60 IF PEEK(B#) == 127 THEN GOTO 80
-70 PRINT "FAILURE : POKE DID NOT SET 127"
-80 PRINT "SUCCESS"

tests/reference/language/functions/pointer.txt

@@ -1 +0,0 @@
-SUCCESS

tests/reference/language/functions/rad.bas

@@ -1 +0,0 @@
-10 PRINT RAD(90)

tests/reference/language/functions/rad.txt

@@ -1 +0,0 @@
-1.570796

tests/reference/language/functions/right.bas

@@ -1,2 +0,0 @@
-10 PRINT RIGHT("HELLO", 3)
-20 PRINT RIGHT("HELLO", 7)

tests/reference/language/functions/right.txt

@@ -1,2 +0,0 @@
-LLO
-HELLO

tests/reference/language/functions/sgn.bas

@@ -1,4 +0,0 @@
-10 X# = -1
-20 PRINT SGN(X#)
-30 PRINT SGN(0)
-40 PRINT SGN(1)

tests/reference/language/functions/sgn.txt

@@ -1,3 +0,0 @@
--1
-0
-1

tests/reference/language/functions/shl.bas

@@ -1,4 +0,0 @@
-10 A# = 8
-20 B# = SHL(A#, 2)
-30 PRINT B#
-40 PRINT SHL(8, 2)

tests/reference/language/functions/shl.txt

@@ -1,2 +0,0 @@
-32
-32

tests/reference/language/functions/shr.bas

@@ -1,4 +0,0 @@
-10 A# = 32
-20 B# = SHR(A#, 2)
-30 PRINT B#
-40 PRINT SHR(32, 2)

tests/reference/language/functions/shr.txt

@@ -1,2 +0,0 @@
-8
-8

tests/reference/language/functions/sin.bas

@@ -1 +0,0 @@
-10 PRINT SIN(90)

tests/reference/language/functions/sin.txt

@@ -1 +0,0 @@
-0.893997

tests/reference/language/functions/spc.bas

@@ -1 +0,0 @@
-10 PRINT "BASIC IS" + SPC(16) + "FUN"

tests/reference/language/functions/spc.txt

@@ -1 +0,0 @@
-BASIC IS                FUN

tests/reference/language/functions/str.bas

@@ -1,2 +0,0 @@
-10 X% = -123.456
-20 PRINT STR(X%)

tests/reference/language/functions/str.txt

@@ -1 +0,0 @@
--123.456000

tests/reference/language/functions/tan.bas

@@ -1 +0,0 @@
-10 PRINT TAN(90)

tests/reference/language/functions/tan.txt

@@ -1 +0,0 @@
--1.995200

tests/reference/language/functions/val.bas

@@ -1,3 +0,0 @@
-10 PRINT VAL("32")
-20 PRINT VAL("123.456")
-30 PRINT VAL("-256")

tests/reference/language/functions/val.txt

@@ -1,3 +0,0 @@
-32.000000
-123.456000
--256.000000

tests/reference/language/functions/xor.bas

@@ -1,2 +0,0 @@
-10 PRINT XOR(50, 10)
-20 PRINT XOR(25, 5)

tests/reference/language/functions/xor.txt

@@ -1,2 +0,0 @@
-56
-28

tests/reference/language/functions_multiline.bas

@@ -1,9 +0,0 @@
-5 DEF ADDTWO(A#, B#) = A# + B#
-10 DEF ADDTWOSR(A#, B#)
-20 C# = A# + B#
-30 RETURN C#
-40 REM PRINT ADDTWO(3, 5)
-45 D# = ADDTWO(3, 5)
-50 PRINT D#
-55 E# = ADDTWOSR(3, 5)
-60 PRINT E#

tests/reference/language/functions_multiline.txt

@@ -1,2 +0,0 @@
-8
-8

tests/reference/language/label.bas

@@ -1,5 +0,0 @@
-10 I# = 0
-20 LABEL DOITAGAIN
-30 I# = I# + 1
-40 IF I# <> 3 THEN GOTO DOITAGAIN
-50 PRINT "DONE"

tests/reference/language/label.txt

@@ -1 +0,0 @@
-DONE

tests/reference/language/read_data.bas

@@ -1,4 +0,0 @@
-10 READ A$, B#
-20 DATA "HELLO", 12345
-30 PRINT A$
-40 PRINT B#

tests/reference/language/read_data.txt

@@ -1,2 +0,0 @@
-HELLO
-12345