COMMON: add tests

chrisws · chrisws · commit 34b1904da147 · 2014-08-24T10:11:59.000+10:00
diff --git a/samples/distro-examples/tests/optchk.bas b/samples/distro-examples/tests/optchk.bas
@@ -1,5 +1,5 @@
-OPTION PREDEF QUITE
-OPTION PREDEF COMMAND hello world
+OPTION PREDEF QUIET
+OPTION PREDEF COMMAND "hello world"
 OPTION BASE 1
 
 DIM a(3)
diff --git a/samples/distro-examples/tests/output/letbug.out b/samples/distro-examples/tests/output/letbug.out
diff --git a/samples/distro-examples/tests/output/optchk.out b/samples/distro-examples/tests/output/optchk.out
@@ -0,0 +1,5 @@
+1	3
+1	4
+1	1
+0	3
+COMMAND$="hello world"
diff --git a/samples/distro-examples/tests/output/proc.out b/samples/distro-examples/tests/output/proc.out
@@ -0,0 +1,69 @@
+Proc1: no parameters
+Proc2=String test
+Proc2=0.5
+Proc3=3
+Proc4=4
+sub-proc5=4
+sub-proc6=4
+Proc5 - Array=0
+Proc5 - Array=1
+Proc5 - Array=2
+Proc5 - Array=3
+Proc5 - Array=4
+proc5: ok
+proc6: ok
+proc6: ok
+R:2
+R:3
+R:4
+R:5
+R:6
+R:7
+R:8
+R:9
+R:10
+REXIT:10
+REXIT:9
+REXIT:8
+REXIT:7
+REXIT:6
+REXIT:5
+REXIT:4
+REXIT:3
+REXIT:2
+f(x)=256
+23
+16
+15
+14
+13
+12
+11
+10
+9
+8
+7
+6
+5
+4
+3
+2
+1
+0
+0
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10
+11
+12
+13
+14
+15
+16
diff --git a/samples/distro-examples/tests/output/read-data.out b/samples/distro-examples/tests/output/read-data.out
@@ -0,0 +1,3 @@
+0.3333
+1
+HELLO
diff --git a/samples/distro-examples/tests/output/replace-test.out b/samples/distro-examples/tests/output/replace-test.out
@@ -0,0 +1,11 @@
+1bcdefg
+1b4567
+1b7
+1
+1bc234567
+1bcI4567
+
+1
+4567
+1
+4567
diff --git a/samples/distro-examples/tests/output/stack-test.out b/samples/distro-examples/tests/output/stack-test.out
@@ -0,0 +1,5 @@
+2
+4
+8
+16
+32
diff --git a/samples/distro-examples/tests/output/strings.out b/samples/distro-examples/tests/output/strings.out
@@ -0,0 +1 @@
+String functions
diff --git a/samples/distro-examples/tests/proc.bas b/samples/distro-examples/tests/proc.bas
@@ -128,7 +128,7 @@ fi
 end
 
 func fillarray
-local v(),i
+local v,i
 
 dim v(16)
 
diff --git a/samples/distro-examples/tests/strings.bas b/samples/distro-examples/tests/strings.bas
@@ -8,7 +8,7 @@
 
 ' No way to test these except print them!
 ? "String functions"
-? date$,time$
+rem ? date$,time$
 
 ' Comparisons
 if "abc" != "abc" then:? "!=":fi
diff --git a/src/platform/unix/Makefile.am b/src/platform/unix/Makefile.am
@@ -44,7 +44,8 @@ sbasic_DEPENDENCIES = $(top_srcdir)/src/common/libsb_common.a
 
 TEST_DIR=../../../samples/distro-examples/tests
 UNIT_TESTS=array break byref eval-test iifs matrices metaa ongoto \
-	         uds hash pass1 call_tau short-circuit
+	         uds hash pass1 call_tau short-circuit strings stack-test \
+           replace-test read-data proc optchk letbug
 
 test: ${bin_PROGRAMS}
 	@for utest in $(UNIT_TESTS); do                             \

-Original file line number
+Diff line change
@@ @@ -0,0 +1,5 @@ @@
 +1	3
 +1	4
 +1	1
 +0	3
 +COMMAND$="hello world"