diff options
| author | Gregory Nutt <gnutt@nuttx.org> | 2014-11-07 14:36:02 -0600 |
|---|---|---|
| committer | Gregory Nutt <gnutt@nuttx.org> | 2014-11-07 14:36:02 -0600 |
| commit | 1c5e93117d6951dc65d4914ee8e9507af143d2b4 (patch) | |
| tree | d0e1afe7d6b5cfba2221933e42ad9305f190003f /apps/examples | |
| parent | 20c645e1cdf2456d09e3c85d2b21e4c32b88b83e (diff) | |
| download | nuttx-1c5e93117d6951dc65d4914ee8e9507af143d2b4.tar.gz nuttx-1c5e93117d6951dc65d4914ee8e9507af143d2b4.tar.bz2 nuttx-1c5e93117d6951dc65d4914ee8e9507af143d2b4.zip | |
BAS: Convert all BAS text scripts to BASIC files
Diffstat (limited to 'apps/examples')
53 files changed, 50 insertions, 1612 deletions
diff --git a/apps/examples/bas/README.txt b/apps/examples/bas/README.txt index 0903bbbf7..c1a47429d 100644 --- a/apps/examples/bas/README.txt +++ b/apps/examples/bas/README.txt @@ -23,7 +23,7 @@ hello 2e-06 2e-07 -test01.bas +test02.bas ========== Array variable assignment @@ -43,7 +43,7 @@ Expected Result 11 12 -test01.bas +test03.bas ========== FOR loops @@ -89,7 +89,7 @@ aaaaaaaa aaaaaaaaa aaaaaaaaaa -test01.bas +test04.bas ========== REPEAT UNTIL loop @@ -113,7 +113,7 @@ Expected Result 8 9 -test01.bas +test05.bas ========== GOSUB RETURN subroutines @@ -134,7 +134,7 @@ hello, world hello, world hello, world -test01.bas +test06.bas ========== Recursive function without arguments @@ -166,7 +166,7 @@ Expected Result 1 0 -test01.bas +test07.bas ========== Recursive function with arguments @@ -181,7 +181,7 @@ Expected Result --------------- 5040 -test01.bas +test08.bas ========== DATA, READ and RESTORE @@ -205,7 +205,7 @@ Error: end of `data' in line 80 at: 80 read j$,k$ ^ -test01.bas +test09.bas ========== LOCAL variables @@ -226,7 +226,7 @@ Expected Result 5 3 -test01.bas +test10.bas ========== PRINT USING @@ -296,7 +296,7 @@ aSbaTb aSb aSbTc -test01.bas +test11.bas ========== OPEN and LINE INPUT @@ -316,7 +316,7 @@ Expected Result 40 print a$ 50 wend -test01.bas +test12.bas ========== Exception handling @@ -354,7 +354,7 @@ Expected Result a c -test01.bas +test14.bas ========== SELECT CASE @@ -586,7 +586,7 @@ i after case else 9 9 i after case else -test01.bas +test15.bas ========== FIELD, PUT and GET @@ -617,7 +617,7 @@ a$=hi ya after close a$= after get b$=hi ya -test01.bas +test16.bas ========== SWAP @@ -640,7 +640,7 @@ a= 2 b= 1 a$(1,0)=ab$(0,1)=b a$(1,0)=bb$(0,1)=a -test01.bas +test17.bas ========== DO, EXIT DO, LOOP @@ -670,7 +670,7 @@ i is 9 i is 10 loop ended -test01.bas +test18.bas ========== DO WHILE, LOOP @@ -703,7 +703,7 @@ y$ is y$ is b loop ended -test01.bas +test19.bas ========== ELSEIF @@ -738,7 +738,7 @@ Expected Result 2b 3b -test01.bas +test20.bas ========== Caller trace @@ -774,7 +774,7 @@ Called in line 10 at: 10 gosub 20 ^ -test01.bas +test21.bas ========== Matrix assignment @@ -807,7 +807,7 @@ Expected Result 0 21 22 23 24 0 31 32 33 34 -test01.bas +test22.bas ========== MAT PRINT @@ -837,7 +837,7 @@ Expected Result 11.00 12.00 21.00 22.00 -test01.bas +test23.bas ========== Matrix addition and subtraction @@ -867,7 +867,7 @@ hi hihi -test01.bas +test24.bas ========== Matrix multiplication @@ -893,7 +893,7 @@ Expected Result 14 13 10 11 -test01.bas +test25.bas ========== Matrix scalar multiplication @@ -933,7 +933,7 @@ Expected Result 254 99.9998 -test01.bas +test26.bas ========== MAT READ @@ -949,7 +949,7 @@ Expected Result 5 5 5 8 8 8 -test01.bas +test27.bas ========== Matrix inversion @@ -972,7 +972,7 @@ Expected Result 1 0 0 1 -test01.bas +test28.bas ========== TDL BASIC FNRETURN/FNEND @@ -988,7 +988,7 @@ Expected Result --------------- 3628800 -test01.bas +test29.bas ========== TDL INSTR @@ -1010,7 +1010,7 @@ Expected Result 0 = 0? 8 = 8? -test01.bas +test30.bas ========== Type mismatch check @@ -1022,7 +1022,7 @@ Expected Result --------------- Error: Invalid binary operand at: end of program -test01.bas +test31.bas ========== PRINT default format @@ -1055,7 +1055,7 @@ Expected Result 1.333333e+07 1e+07 1.333333e+08 1e+08 -test01.bas +test032.bas ========== SUB routines @@ -1073,7 +1073,7 @@ Expected Result --------------- abc -test01.bas +test33.bas ========== OPEN FOR BINARY @@ -1102,7 +1102,7 @@ xyz! 0.333333 9999 -test01.bas +test34.bas ========== OPTION BASE @@ -1135,7 +1135,7 @@ Expected Result 10 20 -test01.bas +test35.bas ========== Real to integer conversion @@ -1157,7 +1157,7 @@ Expected Result 0 -1 -test01.bas +test36.bas ========== OPEN file locking @@ -1178,7 +1178,7 @@ open succeeded opening file open failed -test01.bas +test37.bas ========== LINE INPUT reaching EOF @@ -1194,7 +1194,7 @@ Result ------ Output should match test.ref -test01.bas +test38.bas ========== MAT REDIM @@ -1241,7 +1241,7 @@ Expected Result 0 0 -test01.bas +test39.bas ========== Nested function and procedure calls @@ -1263,7 +1263,7 @@ Expected Result --------------- 6 -test01.bas +test40.bas ========== IMAGE @@ -1279,7 +1279,7 @@ Expected Result 3.1 3.10 -test01.bas +test41.bas ========== EXIT FUNCTION @@ -1301,7 +1301,7 @@ f running f running 42 -test01.bas +test42.bas ========== Arithmetic @@ -1327,7 +1327,7 @@ Expected Result -0.3 0.3 -test01.bas +test43.bas ========== Matrix multiplication size checks @@ -1358,7 +1358,7 @@ Error: Dimension mismatch in line 14 at: mat c=a*b ^ -test01.bas +test44.bas ========== DELETE @@ -1374,7 +1374,6 @@ Test File Usage ----- - load "test.bas" delete -20 delete 60- @@ -1387,7 +1386,7 @@ Expected Result Error: No such line at: 15 50 print 50 -test01.bas +test45.bas ========== MID$ on left side @@ -1408,7 +1407,7 @@ Expected Result 01234ABCD9 01234ABCD9 -test01.bas +test46.bas ========== END used without program @@ -1420,7 +1419,7 @@ Expected Result --------------- 1 2 3 4 5 6 7 8 9 10 -test01.bas +test47.bas ========== MAT WRITE @@ -1446,7 +1445,7 @@ Expected Result 21,22,23,24 31,32,33,34 -test01.bas +test48.bas ========== Multi assignment @@ -1466,7 +1465,7 @@ Expected Result 2 0 2 test test -test01.bas +test49.bas ========== Matrix determinant @@ -1510,7 +1509,7 @@ Expected Result 9.650995e+07 1 -test01.bas +test50.bas ========== Min and max function @@ -1536,7 +1535,7 @@ Expected Result 0.3 4 -test01.bas +test51.bas ========== Print items @@ -1549,7 +1548,7 @@ Expected Result Line 1 1.234568 -test01.bas +test52.bas ========== MAT INPUT diff --git a/apps/examples/bas/tests/test01.bas b/apps/examples/bas/tests/test01.bas index b89c7a73a..d2c3494e0 100644 --- a/apps/examples/bas/tests/test01.bas +++ b/apps/examples/bas/tests/test01.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Scalar variable assignment... ' - -cat >test.bas <<eof 10 a=1 20 print a 30 a$="hello" @@ -13,23 +8,3 @@ cat >test.bas <<eof 80 print a 90 a=.2e-6 100 print a -eof - -cat >test.ref <<eof - 1 -hello - 0.0002 - 2e-06 - 2e-07 -eof - -sh ./test/runbas test.bas >test.data - -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test02.bas b/apps/examples/bas/tests/test02.bas index 88615fa61..cc8b50ebc 100644 --- a/apps/examples/bas/tests/test02.bas +++ b/apps/examples/bas/tests/test02.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Array variable assignment... ' - -cat >test.bas <<eof 10 dim a(1) 20 a(0)=10 30 a(1)=11 @@ -10,21 +5,4 @@ cat >test.bas <<eof 50 print a(0) 60 print a(1) 70 print a -eof - -cat >test.ref <<eof - 10 - 11 - 12 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test03.bas b/apps/examples/bas/tests/test03.bas index b7b1496e0..5d991d330 100644 --- a/apps/examples/bas/tests/test03.bas +++ b/apps/examples/bas/tests/test03.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'FOR loops... ' - -cat >test.bas <<eof 10 for i=0 to 10 20 print i 30 if i=5 then exit for @@ -19,38 +14,3 @@ cat >test.bas <<eof 140 for i$="" to "aaaaaaaaaa" step "a" 150 print i$ 160 next -eof - -cat >test.ref <<eof - 0 - 1 - 2 - 3 - 4 - 5 - 0 - 1 - 0 - -a -aa -aaa -aaaa -aaaaa -aaaaaa -aaaaaaa -aaaaaaaa -aaaaaaaaa -aaaaaaaaaa -eof - -sh ./test/runbas test.bas >test.data - -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test04.bas b/apps/examples/bas/tests/test04.bas index 547f4ec28..f2755e5a9 100644 --- a/apps/examples/bas/tests/test04.bas +++ b/apps/examples/bas/tests/test04.bas @@ -1,34 +1,6 @@ -#!/bin/sh - -echo -n $0: 'REPEAT UNTIL loop... ' - -cat >test.bas <<eof 10 a=1 20 repeat 30 print a 40 a=a+1 50 until a=10 -eof - -cat >test.ref <<eof - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test05.bas b/apps/examples/bas/tests/test05.bas index 28322325f..49100a00e 100644 --- a/apps/examples/bas/tests/test05.bas +++ b/apps/examples/bas/tests/test05.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'GOSUB RETURN subroutines... ' - -cat >test5.bas <<eof 10 gosub 100 20 gosub 100 30 end @@ -10,22 +5,4 @@ cat >test5.bas <<eof 110 gosub 200 120 return 200 print "hello, world":return -eof - -cat >test5.ref <<eof -hello, world -hello, world -hello, world -hello, world -eof - -sh ./test/runbas test5.bas >test5.data -if cmp test5.ref test5.data -then - rm -f test5.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test06.bas b/apps/examples/bas/tests/test06.bas index 8a5402d04..ddd6efe78 100644 --- a/apps/examples/bas/tests/test06.bas +++ b/apps/examples/bas/tests/test06.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Recursive function without arguments... ' - -cat >test.bas <<eof 10 def fnloop 20 if n=0.0 then 30 r=0.0 @@ -14,29 +9,4 @@ cat >test.bas <<eof 90 =r 100 n=10 110 print fnloop -eof - -cat >test.ref <<eof - 10 - 9 - 8 - 7 - 6 - 5 - 4 - 3 - 2 - 1 - 0 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test07.bas b/apps/examples/bas/tests/test07.bas index 57f2899a6..12c0cbdc7 100644 --- a/apps/examples/bas/tests/test07.bas +++ b/apps/examples/bas/tests/test07.bas @@ -1,25 +1,5 @@ -#!/bin/sh - -echo -n $0: 'Recursive function with arguments... ' - -cat >test.bas <<eof 10 def fna(x) 20 if x=0 then r=1 else r=x*fna(x-1) 30 =r 40 print fna(7) -eof - -cat >test.ref <<eof - 5040 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test08.bas b/apps/examples/bas/tests/test08.bas index 82209c91b..0e6f13ad6 100644 --- a/apps/examples/bas/tests/test08.bas +++ b/apps/examples/bas/tests/test08.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'DATA, READ and RESTORE... ' - -cat >test.bas <<eof 10 data "a",b 20 data "c","d 40 read j$ @@ -12,23 +7,4 @@ cat >test.bas <<eof 80 read j$,k$ 90 print "j=";j$;" k=";k$ 100 next -eof - -cat >test.ref <<'eof' -j=a -j=c k=d -Error: end of `data' in line 80 at: -80 read j$,k$ - ^ -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test09.bas b/apps/examples/bas/tests/test09.bas index d751b2474..7d5f72735 100644 --- a/apps/examples/bas/tests/test09.bas +++ b/apps/examples/bas/tests/test09.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'LOCAL variables... ' - -cat >test.bas <<eof 10 def fna(a) 20 local b 30 b=a+1 @@ -11,21 +6,4 @@ cat >test.bas <<eof 70 print b 80 print fna(4) 90 print b -eof - -cat >test.ref <<eof - 3 - 5 - 3 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test10.bas b/apps/examples/bas/tests/test10.bas index 35d65ca4a..41a935cca 100644 --- a/apps/examples/bas/tests/test10.bas +++ b/apps/examples/bas/tests/test10.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'PRINT USING... ' - -cat >test.bas <<'eof' 10 print using "!";"abcdef" 20 print using "\ \";"abcdef" 30 print using "###-";-1 @@ -33,48 +28,4 @@ cat >test.bas <<'eof' 280 print using "a!b";"S","T" 290 print using "a!b!c";"S" 300 print using "a!b!c";"S","T" -eof - -cat >test.ref <<'eof' -a -abc - 1- - 0 - 1 - 1- - 0+ - 1+ - 1,000 -*1,000.00 - +1.00 - +1.23 -+123.46 -+123. -+123 -abc def 1.30 efg -500.00E-002 -100.00E+01 -.50E+01 -23E-10 -.23E-08 -2.3E-09 --.1147E+005 -$***3,729,825.24 -$**3729825.24 -$456.78 -aSb -aSbaTb -aSb -aSbTc -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test11.bas b/apps/examples/bas/tests/test11.bas index 88801c730..78eb6d1c6 100644 --- a/apps/examples/bas/tests/test11.bas +++ b/apps/examples/bas/tests/test11.bas @@ -1,30 +1,6 @@ -#!/bin/sh - -echo -n $0: 'OPEN and LINE INPUT... ' - -cat >test.bas <<'eof' 10 open "i",1,"test.bas" 20 while not eof(1) 30 line input #1,a$ 40 print a$ 50 wend -eof - -cat >test.ref <<eof -10 open "i",1,"test.bas" -20 while not eof(1) -30 line input #1,a$ -40 print a$ -50 wend -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test12.bas b/apps/examples/bas/tests/test12.bas index b78f53747..ecbb9d138 100644 --- a/apps/examples/bas/tests/test12.bas +++ b/apps/examples/bas/tests/test12.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Exception handling... ' - -cat >test.bas <<'eof' 10 on error print "global handler 1 caught error in line ";erl : resume 30 20 print mid$("",-1) 30 on error print "global handler 2 caught error in line ";erl : end @@ -12,21 +7,4 @@ cat >test.bas <<'eof' 70 end proc 80 procx 90 print 1 mod 0 -eof - -cat >test.ref <<eof -global handler 1 caught error in line 20 -local handler caught error in line 60 -global handler 2 caught error in line 90 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test13.bas b/apps/examples/bas/tests/test13.bas index c4e3e3d2b..e3be7a00b 100644 --- a/apps/examples/bas/tests/test13.bas +++ b/apps/examples/bas/tests/test13.bas @@ -1,26 +1,4 @@ -#!/bin/sh - -echo -n $0: 'Unnumbered lines... ' - -cat >test.bas <<'eof' print "a" goto 20 print "b" 20 print "c" -eof - -cat >test.ref <<eof -a -c -eof - -sh ./test/runbas test.bas >test.data - -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test14.bas b/apps/examples/bas/tests/test14.bas index 1699d3bd9..56040112a 100644 --- a/apps/examples/bas/tests/test14.bas +++ b/apps/examples/bas/tests/test14.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'SELECT CASE... ' - -cat >test.bas <<'eof' 10 for i=0 to 9 20 for j=0 to 9 30 print i,j @@ -24,219 +19,4 @@ cat >test.bas <<'eof' 190 end select 200 next 210 next -eof - -cat >test.ref <<eof - 0 0 -i after case 0 - 0 1 -i after case 0 - 0 2 -i after case 0 - 0 3 -i after case 0 - 0 4 -i after case 0 - 0 5 -i after case 0 - 0 6 -i after case 0 - 0 7 -i after case 0 - 0 8 -i after case 0 - 0 9 -i after case 0 - 1 0 -i after case 1 -j after case 0 - 1 1 -i after case 1 - 1 2 -i after case 1 - 1 3 -i after case 1 - 1 4 -i after case 1 - 1 5 -i after case 1 - 1 6 -i after case 1 - 1 7 -i after case 1 - 1 8 -i after case 1 - 1 9 -i after case 1 - 2 0 -is after case is <9 - 2 1 -is after case is <9 - 2 2 -is after case is <9 - 2 3 -is after case is <9 - 2 4 -is after case is <9 - 2 5 -is after case is <9 - 2 6 -is after case is <9 - 2 7 -is after case is <9 - 2 8 -is after case is <9 - 2 9 -is after case is <9 - 3 0 -i after case 3 to 5, 7 - 3 1 -i after case 3 to 5, 7 - 3 2 -i after case 3 to 5, 7 - 3 3 -i after case 3 to 5, 7 - 3 4 -i after case 3 to 5, 7 - 3 5 -i after case 3 to 5, 7 - 3 6 -i after case 3 to 5, 7 - 3 7 -i after case 3 to 5, 7 - 3 8 -i after case 3 to 5, 7 - 3 9 -i after case 3 to 5, 7 - 4 0 -i after case 3 to 5, 7 - 4 1 -i after case 3 to 5, 7 - 4 2 -i after case 3 to 5, 7 - 4 3 -i after case 3 to 5, 7 - 4 4 -i after case 3 to 5, 7 - 4 5 -i after case 3 to 5, 7 - 4 6 -i after case 3 to 5, 7 - 4 7 -i after case 3 to 5, 7 - 4 8 -i after case 3 to 5, 7 - 4 9 -i after case 3 to 5, 7 - 5 0 -i after case 3 to 5, 7 - 5 1 -i after case 3 to 5, 7 - 5 2 -i after case 3 to 5, 7 - 5 3 -i after case 3 to 5, 7 - 5 4 -i after case 3 to 5, 7 - 5 5 -i after case 3 to 5, 7 - 5 6 -i after case 3 to 5, 7 - 5 7 -i after case 3 to 5, 7 - 5 8 -i after case 3 to 5, 7 - 5 9 -i after case 3 to 5, 7 - 6 0 -is after case is <9 - 6 1 -is after case is <9 - 6 2 -is after case is <9 - 6 3 -is after case is <9 - 6 4 -is after case is <9 - 6 5 -is after case is <9 - 6 6 -is after case is <9 - 6 7 -is after case is <9 - 6 8 -is after case is <9 - 6 9 -is after case is <9 - 7 0 -i after case 3 to 5, 7 - 7 1 -i after case 3 to 5, 7 - 7 2 -i after case 3 to 5, 7 - 7 3 -i after case 3 to 5, 7 - 7 4 -i after case 3 to 5, 7 - 7 5 -i after case 3 to 5, 7 - 7 6 -i after case 3 to 5, 7 - 7 7 -i after case 3 to 5, 7 - 7 8 -i after case 3 to 5, 7 - 7 9 -i after case 3 to 5, 7 - 8 0 -is after case is <9 - 8 1 -is after case is <9 - 8 2 -is after case is <9 - 8 3 -is after case is <9 - 8 4 -is after case is <9 - 8 5 -is after case is <9 - 8 6 -is after case is <9 - 8 7 -is after case is <9 - 8 8 -is after case is <9 - 8 9 -is after case is <9 - 9 0 -i after case else - 9 1 -i after case else - 9 2 -i after case else - 9 3 -i after case else - 9 4 -i after case else - 9 5 -i after case else - 9 6 -i after case else - 9 7 -i after case else - 9 8 -i after case else - 9 9 -i after case else -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test15.bas b/apps/examples/bas/tests/test15.bas index 5d4c7545b..a9195bf4b 100644 --- a/apps/examples/bas/tests/test15.bas +++ b/apps/examples/bas/tests/test15.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'FIELD, PUT and GET... ' - -cat >test.bas <<'eof' a$="a" open "r",1,"test.dat",128 print "before field a$=";a$ @@ -20,22 +15,4 @@ get #2 print "after get b$=";b$ close #2 kill "test.dat" -eof - -cat >test.ref <<eof -before field a$=a -a$=hi ya -after close a$= -after get b$=hi ya -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test16.bas b/apps/examples/bas/tests/test16.bas index 9e9942381..809137d75 100644 --- a/apps/examples/bas/tests/test16.bas +++ b/apps/examples/bas/tests/test16.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'SWAP... ' - -cat >test.bas <<'eof' a=1 : b=2 print "a=";a;"b=";b swap a,b @@ -12,22 +7,4 @@ a$(1,0)="a" : b$(0,1)="b" print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1) swap a$(1,0),b$(0,1) print "a$(1,0)=";a$(1,0);"b$(0,1)=";b$(0,1) -eof - -cat >test.ref <<'eof' -a= 1 b= 2 -a= 2 b= 1 -a$(1,0)=ab$(0,1)=b -a$(1,0)=bb$(0,1)=a -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test17.bas b/apps/examples/bas/tests/test17.bas index 544e790f8..bfe0c9c2c 100644 --- a/apps/examples/bas/tests/test17.bas +++ b/apps/examples/bas/tests/test17.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'DO, EXIT DO, LOOP... ' - -cat >test.bas <<'eof' print "loop started" i=1 do @@ -11,30 +6,4 @@ do if i>10 then exit do loop print "loop ended" -eof - -cat >test.ref <<'eof' -loop started -i is 1 -i is 2 -i is 3 -i is 4 -i is 5 -i is 6 -i is 7 -i is 8 -i is 9 -i is 10 -loop ended -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test18.bas b/apps/examples/bas/tests/test18.bas index 2ad4d8ec1..73ab93e1b 100644 --- a/apps/examples/bas/tests/test18.bas +++ b/apps/examples/bas/tests/test18.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'DO WHILE, LOOP... ' - -cat >test.bas <<'eof' print "loop started" x$="" do while len(x$)<3 @@ -15,29 +10,4 @@ do while len(x$)<3 loop loop print "loop ended" -eof - -cat >test.ref <<'eof' -loop started -x$ is -y$ is -y$ is b -x$ is a -y$ is -y$ is b -x$ is aa -y$ is -y$ is b -loop ended -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test19.bas b/apps/examples/bas/tests/test19.bas index 9f0a471f4..aa19fa4ae 100644 --- a/apps/examples/bas/tests/test19.bas +++ b/apps/examples/bas/tests/test19.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'ELSEIF... ' - -cat >test.bas <<'eof' for x=1 to 3 if x=1 then print "1a" @@ -22,24 +17,4 @@ for x=1 to 3 print "2b" elseif x=3 then print "3b" next -eof - -cat >test.ref <<'eof' -1a -2a -3a -1b -2b -3b -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test20.bas b/apps/examples/bas/tests/test20.bas index c8a1a06e1..6b982bf89 100644 --- a/apps/examples/bas/tests/test20.bas +++ b/apps/examples/bas/tests/test20.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Caller trace... ' - -cat >test.bas <<'eof' 10 gosub 20 20 gosub 30 30 procb @@ -13,34 +8,4 @@ cat >test.bas <<'eof' 80 def procb 90 proca 100 end proc -eof - -cat >test.ref <<'eof' -hi -Break in line 60 at: -60 stop - ^ -Proc Called in line 90 at: -90 proca - ^ -Proc Called in line 30 at: -30 procb - ^ -Called in line 20 at: -20 gosub 30 - ^ -Called in line 10 at: -10 gosub 20 - ^ -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test21.bas b/apps/examples/bas/tests/test21.bas index 407430d4c..dd0f63beb 100644 --- a/apps/examples/bas/tests/test21.bas +++ b/apps/examples/bas/tests/test21.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix assignment... ' - -cat >test.bas <<'eof' dim a(3,4) for i=0 to 3 for j=0 to 4 @@ -18,26 +13,4 @@ for i=0 to 3 next print next -eof - -cat >test.ref <<'eof' - 0 1 2 3 4 - 10 11 12 13 14 - 20 21 22 23 24 - 30 31 32 33 34 - 0 0 0 0 0 - 0 11 12 13 14 - 0 21 22 23 24 - 0 31 32 33 34 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test22.bas b/apps/examples/bas/tests/test22.bas index 73e2317f9..e10b03a14 100644 --- a/apps/examples/bas/tests/test22.bas +++ b/apps/examples/bas/tests/test22.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'MAT PRINT... ' - -cat >test.bas <<'eof' dim a(2,2) for i=0 to 2 for j=0 to 2 @@ -16,25 +11,4 @@ for j=1 to 2 print next mat print using " ##.##";a,a -eof - -cat >test.ref <<'eof' - 11.00 21.00 - 12.00 22.00 - 11.00 12.00 - 21.00 22.00 - - 11.00 12.00 - 21.00 22.00 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test23.bas b/apps/examples/bas/tests/test23.bas index 60b37da89..faf5c5593 100644 --- a/apps/examples/bas/tests/test23.bas +++ b/apps/examples/bas/tests/test23.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix addition and subtraction... ' - -cat >test.bas <<'eof' dim a(2,2) a(2,2)=2.5 dim b%(2,2) @@ -15,26 +10,4 @@ c$(2,1)="hi" mat print c$ mat c$=c$+c$ mat print c$ -eof - -cat >test.ref <<'eof' - 0 0 - 0 2.5 - 0 0 - 0 -0.5 - -hi - -hihi -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test24.bas b/apps/examples/bas/tests/test24.bas index 40037cdcd..95678830b 100644 --- a/apps/examples/bas/tests/test24.bas +++ b/apps/examples/bas/tests/test24.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix multiplication... ' - -cat >test.bas <<'eof' 10 dim b(2,3),c(3,2) 20 for i=1 to 2 : for j=1 to 3 : read b(i,j) : next : next 30 for i=1 to 3 : for j=1 to 2 : read c(i,j) : next : next @@ -10,27 +5,4 @@ cat >test.bas <<'eof' 50 mat print b,c,a 60 data 1,2,3,3,2,1 70 data 1,2,2,1,3,3 -eof - -cat >test.ref <<'eof' - 1 2 3 - 3 2 1 - - 1 2 - 2 1 - 3 3 - - 14 13 - 10 11 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test25.bas b/apps/examples/bas/tests/test25.bas index 07132f8c5..bf4d34c93 100644 --- a/apps/examples/bas/tests/test25.bas +++ b/apps/examples/bas/tests/test25.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix scalar multiplication... ' - -cat >test.bas <<'eof' 10 dim a(3,3) 20 for i=1 to 3 : for j=1 to 3 : read a(i,j) : next : next 30 mat print a @@ -16,35 +11,4 @@ cat >test.bas <<'eof' 110 mat print inch_array 120 mat cm_array=(2.54)*inch_array 130 mat print cm_array -eof - -cat >test.ref <<'eof' - 1 2 3 - 4 5 6 - 7 8 9 - - 3 6 9 - 12 15 18 - 21 24 27 - 1 - 12 - 36 - 100 - 39.37 - 2.54 - 30.48 - 91.44 - 254 - 99.9998 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test26.bas b/apps/examples/bas/tests/test26.bas index f7b85687a..8055735a1 100644 --- a/apps/examples/bas/tests/test26.bas +++ b/apps/examples/bas/tests/test26.bas @@ -1,26 +1,5 @@ -#!/bin/sh - -echo -n $0: 'MAT READ... ' - -cat >test.bas <<'eof' dim a(3,3) data 5,5,5,8,8,8,3,3 mat read a(2,3) mat print a -eof - -cat >test.ref <<'eof' - 5 5 5 - 8 8 8 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test27.bas b/apps/examples/bas/tests/test27.bas index f90c0c236..92ba744a8 100644 --- a/apps/examples/bas/tests/test27.bas +++ b/apps/examples/bas/tests/test27.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix inversion... ' - -cat >test.bas <<'eof' data 1,2,3,4 mat read a(2,2) mat print a @@ -10,24 +5,4 @@ mat b=inv(a) mat print b mat c=a*b mat print c -eof - -cat >test.ref <<'eof' - 1 2 - 3 4 --2 1 - 1.5 -0.5 - 1 0 - 0 1 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test28.bas b/apps/examples/bas/tests/test28.bas index fa22845bb..d5185ca98 100644 --- a/apps/examples/bas/tests/test28.bas +++ b/apps/examples/bas/tests/test28.bas @@ -1,26 +1,6 @@ -#!/bin/sh - -echo -n $0: 'TDL BASIC FNRETURN/FNEND... ' - -cat >test.bas <<'eof' def fnfac(n) if n=1 then fnreturn 1 fnend n*fnfac(n-1) print fnfac(10) -eof - -cat >test.ref <<'eof' - 3628800 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test29.bas b/apps/examples/bas/tests/test29.bas index 945f33e4d..fbc20942c 100644 --- a/apps/examples/bas/tests/test29.bas +++ b/apps/examples/bas/tests/test29.bas @@ -1,32 +1,7 @@ -#!/bin/sh - -echo -n $0: 'TDL INSTR... ' - -cat >test.bas <<'eof' print instr("123456789","456");" = 4?" print INSTR("123456789","654");" = 0?" print INSTR("1234512345","34");" = 3?" print INSTR("1234512345","34",6);" = 8?" print INSTR("1234512345","34",6,2);" = 0?" print INSTR("1234512345","34",6,4);" = 8?" -eof - -cat >test.ref <<'eof' - 4 = 4? - 0 = 0? - 3 = 3? - 8 = 8? - 0 = 0? - 8 = 8? -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test30.bas b/apps/examples/bas/tests/test30.bas index 0d7b29a26..06cea549a 100644 --- a/apps/examples/bas/tests/test30.bas +++ b/apps/examples/bas/tests/test30.bas @@ -1,22 +1,2 @@ -#!/bin/sh - -echo -n $0: 'Type mismatch check... ' - -cat >test.bas <<'eof' print 1+"a" -eof - -cat >test.ref <<'eof' -Error: Invalid binary operand at: end of program -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test31.bas b/apps/examples/bas/tests/test31.bas index 7c4b79017..d168bd072 100644 --- a/apps/examples/bas/tests/test31.bas +++ b/apps/examples/bas/tests/test31.bas @@ -1,43 +1,7 @@ -#!/bin/sh - -echo -n $0: 'PRINT default format... ' - -cat >test.bas <<'eof' 10 for i=-8 to 8 20 x=1+1/3 : y=1 : j=i 30 for j=i to -1 : x=x/10 : y=y/10 : next 40 for j=i to 1 step -1 : x=x*10 : y=y*10 : next 50 print x,y 60 next -eof - -cat >test.ref <<'eof' - 1.333333e-08 1e-08 - 1.333333e-07 1e-07 - 1.333333e-06 1e-06 - 1.333333e-05 1e-05 - 0.000133 0.0001 - 0.001333 0.001 - 0.013333 0.01 - 0.133333 0.1 - 1.333333 1 - 13.33333 10 - 133.3333 100 - 1333.333 1000 - 13333.33 10000 - 133333.3 100000 - 1333333 1000000 - 1.333333e+07 1e+07 - 1.333333e+08 1e+08 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test32.bas b/apps/examples/bas/tests/test32.bas index d080d3c27..43fdc4cf5 100644 --- a/apps/examples/bas/tests/test32.bas +++ b/apps/examples/bas/tests/test32.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'SUB routines... ' - -cat >test.bas <<'eof' PUTS("abc") END @@ -10,19 +5,4 @@ SUB PUTS(s$) FOR i=1 to LEN(s$) : print mid$(s$,i,1); : NEXT PRINT END SUB -eof - -cat >test.ref <<'eof' -abc -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test33.bas b/apps/examples/bas/tests/test33.bas index adc53dd62..2d64a4d05 100644 --- a/apps/examples/bas/tests/test33.bas +++ b/apps/examples/bas/tests/test33.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'OPEN FOR BINARY... ' - -cat >test.bas <<'eof' open "test.out" for binary as 1 put 1,1,"xy" put 1,3,"z!" @@ -19,21 +14,4 @@ print s$ print x print n% kill "test.out" -eof - -cat >test.ref <<'eof' -xyz! - 0.333333 - 9999 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test34.bas b/apps/examples/bas/tests/test34.bas index 0419284d8..2cd77b914 100644 --- a/apps/examples/bas/tests/test34.bas +++ b/apps/examples/bas/tests/test34.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'OPTION BASE... ' - -cat >test.bas <<'eof' option base 3 dim a(3,5) a(3,3)=1 @@ -20,24 +15,4 @@ print a(3,3) print a(3,5) print b(-2,-2) print b(-1,2) -eof - -cat >test.ref <<'eof' - 1 - 2 - 1 - 2 - 10 - 20 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test35.bas b/apps/examples/bas/tests/test35.bas index 448fc0dfa..158f20719 100644 --- a/apps/examples/bas/tests/test35.bas +++ b/apps/examples/bas/tests/test35.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Real to integer conversion... ' - -cat >test.bas <<'eof' a%=1.2 print a% a%=1.7 @@ -11,22 +6,4 @@ a%=-0.2 print a% a%=-0.7 print a% -eof - -cat >test.ref <<'eof' - 1 - 2 - 0 --1 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test36.bas b/apps/examples/bas/tests/test36.bas index b26cffae3..c7bd6f054 100644 --- a/apps/examples/bas/tests/test36.bas +++ b/apps/examples/bas/tests/test36.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'OPEN file locking... ' - -cat >test.bas <<'eof' on error goto 10 print "opening file" open "test.out" for output lock write as #1 @@ -10,22 +5,4 @@ print "open succeeded" if command$<>"enough" then shell "sh ./test/runbas test.bas enough" end 10 print "open failed" -eof - -cat >test.ref <<'eof' -opening file -open succeeded -opening file -open failed -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test37.bas b/apps/examples/bas/tests/test37.bas index ca0d446eb..80f65a7de 100644 --- a/apps/examples/bas/tests/test37.bas +++ b/apps/examples/bas/tests/test37.bas @@ -1,24 +1,6 @@ -#!/bin/sh - -echo -n $0: 'LINE INPUT reaching EOF... ' - -cat >test.bas <<'eof' 10 open "i",1,"test.ref" 20 while not eof(1) 30 line input #1,a$ 40 if a$="abc" then print a$; else print "def" 50 wend -eof - -awk 'BEGIN{ printf("abc") }' </dev/null >test.ref - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test38.bas b/apps/examples/bas/tests/test38.bas index 3733d0ad4..c1b151eee 100644 --- a/apps/examples/bas/tests/test38.bas +++ b/apps/examples/bas/tests/test38.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'MAT REDIM... ' - -cat >test.bas <<'eof' dim x(10) mat read x mat print x @@ -11,47 +6,4 @@ mat print x mat redim x(12) mat print x data 1,2,3,4,5,6,7,8,9,10 -eof - -cat >test.ref <<'eof' - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 0 - 0 - 0 - 0 - 0 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test39.bas b/apps/examples/bas/tests/test39.bas index 25c33d475..076c07be9 100644 --- a/apps/examples/bas/tests/test39.bas +++ b/apps/examples/bas/tests/test39.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Nested function and procedure calls... ' - -cat >test.bas <<'eof' def proc_a(x) print fn_b(1,x) end proc @@ -14,19 +9,4 @@ def fn_c(b) = b+3 proc_a(2) -eof - -cat >test.ref <<'eof' - 6 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test40.bas b/apps/examples/bas/tests/test40.bas index d2c4eb0fe..5ddc05009 100644 --- a/apps/examples/bas/tests/test40.bas +++ b/apps/examples/bas/tests/test40.bas @@ -1,26 +1,5 @@ -#!/bin/sh - -echo -n $0: 'IMAGE... ' - -cat >test.bas <<'eof' d=3.1 print using "#.#";d print using 10;d 10 image #.## -eof - -cat >test.ref <<'eof' -3.1 -3.10 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test41.bas b/apps/examples/bas/tests/test41.bas index 58bc28c74..f307a866d 100644 --- a/apps/examples/bas/tests/test41.bas +++ b/apps/examples/bas/tests/test41.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'EXIT FUNCTION... ' - -cat >test.bas <<'eof' function f(c) print "f running" if (c) then f=42 : exit function @@ -11,22 +6,4 @@ end function print f(0) print f(1) -eof - -cat >test.ref <<'eof' -f running - 43 -f running - 42 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test42.bas b/apps/examples/bas/tests/test42.bas index f448251a4..5be79ac26 100644 --- a/apps/examples/bas/tests/test42.bas +++ b/apps/examples/bas/tests/test42.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Arithmetic... ' - -cat >test.bas <<eof 10 print 4.7\3 20 print -2.3\1 30 print int(-2.3) @@ -11,26 +6,4 @@ cat >test.bas <<eof 60 print fix(2.3) 70 print fp(-2.3) 80 print fp(2.3) -eof - -cat >test.ref <<eof - 1 --2 --3 - 2 --2 - 2 --0.3 - 0.3 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test43.bas b/apps/examples/bas/tests/test43.bas index 56d993a0f..26ac0dd02 100644 --- a/apps/examples/bas/tests/test43.bas +++ b/apps/examples/bas/tests/test43.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix multiplication size checks... ' - -cat >test.bas <<eof DIM a(3,3),b(3,1),c(3,3) MAT READ a MAT READ b @@ -18,24 +13,4 @@ MAT READ a MAT READ b MAT c=a*b MAT PRINT c -eof - -cat >test.ref <<eof - 17 - 47 - 77 -Error: Dimension mismatch in line 14 at: -mat c=a*b - ^ -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test44.bas b/apps/examples/bas/tests/test44.bas index 25b1ec3de..72cb37ccf 100644 --- a/apps/examples/bas/tests/test44.bas +++ b/apps/examples/bas/tests/test44.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'DELETE... ' - -cat >test.bas <<eof 10 print 10 20 print 20 30 print 30 @@ -10,29 +5,4 @@ cat >test.bas <<eof 50 print 50 60 print 60 70 print 70 -eof - -cat >test.input <<eof -load "test.bas" -delete -20 -delete 60- -delete 30-40 -delete 15 -list -eof - -cat >test.ref <<eof -Error: No such line at: 15 -50 print 50 -eof - -sh ./test/runbas <test.input >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test45.bas b/apps/examples/bas/tests/test45.bas index 88878c2d0..cea534dda 100644 --- a/apps/examples/bas/tests/test45.bas +++ b/apps/examples/bas/tests/test45.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'MID$ on left side... ' - -cat >test.bas <<'eof' 10 mid$(a$,6,4) = "ABCD" 20 print a$ 30 a$="0123456789" @@ -11,21 +6,4 @@ cat >test.bas <<'eof' 60 a$="0123456789" 70 let mid$(a$,6,4) = "ABCD" 80 print a$ -eof - -cat >test.ref <<'eof' - -01234ABCD9 -01234ABCD9 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test46.bas b/apps/examples/bas/tests/test46.bas index 4537f3e56..f7a08468d 100644 --- a/apps/examples/bas/tests/test46.bas +++ b/apps/examples/bas/tests/test46.bas @@ -1,22 +1,2 @@ -#!/bin/sh - -echo -n $0: 'END used without program... ' - -cat >test.bas <<'eof' for i=1 to 10:print i;:next i:end -eof - -cat >test.ref <<'eof' - 1 2 3 4 5 6 7 8 9 10 -eof - -sh ./test/runbas <test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test47.bas b/apps/examples/bas/tests/test47.bas index 13eb94db2..960ac46c5 100644 --- a/apps/examples/bas/tests/test47.bas +++ b/apps/examples/bas/tests/test47.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'MAT WRITE... ' - -cat >test.bas <<'eof' dim a(3,4) for i=0 to 3 for j=0 to 4 @@ -12,25 +7,4 @@ for i=0 to 3 print next mat write a -eof - -cat >test.ref <<'eof' - 0 1 2 3 4 - 10 11 12 13 14 - 20 21 22 23 24 - 30 31 32 33 34 -11,12,13,14 -21,22,23,24 -31,32,33,34 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test48.bas b/apps/examples/bas/tests/test48.bas index fe2a9e870..223bc1c3e 100644 --- a/apps/examples/bas/tests/test48.bas +++ b/apps/examples/bas/tests/test48.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Multi assignment... ' - -cat >test.bas <<'eof' a,b = 10 print a,b dim c(10) @@ -10,21 +5,4 @@ a,c(a) = 2 print a,c(2),c(10) a$,b$="test" print a$,b$ -eof - -cat >test.ref <<'eof' - 10 10 - 2 0 2 -test test -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test49.bas b/apps/examples/bas/tests/test49.bas index 0d8bcb455..d9b167af0 100644 --- a/apps/examples/bas/tests/test49.bas +++ b/apps/examples/bas/tests/test49.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Matrix determinant... ' - -cat >test.bas <<'eof' width 120 dim a(7,7),b(7,7) mat read a @@ -18,37 +13,4 @@ data 66,72,71,38,40,27,69 mat b=inv(a) mat print b print det -eof - -cat >test.ref <<'eof' - 58 71 67 36 35 19 60 - 50 71 71 56 45 20 52 - 64 40 84 50 51 43 69 - 31 28 41 54 31 18 33 - 45 23 46 38 50 43 50 - 41 10 28 17 33 41 46 - 66 72 71 38 40 27 69 - - 9.636025e+07 320206 -537449 2323650 -1.135486e+07 3.019632e+07 - -9.650941e+07 - 4480 15 -25 108 -528 1404 -4487 --39436 -131 220 -951 4647 -12358 39497 - 273240 908 -1524 6589 -32198 85625 -273663 --1846174 -6135 10297 -44519 217549 -578534 1849032 - 1.315035e+07 43699 -73346 317110 -1549606 4120912 -1.31707e+07 - --9.636079e+07 -320208 537452 -2323663 1.135493e+07 -3.019649e+07 - 9.650995e+07 - 1 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test50.bas b/apps/examples/bas/tests/test50.bas index 4155ca52b..de12fbe87 100644 --- a/apps/examples/bas/tests/test50.bas +++ b/apps/examples/bas/tests/test50.bas @@ -1,8 +1,3 @@ -#!/bin/sh - -echo -n $0: 'Min and max function... ' - -cat >test.bas <<'eof' print min(1,2) print min(2,1) print min(-0.3,0.3) @@ -11,26 +6,4 @@ print max(1,2) print max(2,1) print max(-0.3,0.3) print max(-0.3,4) -eof - -cat >test.ref <<'eof' - 1 - 1 --0.3 --0.3 - 2 - 2 - 0.3 - 4 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test51.bas b/apps/examples/bas/tests/test51.bas index 9341dd09b..503cb2693 100644 --- a/apps/examples/bas/tests/test51.bas +++ b/apps/examples/bas/tests/test51.bas @@ -1,23 +1,2 @@ -#!/bin/sh - -echo -n $0: 'Print items... ' - -cat >test.bas <<'eof' PRINT "Line 1";TAB(78);1.23456789 -eof - -cat >test.ref <<'eof' -Line 1 - 1.234568 -eof - -sh ./test/runbas test.bas >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi diff --git a/apps/examples/bas/tests/test52.bas b/apps/examples/bas/tests/test52.bas index dc524f645..4470bb5b2 100644 --- a/apps/examples/bas/tests/test52.bas +++ b/apps/examples/bas/tests/test52.bas @@ -1,37 +1,6 @@ -#!/bin/sh - -echo -n $0: 'MAT INPUT... ' - -cat >test.bas <<'eof' dim a(2,2) mat input a mat print a mat input a mat print a -eof - -cat >test.input <<'eof' -1,2,3,4,5 -1 -3,4 -eof - -cat >test.ref <<'eof' -? - 1 2 - 3 4 -? ? - 1 0 - 3 4 -eof - -sh ./test/runbas test.bas <test.input >test.data -if cmp test.ref test.data -then - rm -f test.* - echo passed -else - echo failed - exit 1 -fi |