append.test
async.test
case.test
cd.test
exec not supported under os/2
cmdinfo.test
concat.test
dcall.test
defs
dstring.test
env.test
Skipping env tests:  need "printenv" to read environment.
error.test
eval.test
expr.test
file.test
exec not supported under os/2
for.test
format.test


==== format-5.3 floating-point zeroes
==== Contents of test case:

    format "%#.4e %#.4f %#.4g" 0.0 0.0 0.0 0.0

==== Result was:
0.0000e+00 0.0000 0.0000
---- Result should have been:
0.0000e+00 0.0000 0.000
---- format-5.3 FAILED


==== format-5.5 floating-point zeroes
==== Contents of test case:

    format "%#.0e %#.0f %#.0g" 0.0 0.0 0.0 0.0

==== Result was:
0.e+00 0. 0.0
---- Result should have been:
0.e+00 0. 0.
---- format-5.5 FAILED
glob.test
exec not supported under os/2
history.test
if.test
incr.test
info.test
exec not supported under os/2
join.test
lindex.test
link.test
linsert.test
list.test
llength.test
lrange.test
lreplace.test
lsearch.test
lsort.test
misc.test
open.test
exec not supported under os/2
parse.test
pid.test


==== open-1.2 pid command
==== Contents of test case:

    set f [open {| echo foo | cat > /dev/null} w]
    set pids [pid $f]
    close $f
    list [llength $pids] [regexp {^[0-9]+$} [lindex $pids 0]]  [regexp {^[0-9]+$} [lindex $pids 1]]  [expr {[lindex $pids 0] == [lindex $pids 1]}]

==== Test generated error:

proc.test


==== proc-7.11 return with special completion code
==== Contents of test case:

    proc tproc2 {} {
	global errorCode errorInfo
	catch {open _bad_file_name r} msg
	return -code error -errorinfo $errorInfo -errorcode $errorCode $msg
    }
    string tolower [list [catch tproc2 msg] $msg $errorInfo $errorCode]

==== Result was:
1 {couldn't open "_bad_file_name": the file or directory specified cannot be found.} {couldn't open "_bad_file_name": the file or directory specified cannot be found.
    while executing
"open _bad_file_name r"
    invoked from within
"tproc2"} {posix enoent {the file or directory specified cannot be found.}}
---- Result should have been:
1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
    while executing
"open _bad_file_name r"
    invoked from within
"tproc2"} {posix enoent {no such file or directory}}
---- proc-7.11 FAILED


==== proc-7.12 return with special completion code
==== Contents of test case:

    proc tproc2 {} {
	global errorCode errorInfo
	catch {open _bad_file_name r} msg
	return -code error -errorcode $errorCode $msg
    }
    string tolower [list [catch tproc2 msg] $msg $errorInfo $errorCode]

==== Result was:
1 {couldn't open "_bad_file_name": the file or directory specified cannot be found.} {couldn't open "_bad_file_name": the file or directory specified cannot be found.
    while executing
"tproc2"} {posix enoent {the file or directory specified cannot be found.}}
---- Result should have been:
1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
    while executing
"tproc2"} {posix enoent {no such file or directory}}
---- proc-7.12 FAILED


==== proc-7.13 return with special completion code
==== Contents of test case:

    proc tproc2 {} {
	global errorCode errorInfo
	catch {open _bad_file_name r} msg
	return -code error -errorinfo $errorInfo $msg
    }
    string tolower [list [catch tproc2 msg] $msg $errorInfo $errorCode]

==== Result was:
1 {couldn't open "_bad_file_name": the file or directory specified cannot be found.} {couldn't open "_bad_file_name": the file or directory specified cannot be found.
    while executing
"open _bad_file_name r"
    invoked from within
"tproc2"} none
---- Result should have been:
1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
    while executing
"open _bad_file_name r"
    invoked from within
"tproc2"} none
---- proc-7.13 FAILED


==== proc-7.14 return with special completion code
==== Contents of test case:

    proc tproc2 {} {
	global errorCode errorInfo
	catch {open _bad_file_name r} msg
	return -code error $msg
    }
    string tolower [list [catch tproc2 msg] $msg $errorInfo $errorCode]

==== Result was:
1 {couldn't open "_bad_file_name": the file or directory specified cannot be found.} {couldn't open "_bad_file_name": the file or directory specified cannot be found.
    while executing
"tproc2"} none
---- Result should have been:
1 {couldn't open "_bad_file_name": no such file or directory} {couldn't open "_bad_file_name": no such file or directory
    while executing
"tproc2"} none
---- proc-7.14 FAILED
regexp.test
rename.test
scan.test
set.test
source.test


==== source-1.1 source command
==== Contents of test case:

    set x "old x value"
    set y "old y value"
    set z "old z value"
    exec cat << {
	set x 22
	set y 33
	set z 44
    } > source.file
    source source.file
    list $x $y $z

==== Test generated error:
exec not supported under os/2


==== source-1.2 source command
==== Contents of test case:

    exec cat << {list result} > source.file
    source source.file

==== Test generated error:
exec not supported under os/2


==== source-2.3 source error conditions
==== Contents of test case:

    exec cat << {
	set x 146
	error "error in sourced file"
	set y $x
    } > source.file
    list [catch {source source.file} msg] $msg $errorInfo

==== Test generated error:
exec not supported under os/2


==== source-2.4 source error conditions
==== Contents of test case:

    exec cat << {break} > source.file
    catch {source source.file}

==== Test generated error:
exec not supported under os/2


==== source-2.5 source error conditions
==== Contents of test case:

    exec cat << {continue} > source.file
    catch {source source.file}

==== Test generated error:
exec not supported under os/2


==== source-2.6 source error conditions
==== Contents of test case:

    string tolower [list [catch {source _non_existent_} msg] $msg $errorCode]

==== Result was:
1 {couldn't read file "_non_existent_": the file or directory specified cannot be found.} {posix enoent {the file or directory specified cannot be found.}}
---- Result should have been:
1 {couldn't read file "_non_existent_": no such file or directory} {posix enoent {no such file or directory}}
---- source-2.6 FAILED


==== source-3.1 return in middle of source file
==== Contents of test case:

    exec cat << {
	set x new-x
	return allDone
	set y new-y
    } > source.file
    set x old-x
    set y old-y
    set z [source source.file]
    list $x $y $z

==== Test generated error:
exec not supported under os/2
split.test
string.test
switch.test
trace.test
unknown.test
uplevel.test
upvar.test
while.test
