[Tcl-bugs] [ tcl-Bugs-549607 ] basic.test fails with space in dirname

[<no...@so...>]

Bugs item #549607, was opened at 2002-04-27 19:15
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=549607&group_id=10894

Category: 43. Parsing and Eval
Group: None
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Kevin B KENNY (kennykb)
Assigned to: miguel sofer (msofer)
Summary: basic.test fails with space in dirname

Initial Comment:
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


----------------------------------------------------------------------

>Comment By: miguel sofer (msofer)
Date: 2002-05-07 12:55

Message:
Logged In: YES 
user_id=148712

Committed

----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=549607&group_id=10894