path: root/awk/forth/test.forth

( Basic Forth test suite )

testing Basic stack operations
5 dup . . test 5 test 5

testing Addition
3 4 + test 7

testing Subtraction
10 3 - test 7

testing Multiplication
6 7 * test 42

testing Division
20 4 / test 5

testing Stack manipulation - rot
1 2 3 rot test 1

testing Stack manipulation - drop
1 2 3 drop test 2

testing Stack manipulation - nip
1 2 3 nip test 3

testing Stack manipulation - tuck
1 2 tuck test 2

testing Stack manipulation - over
1 2 over test 1

testing Variables
variable x
5 x !
x @ test 5
10 x !
x ? ( should print 10 )

testing Negate
5 negate test -5

testing Absolute value
-7 abs test 7

testing Maximum
3 8 max test 8

testing Minimum
3 8 min test 3

testing Modulo
17 5 mod test 2

testing Equality
5 5 = test 1
5 6 = test 0

testing Word definition
: square dup * ;
5 square test 25

testing Complex word definition
variable counter
: increment-counter counter @ 1 + counter ! ;
5 counter !
increment-counter
counter @ test 6

testing Basic conditional - if/then
: test-if-1 ( n -- n ) dup 5 > if ." Greater than 5" then ;
6 test-if-1 test 6 ( should print "Greater than 5" and leave 6 )
4 test-if-1 test 4 ( should print nothing and leave 4 )

testing Basic conditional - if/else/then
: test-if-2 ( n -- n ) dup 5 > if ." Greater" else ." Less=" then ;
6 test-if-2 test 6 ( should print "Greater" and leave 6 )
4 test-if-2 test 4 ( should print "Less=" and leave 4 )
5 test-if-2 test 5 ( should print "Less=" and leave 5 )

testing Nested conditionals
: test-if-3 ( n -- n ) 
    dup 10 > if 
        dup 20 > if 
            ." >20 "
        then
        ." >10 "
    then ;
25 test-if-3 test 25 ( should print ">20 >10 " and leave 25 )
15 test-if-3 test 15 ( should print ">10 " and leave 15 )
5 test-if-3 test 5   ( should print nothing and leave 5 )

testing Conditional with stack operations
: test-if-4 ( n -- n n ) 
    dup 5 > if 
        dup 
    then ;
6 test-if-4 swap test 6 test 6 ( should leave 6 6 )
4 test-if-4 test 4 ( should leave just 4 )

testing Complex nested conditionals
: test-if-5 ( n -- n )
    dup 0 < if
        ." negative "
    else
        dup 100 > if
            ." big "
        else 
            dup 50 > if
                ." medium "
            else
                ." small "
            then
        then
    then ;
-5 test-if-5 test -5 ( should print "negative " )
150 test-if-5 test 150 ( should print "big " )
75 test-if-5 test 75 ( should print "medium " )
25 test-if-5 test 25 ( should print "small " )

testing Conditionals in word definitions
: abs-test ( n -- |n| ) dup 0 < if negate then ;
-5 abs-test test 5
5 abs-test test 5

testing Complex conditional word
: max-test ( n1 n2 -- max ) 
    2dup > if 
        drop 
    else 
        nip 
    then ;
5 3 max-test test 5
3 5 max-test test 5

( Try to use if outside of a definition - should error )
testing Compile-only words
5 4 > if 42 then ( should print error about compile-only word )

testing Comparison operators
5 3 > test 1  ( 5 > 3 is true )
3 5 > test 0  ( 3 > 5 is false )
3 5 < test 1  ( 3 < 5 is true )
5 3 < test 0  ( 5 < 3 is false )
5 5 < test 0  ( 5 < 5 is false )
5 5 > test 0  ( 5 > 5 is false )

testing Comparison in conditionals
: test-compare ( n -- )
dup 5 > if ." Greater than 5" else
dup 5 < if ." Less than 5" else
." Equal to 5" then then ;
6 test-compare ( should print "Greater than 5" )
4 test-compare ( should print "Less than 5" )
5 test-compare ( should print "Equal to 5" )

bye