tst_control.gri

# This html document was prepared by gri2html based on the Gri script named
# tst_control.gri
# Gri is available for free at http://gri.sourceforge.net

    show "doc/tst_suite/tst_control.gri ..." ...

    # If statements
    if 0
        assert 0				" failed test 1"
    end if
    if 1
    else
        assert 0				" failed test 2"
    end if

    # Loops.

    # Loop with if inside
    .i. = 0
    while {rpn .i. 3 >}
        .i. += 1
        if 1
        else
    	assert 0			" failed test 3"
        end if
    end while
    assert {rpn .i. 3 ==}			" failed test 4"

    # Loop inside if
    if 1
        .i. = 0
        while {rpn .i. 3 >}
    	.i. += 1
        end while
        assert {rpn .i. 3 ==}		" failed test 5"
    else
        assert 0				" failed test 6"
        .i. = 0
        while {rpn .i. 3 >}
    	.i. += 1
        end while
        assert 0				" failed test 7"
    end if

    # Nested loops
    .i. = 0
    while {rpn .i. 2 >}
        .j. = 0
        while {rpn .j. 4 >}
    	.j. += 1
        end while
        .i. += 1
    end while
    assert {rpn .i. 2 ==}			" failed test 8"
    assert {rpn .j. 4 ==}			" failed test 9"

    show " passed"