Tcl Source Code

Artifact e987e179a13a45febbcdb2db75105ced48cf6f2c:

Attachment "basic.errs" to ticket [678390ffff] added by kennykb 2003-02-01 04:22:36.

---

basic.test

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

    set fName [makeFile {
	puts hello
	break
    } BREAKtest]
    set res [list [catch {exec [interpreter] $fName} msg] $msg]
    removeFile BREAKtest
    regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
    set res

---- Result was:
1 {hello
invoked "break" outside of a loop
    while executing
"break"
    (file "C:/Documents and Settings/kennykb/My Documents/SourceForge/tcl/win/BREAKtest" line 3)}
---- Result should have been (exact matching):
1 {hello
invoked "break" outside of a loop
    while executing
"break"
    (file "BREAKtest" line 3)}
==== basic-46.2 FAILED


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

    set fName [makeFile {
	interp alias {} patch {} info patchlevel
	patch
	break
    } BREAKtest]
    set res [list [catch {exec [interpreter] $fName} msg] $msg]
    removeFile BREAKtest
    regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
    set res

---- Result was:
1 {invoked "break" outside of a loop
    while executing
"break"
    (file "C:/Documents and Settings/kennykb/My Documents/SourceForge/tcl/win/BREAKtest" line 4)}
---- Result should have been (exact matching):
1 {invoked "break" outside of a loop
    while executing
"break"
    (file "BREAKtest" line 4)}
==== basic-46.3 FAILED


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

    set fName [makeFile {
	foo [set a 1] [break]
    } BREAKtest]
    set res [list [catch {exec [interpreter] $fName} msg] $msg]
    removeFile BREAKtest
    regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
    set res

---- Result was:
1 {invoked "break" outside of a loop
    while executing
"break"
    invoked from within
"foo [set a 1] [break]"
    (file "C:/Documents and Settings/kennykb/My Documents/SourceForge/tcl/win/BREAKtest" line 2)}
---- Result should have been (exact matching):
1 {invoked "break" outside of a loop
    while executing
"break"
    invoked from within
"foo [set a 1] [break]"
    (file "BREAKtest" line 2)}
==== basic-46.4 FAILED


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

    set fName [makeFile {
	return -code return
    } BREAKtest]
    set res [list [catch {exec [interpreter] $fName} msg] $msg]
    removeFile BREAKtest
    regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
    set res

---- Result was:
1 {command returned bad code: 2
    while executing
"return -code return"
    (file "C:/Documents and Settings/kennykb/My Documents/SourceForge/tcl/win/BREAKtest" line 2)}
---- Result should have been (exact matching):
1 {command returned bad code: 2
    while executing
"return -code return"
    (file "BREAKtest" line 2)}
==== basic-46.5 FAILED