Tcl Source Code

Test basic-46.1 fails if [info nameofexecutable] contains
a space character.

Attached patch appears to fix it.

Fault is in the test suite and not the code under test.

==== basic-46.1 Tcl_AllowExceptions: exception return
not allowed FAILED
==== Contents of test case:

    catch {close $f}
    set res [catch {
set f [open |[info nameofexecutable] w+]
fconfigure $f -buffering line
puts $f {fconfigure stdout -buffering line}
puts $f continue
puts $f {puts $errorInfo}
puts $f {puts DONE}
set newMsg {}
set msg {}
while {$newMsg != "DONE"} {
    set newMsg [gets $f]
    append msg "${newMsg}\n"
}
close $f
    }]
    list $res $msg   

---- Result was:
1 {global unknown}
---- Result should have been (exact matching):
1 {invoked "continue" outside of a loop
    while executing
"continue
"
DONE
}
==== basic-46.1 FAILED

Logged In: YES 
user_id=148712

Committed

File Added - 22061: basic.test.diff