root/trunk/base/src/pextlib1.0/tests/unsetenv.tcl

# Test file for Pextlib's unsetenv.
# tclsh <Pextlib name>

proc main {pextlibname} {
    load $pextlibname

    global env
    puts [array get env]

    array unset env *
    puts [array get env]
    if {[array size env] > 0} {
        puts "note: your TclUnsetEnv is broken... (need to use unsetenv too)"
    }
    unsetenv *
    puts [array get env]
    if {[array size env] > 0} {
        error "env not empty as expected"
    }


    set env(CC) "gcc"

    array unset env CC
    if {[info exists env(CC)]} {
        puts "note: your TclUnsetEnv is broken... (need to use unsetenv too)"
    }
    unsetenv CC
    if {[info exists env(CC)]} {
        error "CC still set in env"
    }
}

main $argv