basic101 0.1.0

data/test/integration/tests/fast/if.bas

@@ -0,0 +1,25 @@
+5 REM IF false THEN line_number
+10 IF 0 THEN 40
+20 PRINT "ok"
+30 GOTO 45
+40 PRINT "fail"
+45 REM IF true THEN line_number
+50 IF -1 THEN 80
+60 PRINT "fail"
+70 GOTO 90
+80 PRINT "ok"
+90 REM IF true THEN statements
+110 IF -1 THEN PRINT "ok" : PRINT "ok"
+105 REM IF false THEN statements
+120 IF 0 THEN PRINT "fail" : PRINT "fail"
+128 REM IF true GOTO
+130 IF -1 GOTO 160
+140 PRINT "fail"
+150 GOTO 170
+160 PRINT "ok"
+170 REM IF true THEN...ELSE
+180 IF -1 THEN PRINT "ok" ELSE PRINT "fail"
+185 REM IF false THEN...ELSE
+190 IF 0 THEN PRINT "fail" ELSE PRINT "ok"
+200 REM nested
+210 IF -1 THEN IF -1 THEN PRINT "ok" ELSE PRINT "fail" ELSE PRINT "fail"

data/test/integration/tests/fast/if.output

@@ -0,0 +1,8 @@
+ok
+ok
+ok
+ok
+ok
+ok
+ok
+ok

data/test/integration/tests/fast/input.bas

@@ -0,0 +1,24 @@
+5 PRINT "NUMERIC"
+10 INPUT I
+20 PRINT I
+25 PRINT "FLOAT"
+30 INPUT F
+40 PRINT F
+45 PRINT "STRING WITH PROMPT"
+50 INPUT "PROMPT"; A$
+60 PRINT A$
+65 PRINT "NUMERIC AND STRING"
+70 INPUT I, S$
+80 PRINT I, S$
+85 PRINT "TWO NUMERICS, BUT ONLY ONE ENTIRED AT FIRST"
+90 INPUT I, J
+100 PRINT I, J
+110 PRINT "NUMERIC, BUT BAD FORMAT AT FIRST"
+120 INPUT I
+130 PRINT I
+140 PRINT "SUPPRESSED PROMPT"
+150 INPUT "PROMPT:", I
+160 PRINT I
+170 PRINT "ARRAY"
+180 INPUT A(1)
+190 PRINT A(1)

data/test/integration/tests/fast/input.input

@@ -0,0 +1,10 @@
+123
+123.456
+"FOO,BAR"
+10,BAR
+1
+1,2
+FOO
+-1.2
+321
+1414

data/test/integration/tests/fast/input.output

@@ -0,0 +1,28 @@
+NUMERIC
+? 123
+ 123 
+FLOAT
+? 123.456
+ 123.456 
+STRING WITH PROMPT
+PROMPT? "FOO,BAR"
+FOO,BAR
+NUMERIC AND STRING
+? 10,BAR
+ 10           BAR
+TWO NUMERICS, BUT ONLY ONE ENTIRED AT FIRST
+? 1
+Too few items, try again
+? 1,2
+ 1             2 
+NUMERIC, BUT BAD FORMAT AT FIRST
+? FOO
+Not numeric: "FOO", try again
+? -1.2
+-1.2 
+SUPPRESSED PROMPT
+PROMPT:321
+ 321 
+ARRAY
+? 1414
+ 1414 

data/test/integration/tests/fast/int.bas

@@ -0,0 +1,5 @@
+10 PRINT INT(0)
+20 PRINT INT(0.0)
+30 PRINT INT(0.9)
+40 PRINT INT(1.0)
+50 PRINT INT(-0.9)

data/test/integration/tests/fast/int.output

@@ -0,0 +1,5 @@
+ 0 
+ 0 
+ 0 
+ 1 
+-1 

data/test/integration/tests/fast/integer_plus_string.bas

@@ -0,0 +1 @@
+10 PRINT 1 + "A"

data/test/integration/tests/fast/integer_plus_string.output

@@ -0,0 +1 @@
+Error on line 10: string cannot be converted to float

data/test/integration/tests/fast/invalid_argument.bas

@@ -0,0 +1 @@
+10 PRINT CHR$("65")

data/test/integration/tests/fast/invalid_argument.output

@@ -0,0 +1 @@
+Error on line 10: Expected numeric but got string

data/test/integration/tests/fast/le.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 <= 0
+20 PRINT 0 <= 0
+30 PRINT 1 <= 0

data/test/integration/tests/fast/le.output

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

data/test/integration/tests/fast/left.bas

@@ -0,0 +1 @@
+10 PRINT "'"; LEFT$("abcd", 2); "'"

data/test/integration/tests/fast/left.output

@@ -0,0 +1 @@
+'ab'

data/test/integration/tests/fast/len.bas

@@ -0,0 +1,2 @@
+10 PRINT LEN("ABC")
+20 PRINT LEN("")

data/test/integration/tests/fast/len.output

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

data/test/integration/tests/fast/let.bas

@@ -0,0 +1,6 @@
+20 PRINT "I = "; I
+40 PRINT "S$ = '"; S$; "'"
+10 I = 1
+30 S$ = "FOO"
+20 PRINT "I = "; I
+40 PRINT "S$ = '"; S$; "'"

data/test/integration/tests/fast/let.output

@@ -0,0 +1,4 @@
+I =  0 
+S$ = ' 0 '
+I =  1 
+S$ = 'FOO'

data/test/integration/tests/fast/log.bas

@@ -0,0 +1 @@
+10 PRINT LOG(45 / 7)

data/test/integration/tests/fast/log.output

@@ -0,0 +1 @@
+ 1.860752 

data/test/integration/tests/fast/lt.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 < 0
+20 PRINT 0 < 0
+30 PRINT 1 < 0

data/test/integration/tests/fast/lt.output

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

data/test/integration/tests/fast/mid.bas

@@ -0,0 +1,2 @@
+10 PRINT "'"; MID$("ABC", 2); "'"
+10 PRINT "'"; MID$("ABC", 2, 1); "'"

data/test/integration/tests/fast/mid.output

@@ -0,0 +1,2 @@
+'BC'
+'B'

data/test/integration/tests/fast/multiply.bas

@@ -0,0 +1,5 @@
+10 PRINT 1 * 2
+20 PRINT 1.1 * 2
+30 PRINT 1 * 2.1
+40 PRINT 1.1 * 2.2
+50 PRINT 1 * 2 * 3 * 4 * 5

data/test/integration/tests/fast/multiply.output

@@ -0,0 +1,5 @@
+ 2 
+ 2.2 
+ 2.1 
+ 2.42 
+ 120 

data/test/integration/tests/fast/ne.bas

@@ -0,0 +1,3 @@
+10 PRINT -1 <> 0
+20 PRINT 0 <> 0
+30 PRINT 1 <> 0

data/test/integration/tests/fast/ne.output

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

data/test/integration/tests/fast/negate.bas

@@ -0,0 +1,4 @@
+10 PRINT -1
+20 PRINT -(-1 + -2)
+30 I = 3.14
+40 PRINT -(-(-I))

data/test/integration/tests/fast/negate.output

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

data/test/integration/tests/fast/not.bas

@@ -0,0 +1,4 @@
+10 PRINT NOT 0
+20 PRINT NOT -1
+30 PRINT NOT 1
+40 PRINT NOT "abc"

data/test/integration/tests/fast/not.output

@@ -0,0 +1,4 @@
+-1 
+ 0 
+-2 
+Error on line 40: string cannot be converted to numeric

data/test/integration/tests/fast/on_goto.bas

@@ -0,0 +1,6 @@
+10 FOR I = 0 TO 1
+20 ON I + 1 GOTO 30, 50
+30 PRINT "FOO"
+40 GOTO 60
+50 PRINT "BAR"
+60 NEXT I

data/test/integration/tests/fast/on_goto.output

@@ -0,0 +1,2 @@
+FOO
+BAR

data/test/integration/tests/fast/or.bas

@@ -0,0 +1,5 @@
+10 PRINT 0 OR 0
+20 PRINT 0 OR 1
+30 PRINT 1 OR 0
+40 PRINT 1 OR 1
+50 PRINT 1.1 OR 0

data/test/integration/tests/fast/or.output

@@ -0,0 +1,5 @@
+ 0 
+ 1 
+ 1 
+ 1 
+ 1 

data/test/integration/tests/fast/parentheses.bas

@@ -0,0 +1 @@
+10 PRINT (2 + 3) * (4 + 5)

data/test/integration/tests/fast/parentheses.output

@@ -0,0 +1 @@
+ 45 

data/test/integration/tests/fast/power.bas

@@ -0,0 +1,4 @@
+10 PRINT 2 ^ 3
+20 PRINT 2 ^ 3 ^ 1.5
+30 PRINT 2 ^ (3 ^ 1.5)
+30 PRINT (2 ^ 3) ^ 1.5

data/test/integration/tests/fast/power.output

@@ -0,0 +1,4 @@
+ 8 
+ 36.66045 
+ 36.66045 
+ 22.62742 

data/test/integration/tests/fast/print.bas

@@ -0,0 +1,6 @@
+8 PRINT
+10 PRINT "a";
+20 PRINT "b",
+30 PRINT "c";"d"
+40 PRINT 3.141592653589793
+50 PRINT 0.1

data/test/integration/tests/fast/print.output

@@ -0,0 +1,4 @@
+
+ab            cd
+ 3.141593 
+ 0.1 

data/test/integration/tests/fast/read_data.bas

@@ -0,0 +1,15 @@
+10 READ I
+30 READ J, A$, B$
+40 PRINT I, J, A$, B$
+50 RESTORE
+60 READ I
+70 PRINT I
+80 RESTORE 150
+90 READ A$
+100 PRINT A$
+130 DATA 1
+140 DATA 2.3
+150 DATA "foo", bar
+160 RESTORE
+170 READ A(0)
+180 PRINT A(0)

data/test/integration/tests/fast/read_data.output

@@ -0,0 +1,4 @@
+ 1             2.3          foo           bar
+ 1 
+foo
+ 1 

data/test/integration/tests/fast/rem.bas

@@ -0,0 +1 @@
+10 REM THIS IS A REMARK

data/test/integration/tests/fast/right.bas

@@ -0,0 +1 @@
+10 PRINT "'"; RIGHT$("abcd", 2); "'"

data/test/integration/tests/fast/right.output

@@ -0,0 +1 @@
+'cd'

data/test/integration/tests/fast/rnd.bas

@@ -0,0 +1,5 @@
+10 PRINT RND(0)
+20 PRINT RND(1)
+30 PRINT RND(0)
+40 PRINT RND(0.1)
+50 PRINT RND(0)

data/test/integration/tests/fast/rnd.output

@@ -0,0 +1,5 @@
+ 0 
+ 0.5488135 
+ 0.5488135 
+ 0.7151894 
+ 0.7151894 

data/test/integration/tests/fast/sgn.bas

@@ -0,0 +1,5 @@
+10 PRINT SGN(-10)
+20 PRINT SGN(-0.1)
+20 PRINT SGN(0)
+20 PRINT SGN(0.1)
+10 PRINT SGN(10)

data/test/integration/tests/fast/sgn.output

@@ -0,0 +1,5 @@
+-1 
+-1 
+ 0 
+ 1 
+ 1 

data/test/integration/tests/fast/sin.bas

@@ -0,0 +1 @@
+10 PRINT SIN(3.14159265 / 8)

data/test/integration/tests/fast/sin.output

@@ -0,0 +1 @@
+ 0.3826834 

data/test/integration/tests/fast/sqr.bas

@@ -0,0 +1,2 @@
+10 PRINT SQR(2)
+20 PRINT SQR(65536)

data/test/integration/tests/fast/sqr.output

@@ -0,0 +1,2 @@
+ 1.414214 
+ 256 

data/test/integration/tests/fast/stop.bas

@@ -0,0 +1,3 @@
+10 PRINT "OK"
+20 STOP
+30 PRINT "FAIL"

data/test/integration/tests/fast/stop.output

@@ -0,0 +1,2 @@
+OK
+Break in line 20

data/test/integration/tests/fast/str.bas

@@ -0,0 +1,3 @@
+10 PRINT "'" + STR$(123) + "'"
+20 PRINT "'" + STR$(3.14) + "'"
+30 PRINT "'" + STR$("FOO") + "'"

data/test/integration/tests/fast/str.output

@@ -0,0 +1,3 @@
+'123'
+'3.14'
+'FOO'

data/test/integration/tests/fast/string_addition.bas

@@ -0,0 +1 @@
+10 PRINT "ABC" + "123"

data/test/integration/tests/fast/string_addition.output

@@ -0,0 +1 @@
+ABC123

data/test/integration/tests/fast/string_comparisons.bas

@@ -0,0 +1,7 @@
+10 PRINT "<", "<=", "=", ">=", ">", "<>"
+20 A = "A" : B = "B" : GOSUB 100
+30 A = "B" : B = "B" : GOSUB 100
+40 A = "C" : B = "B" : GOSUB 100
+90 END
+100 PRINT A < B, A <= B, A = B, A >= B, A > B, A <> B
+110 RETURN

data/test/integration/tests/fast/string_comparisons.output

@@ -0,0 +1,4 @@
+<             <=            =             >=            >             <>
+-1            -1             0             0             0            -1 
+ 0            -1            -1            -1             0             0 
+ 0             0             0            -1            -1            -1 

data/test/integration/tests/fast/string_plus_integer.bas

@@ -0,0 +1 @@
+10 PRINT "A" + 1

data/test/integration/tests/fast/string_plus_integer.output

@@ -0,0 +1 @@
+Error on line 10: integer cannot be converted to string

data/test/integration/tests/fast/subtract.bas

@@ -0,0 +1,5 @@
+10 PRINT 1 - 2
+20 PRINT 1.0 - 2
+30 PRINT 1 - 2.0
+40 PRINT 1.1 - 2.2
+50 PRINT 8 - 4 - 2 - 1

data/test/integration/tests/fast/subtract.output

@@ -0,0 +1,5 @@
+-1 
+-1 
+-1 
+-1.1 
+ 1 

data/test/integration/tests/fast/tab.bas

@@ -0,0 +1,4 @@
+10 PRINT TAB(10); "A"; TAB(20); "B"
+20 PRINT TAB(20);
+30 PRINT "C"; TAB(10); "D"
+50 PRINT TAB(0); "X"

data/test/integration/tests/fast/tab.output

@@ -0,0 +1,3 @@
+          A         B
+                    CD
+X

data/test/integration/tests/fast/tan.bas

@@ -0,0 +1 @@
+10 PRINT TAN(3.14159265 / 8)

data/test/integration/tests/fast/tan.output

@@ -0,0 +1 @@
+ 0.4142136 

data/test/integration/tests/fast/val.bas

@@ -0,0 +1,3 @@
+10 PRINT VAL("123")
+20 PRINT VAL("123.45")
+30 PRINT VAL("  -1  ")

data/test/integration/tests/fast/val.output

@@ -0,0 +1,3 @@
+ 123 
+ 123.45 
+-1