alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding tests for DO LOOP

Browse Source
This commit is contained in:
Brad Nelson
2021-02-15 12:24:36 -08:00
parent 404803fec8
commit 528c8e560f
2 changed files with 119 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ueforth/common/all_tests.fs
View File

@ -4,4 +4,5 @@ include common/base_tests.fs
include common/utils_tests.fs
include common/vocabulary_tests.fs
include common/locals_tests.fs
include common/doloop_tests.fs
run-tests

118
ueforth/common/doloop_tests.fs Normal file
View File

@ -0,0 +1,118 @@
( Test DO LOOP Works )
e: test-0doloop
: foo 0 do i . loop cr ;
10 foo
out: 0 1 2 3 4 5 6 7 8 9
;e
e: test-0?do-loop
: foo 0 ?do i . loop cr ;
10 foo
out: 0 1 2 3 4 5 6 7 8 9
0 foo
out:
;e
e: test-rev-doloop
: foo 0 10 do i . -1 +loop cr ;
foo
out: 10 9 8 7 6 5 4 3 2 1 0
;e
e: test-rev-?doloop
: foo 0 10 ?do i . -1 +loop cr ;
foo
out: 10 9 8 7 6 5 4 3 2 1 0
;e
e: test-do+loop
: foo 0 do i . 2 +loop cr ;
9 foo
out: 0 2 4 6 8
10 foo
out: 0 2 4 6 8
11 foo
out: 0 2 4 6 8 10
1 foo
out: 0
;e
e: test-?do+loop
: foo 0 ?do i . 2 +loop cr ;
9 foo
out: 0 2 4 6 8
10 foo
out: 0 2 4 6 8
11 foo
out: 0 2 4 6 8 10
1 foo
out: 0
0 foo
out:
;e
e: test-doloop-leave
: foo 0 do 42 emit i 7 = if ." left " leave ." nope" then i . loop cr ;
7 foo
out: *0 *1 *2 *3 *4 *5 *6
8 foo
out: *0 *1 *2 *3 *4 *5 *6 *left
9 foo
out: *0 *1 *2 *3 *4 *5 *6 *left
;e
e: test-do+loop-leave
: foo 0 do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
7 foo
out: *0 *2 *4 *6
8 foo
out: *0 *2 *4 *6
9 foo
out: *0 *2 *4 *6 *left
0 foo
out: *0
;e
e: test-?do+loop-leave
: foo 0 ?do 42 emit i 8 = if ." left " leave ." nope" then i . 2 +loop cr ;
7 foo
out: *0 *2 *4 *6
8 foo
out: *0 *2 *4 *6
9 foo
out: *0 *2 *4 *6 *left
0 foo
out:
;e
e: test-do+loop-unloop
: foo 0 do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
7 foo
out: *0 *2 *4 *6 done
8 foo
out: *0 *2 *4 *6 done
9 foo
out: *0 *2 *4 *6 *left
0 foo
out: *0 done
;e
e: test-?do+loop-unloop
: foo 0 ?do 42 emit i 8 = if ." left " cr unloop exit then i . 2 +loop ." done " cr ;
7 foo
out: *0 *2 *4 *6 done
8 foo
out: *0 *2 *4 *6 done
9 foo
out: *0 *2 *4 *6 *left
0 foo
out: done
;e
e: test-doloop-j
: foo 5 0 do 3 0 do j . loop loop cr ;
foo
out: 0 0 0 1 1 1 2 2 2 3 3 3 4 4 4
;e