tst_var_syn.gri

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

    show "doc/tst_suite/tst_var_syn.gri ..." ...
    rpnfunction same - abs 1e-10 >          # Are numbers virtually same?

    # New and delete (variables)
     .v. = 1
    new .v.
    .v. = 2
    assert {rpn .v. 2 same}                 " failed test 1.1"
    assert {rpn ".v." defined}              " failed test 1.2"
    delete .v.
    assert {rpn .v. 1 same}                 " failed test 1.3"
    assert {rpn ".v." defined}              " failed test 1.4"
    delete .v.
    assert {rpn ".v." defined !}            " failed test 1.4"

    # New and delete (synonyms)
    \v = "hi"
    new \v
    \v = "hello"
    assert {rpn "\v" "hello" ==}            " failed test 2.1"
    assert {rpn "\\v" defined}              " failed test 2.2"
    delete \v
    assert {rpn "\v" "hi" ==}               " failed test 2.3"
    assert {rpn "\\v" defined}              " failed test 2.4"
    delete \v
    assert {rpn "\\v" defined !}            " failed test 2.5"

    # Multi-word synonyms
    \h = "Hi there buddy"
    assert {rpn  \[]h    3      ==}         " failed test 3.1"
    .i. = \[]h
    assert {rpn  .i.     3      ==}         " failed test 3.2"
    assert {rpn "\[0]h" "Hi"    ==}         " failed test 3.3"
    assert {rpn "\[1]h" "there" ==}         " failed test 3.4"
    assert {rpn "\[2]h" "buddy" ==}         " failed test 3.5"
    \h = "Hi means \"hello\""
    assert {rpn "\[0]h" "Hi"        ==}     " failed test 3.6"
    assert {rpn "\[1]h" "means"     ==}     " failed test 3.7"
    assert {rpn "\[2]h" "\"hello\"" ==}     " failed test 3.8"
    .i. = 1
    assert {rpn "\[.i.]h" "means"   ==}     " failed test 3.9"
    \i = "1"
    assert {rpn "\[\i]h"  "means"   ==}     " failed test 3.10"

    # Setting by quoted name
    set ".var." to 10
    assert {rpn .var. 10 ==}                " failed test 4.1"
    set "\\syn" to "hi"
    assert {rpn "\syn" "hi" ==}             " failed test 4.2"

    # Setting by quoted name, in a new command
    `hi pi "\\Greeting" ".Pi."'
    {
        set "\.word2." to "hi"
        set "\.word3." to 3.14
    }
    hi pi "\\g" ".p."
    assert {rpn "\g" "hi" ==}                       " failed test 5.1"
    assert {rpn .p.  3.14 ==}                       " failed test 5.2"

    # Execution of synonyms
    \ret = "\string = \"Hello\""
    \ret
    assert {rpn "\string" "Hello" ==}               " failed test 6.1"

    # Parsing of individual words in synonyms (tests SourceForge bug 114983)
    `Newcommand "\pat"''
    {
        \t = "A .2"
        assert {rpn "\[0].word1." "\[0]t" ==}       " failed test 7.1"
    }
    Newcommand "A .2"

    # Test aliased synonyms

    # Part 1. check to see if can delete without either a
    # single or a double backslash, and either with
    # enclosing double-quotes, or not.
    \a = "HI"
    assert {rpn "\\a"    defined   }                " failed test 8.1"
    delete \a
    assert {rpn "\\a"    defined ! }                " failed test 8.2"
    \a = "HI"
    delete \a
    assert {rpn "\\a"    defined ! }                " failed test 8.3"

    new \a
    assert {rpn "\\a"     defined   }               " failed test 9.1"
    \a = "greeting"
    assert {rpn "\\a"     defined   }               " failed test 9.2"
    delete \a
    assert {rpn "\\a"     defined ! }               " failed test 9.3"

    # Part 5. sprintf
    sprintf \a "%.1f" 10
    assert {rpn "\a" "10.0" == }                    " failed test 10.1"
    \alias_for_a = "\\a"
    sprintf \@alias_for_a "%.1f" 20
    assert {rpn "\a" "20.0" == }                    " failed test 10.2"

    # Part 6. Environment variables (SF bug 117415)
    \alias_for_a = "\\a"
    get env \@alias_for_a "SHELL"
    get env \b "SHELL"
    assert {rpn "\a" "\b" ==}                       " failed test 11.1"

    # Part 7 'read' (SF bug 117412)
    \TMPFILE = tmpname
    system echo "Hello" > \TMPFILE
    open "\TMPFILE"
    read \a
    assert {rpn "\a" "Hello" ==}                    " failed test 12.1"
    \a = "JUNK"
    \alias_for_a = "\\a"
    rewind
    read \\a
    assert {rpn "\a" "Hello" ==}                    " failed test 12.2"
    \a = "JUNK"
    \alias_for_a = "\\a"
    rewind
    read \@alias_for_a
    close
    assert {rpn "\a" "Hello" ==}                    " failed test 12.3"
    system rm -f \TMPFILE

    # Part 8 -- ensure not trying to evaluate inside 'false' if parts.
    \str = "Hello"
    \t = {rpn "\s" "tr" strcat}	# construct a name
    if {rpn "\\t" defined}		# test if defined
        .val. = 1
    end if
    if {rpn "\\x" defined}		# this one is not defined
        .val. = 2
    end if
    assert {rpn .val. 1 ==}                         " failed test 12.4"

    #
    \a1 = "1"
    \b1 = "2"
    \a2 = "10"
    \b2 = "20"
    read columns x y
    \a1 \b1
    \a2 \b2

    assert {rpn x 0 @  1 ==}                        " failed test 13.1"
    assert {rpn x 1 @ 10 ==}                        " failed test 13.2"
    assert {rpn y 0 @  2 ==}                        " failed test 13.3"
    assert {rpn y 1 @ 20 ==}                        " failed test 13.4"

    `NC ...'
    {
        read columns x y
        \.word1 \.word2.

    }
    NC 1 10
    assert {rpn x 0 @  1 ==}                        " failed test 14.1"
    assert {rpn y 0 @ 10 ==}                        " failed test 14.2"

    \a = "1  2"
    \b = "10 20"
    \index = "0"
    read columns x y
    \[\index]a \[1]b

    assert {rpn x 0 @  1 ==}                        " failed test 15.1"
    assert {rpn y 0 @ 20 ==}                        " failed test 15.2"

    `NC2 ...'
    {
        read columns x y
        \[0].word1. \[0].word2.
        \[1].word1. \[1].word2.

    }
    NC2 "1 2" "100 200"
    assert {rpn x 0 @   1 ==}                        " failed test 16.1"
    assert {rpn x 1 @   2 ==}                        " failed test 16.2"
    assert {rpn y 0 @ 100 ==}                        " failed test 16.3"
    assert {rpn y 1 @ 200 ==}                        " failed test 16.4"

    # Part 9. New commands with variables

    # Rvalue: synonyms/variables
    `ampersand_rvalue &.v. &\s'
    {
        new \syn
        \syn = "Shadow"
        new .a.
        .a. = 0
        assert {rpn \.word1. 1 ==}                   " failed test 17.1"
        assert {rpn "\.word2." "Brightness" ==}      " failed test 17.2"
        delete \syn
        delete .a.
    }
    .a. = 1
    \syn = "Brightness"
    ampersand_rvalue &.a. &\syn

    # Rvalue + Lvalue: synonym
    `append &\s'
    {
        \.word1. = "\.word1. and bye"
    }
    \a = "hi"
    append &\a
    assert {rpn "\a" "hi and bye" ==}                "failed test 18.3"

    # Rvalue + Lvalue: variable in the = form of assignment
    `double &.var.'
    {
        \.word1. = {rpn \.word1. 2 *}
    }
    .a. = 10
    double &.a.
    assert {rpn .a. 20 ==}                           "failed test 18.4"

    `Double &.var.'
    {
        \.word1. *= 2
    }
    .a. = 10
    Double &.a.
    assert {rpn .a. 20 ==}                          " failed test 18.5"

    `halve &.var.'
    {
        \.word1. = {rpn \.word1. 2 /}
    }
    halve &.a.
    assert {rpn .a. 10 ==}                          " failed test 18.6"

    `NC3 &\friendly'
    {
        \.word1. = "Howdy"
    }
    \greeting = "Hi"
    NC3 &\greeting
    assert {rpn "\greeting" "Howdy" ==}             " failed test 18.7"

    `postpend_dat &\filename'
    {
        \.word1. = {rpn "\.word1." ".dat" strcat}
    }
    \filename = "test"
    postpend_dat &\filename
    assert {rpn "test.dat" "\filename" ==}           " failed test 18.8"

    # new
    `test_new &\s'
    {
        new \.word1.
        new \a
        \a = "This will dissapear"
        \.word1. = "Think locally"
        delete \a
    }
    \a = "Act globally"
    test_new &\a
    assert {rpn "\a" "Think locally" ==}             " failed test 18.9"
    delete \a
    assert {rpn "\a" "Act globally" ==}              " failed test 18.10"

    `test_new_delete &\s'
    {
        new \a
        \a = "Insurrection"
        assert {rpn "\.word1." "Act globally" ==}    " failed test 18.11"
        delete \.word1.
        assert {rpn "\.word1." "Or else" ==}         " failed test 18.12"
        delete \a
    }
    \a = "Or else"
    new \a
    \a = "Act globally"
    test_new_delete &\a

    # Nexting
    `nest2 &.v. &\s'
    {
        assert {rpn "\.word1." "HI" ==}              " failed test 18.13"
        assert {rpn \.word2. 0.5 ==}                 " failed test 18.14"
    }
    `nest1 &.v. &\s'
    {
        nest2 &\.word2. &\.word1.	# reversed
    }
    .a. = 0.5
    \s = "HI"
    nest1 &.a. &\s
    # defined
    `check_defined &.v.'
    {
        assert {rpn "\\.word1." defined}             " failed test 18.15"
        delete .a.
        assert {rpn "\\.word1." defined !}           " failed test 18.16"
    }
    .a. = 100
    check_defined &.a.

    # System
    \t = system perl <<"EOF"
    {print "Hi"};
    EOF
    assert {rpn "\t" "Hi" ==}                       " failed test 19.1"
    \t = system perl <<"EOF"
    {print "Hello"};
     EOF
    assert {rpn "\t" "Hello" ==}                    " failed test 19.2"
    `NC4'
    {
        \t = system perl <<"EOF"
        {print "Howdie"};
    EOF
    }
    NC4
    assert {rpn "\t" "Howdie" ==}                   " failed test 19.3"
    `NC5'
    {
        \t = system perl <<"EOF"
            {print "G'day"};
        EOF
    }
    NC5
    assert {rpn "\t" "G'day" ==}                    " failed test 19.4"

    ### BLOCK 20 ###
    # Alias as lvalue (e.g. \@ptr = ...)
    # (1) lvalue synonyms
    \greeting = "You say goodbye"
    \alias = "\\greeting"
    \@alias = "And I say hello"
    assert {rpn "\greeting" "And I say hello" ==}   " failed test 20.1"
    # (2) lvalue variables
    .b. = 1
    \bptr = ".b."
    \@bptr *= 2
    assert {rpn .b. 2 ==}                           " failed test 20.2"
    \@bptr = 10
    assert {rpn .b. 10 ==}                          " failed test 20.3"

    # Alias as rvalue (e.g. show "\@ptr")
    # (1) rvalue synonyms
    \a = "HI"
    \aptr = "\\a"
    assert {rpn "\@aptr" "HI" ==}                   " failed test 20.4"
    \@aptr = "BYE"
    assert {rpn "\@aptr" "BYE" ==}                  " failed test 20.5"
    \aa = "\@aptr"
    assert {rpn "\@aptr" "BYE" ==}                  " failed test 20.6"
    # (2) rvalue variables
    .a. = 1
    \aptr = ".a."
    assert {rpn \@aptr 1 ==}                        " failed test 20.7"
    .aa. = {rpn .a. 1 +}
    assert {rpn .aa. 2 ==}                          " failed test 20.8"

    # Missing values
    set missing value 0
    .x. = 0
    assert {rpn .x. ismissing}                      " failed test 21.1"
    assert {rpn .x. 1 + ismissing}                  " failed test 21.2"
    set missing value 1e33

    show " passed"