summaryrefslogtreecommitdiffstats
path: root/tests/basic.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/basic.test')
-rw-r--r--tests/basic.test35
1 files changed, 20 insertions, 15 deletions
diff --git a/tests/basic.test b/tests/basic.test
index 0d80968..61429b3 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: basic.test,v 1.21 2002/06/22 04:19:47 dgp Exp $
+# RCS: @(#) $Id: basic.test,v 1.22 2002/07/04 16:52:07 msofer Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -426,12 +426,13 @@ test basic-26.1 {Tcl_EvalObj: preserve object while evaling it} {
# message.
proc bgerror {args} {set ::x $::errorInfo}
- set f [open test1 w]
+ set fName [makeFile {} test1]
+ set f [open $fName w]
fileevent $f writable "fileevent $f writable {}; error foo"
set x {}
vwait x
close $f
- file delete test1
+ removeFile test1
rename bgerror {}
set x
} "foo\n while executing\n\"error foo\""
@@ -586,12 +587,13 @@ DONE
}}
test basic-46.2 {Tcl_AllowExceptions: exception return not allowed} {exec} {
- makeFile {
+ set fName [makeFile {
puts hello
break
- } BREAKtest
- set res [list [catch {exec [info nameofexecutable] BREAKtest} msg] $msg]
+ } BREAKtest]
+ set res [list [catch {exec [info nameofexecutable] $fName} msg] $msg]
removeFile BREAKtest
+ regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
set res
} {1 {hello
invoked "break" outside of a loop
@@ -600,13 +602,14 @@ invoked "break" outside of a loop
(file "BREAKtest" line 3)}}
test basic-46.3 {Tcl_AllowExceptions: exception return not allowed} {exec} {
- makeFile {
+ set fName [makeFile {
interp alias {} patch {} info patchlevel
patch
break
- } BREAKtest
- set res [list [catch {exec [info nameofexecutable] BREAKtest} msg] $msg]
+ } BREAKtest]
+ set res [list [catch {exec [info nameofexecutable] $fName} msg] $msg]
removeFile BREAKtest
+ regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
set res
} {1 {invoked "break" outside of a loop
while executing
@@ -614,11 +617,12 @@ test basic-46.3 {Tcl_AllowExceptions: exception return not allowed} {exec} {
(file "BREAKtest" line 4)}}
test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} {exec} {
- makeFile {
+ set fName [makeFile {
foo [set a 1] [break]
- } BREAKtest
- set res [list [catch {exec [info nameofexecutable] BREAKtest} msg] $msg]
+ } BREAKtest]
+ set res [list [catch {exec [info nameofexecutable] $fName} msg] $msg]
removeFile BREAKtest
+ regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
set res
} {1 {invoked "break" outside of a loop
while executing
@@ -628,11 +632,12 @@ test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} {exec} {
(file "BREAKtest" line 2)}}
test basic-46.5 {Tcl_AllowExceptions: exception return not allowed} {exec} {
- makeFile {
+ set fName [makeFile {
return -code return
- } BREAKtest
- set res [list [catch {exec [info nameofexecutable] BREAKtest} msg] $msg]
+ } BREAKtest]
+ set res [list [catch {exec [info nameofexecutable] $fName} msg] $msg]
removeFile BREAKtest
+ regsub {"[^ ]*BREAKtest"} $res {"BREAKtest"} res
set res
} {1 {command returned bad code: 2
while executing