tst_IO.gri

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

    show "doc/tst_suite/tst_IO.gri      ..." ...
    # Test some I/O features.  NOTE: this will make _no_ sense
    # to you unless you have a look at the test files!
    # Read columns from file with newline at the end ...
    open tst_IO_1.dat
    read columns x y
    close
    assert {rpn ..num_col_data.. 2 ==}      " failed test 1-a"
    assert {rpn x 0 @  1 ==}                " failed test 1-b"
    assert {rpn x 1 @  2 ==}                " failed test 1-c"
    assert {rpn y 0 @ 11 ==}                " failed test 1-d"
    assert {rpn y 1 @ 22 ==}                " failed test 1-e"
    # ... as above, but from a file without newline at the end.
    open tst_IO_2.dat
    read columns x y
    close
    assert {rpn ..num_col_data.. 2 ==}      " failed test 2-a"
    assert {rpn x 0 @  1 ==}                " failed test 2-b"
    assert {rpn x 1 @  2 ==}                " failed test 2-c"
    assert {rpn y 0 @ 11 ==}                " failed test 2-d"
    assert {rpn y 1 @ 22 ==}                " failed test 2-e"
    # Read a line into a synonym.
    open tst_IO_1.dat
    read line \s
    assert {rpn "\s" "1 11" ==}             " failed test 3-a"
    read line \s
    assert {rpn "\s" "2 22" ==}             " failed test 3-b"
    close
    open tst_IO_2.dat
    read line \s
    assert {rpn "\s" "1 11" ==}             " failed test 3-c"
    read line \s
    assert {rpn "\s" "2 22" ==}             " failed test 3-d"
    close
    # Read variable/synonym, in various orders.
    open tst_IO_1.dat
    read .a. .b.
    assert {rpn .a.  1 ==}                  " failed test 4-a"
    assert {rpn .b. 11 ==}                  " failed test 4-b"
    read \a \b
    assert {rpn "\a"  "2" ==}               " failed test 4-c"
    assert {rpn "\b" "22" ==}               " failed test 4-d"
    rewind
    read .a. \b
    assert {rpn .a.  1 ==}                  " failed test 4-e"
    assert {rpn "\b" "11" ==}               " failed test 4-f"
    read \a color=#CDAD00> .b.
    assert {rpn "\a" "2" ==}                " failed test 4-g"
    assert {rpn .b.  22  ==}                " failed test 4-h"
    close
    open tst_IO_2.dat
    read .a. .b.
    assert {rpn .a.  1 ==}                  " failed test 4-i"
    assert {rpn .b. 11 ==}                  " failed test 4-j"
    read \a \b
    assert {rpn "\a"  "2" ==}               " failed test 4-k"
    assert {rpn "\b" "22" ==}               " failed test 4-l"
    rewind
    read .a. \b
    assert {rpn .a.  1 ==}                  " failed test 4-m"
    assert {rpn "\b" "11" ==}               " failed test 4-n"
    read \a color=#CDAD00> .b.
    assert {rpn "\a" "2" ==}                " failed test 4-o"
    assert {rpn .b.  22  ==}                " failed test 4-p"
    close
    show " passed"