diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-30 20:51:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-30 20:51:43 (GMT) |
| commit | dcd11ad5da4dec127b5331f936c8a00d16b4d4db (patch) | |
| tree | 9103e4bbde950cbd40f65fab5a000cb53e973b98 /tests/basic.test | |
| parent | b9691ea46a7c8f9a6182cc92385754a2e55ef5a1 (diff) | |
| parent | dc03444f53228daafc69911cd9dd8fbb5b14ddc5 (diff) | |
| download | tcl-dcd11ad5da4dec127b5331f936c8a00d16b4d4db.zip tcl-dcd11ad5da4dec127b5331f936c8a00d16b4d4db.tar.gz tcl-dcd11ad5da4dec127b5331f936c8a00d16b4d4db.tar.bz2 | |
For Parse/eval & msgcat, select modernizations from Patrick Fradin + -debug fix
Diffstat (limited to 'tests/basic.test')
| -rw-r--r-- | tests/basic.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/basic.test b/tests/basic.test index 7435571..ccf26cc 100644 --- a/tests/basic.test +++ b/tests/basic.test @@ -16,7 +16,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. package require tcltest 2 -namespace import -force ::tcltest::* +namespace import ::tcltest::* ::tcltest::loadTestedCommands catch [list package require -exact Tcltest [info patchlevel]] @@ -31,7 +31,7 @@ catch {interp delete test_interp} catch {rename p ""} catch {rename q ""} catch {rename cmd ""} -catch {unset x} +unset -nocomplain x test basic-1.1 {Tcl_CreateInterp, creates interp's global namespace} { catch {interp delete test_interp} @@ -302,7 +302,7 @@ test basic-20.1 {Tcl_GetCommandInfo, names for commands created inside namespace catch {namespace delete {*}[namespace children :: test_ns_*]} catch {rename p ""} catch {rename q ""} - catch {unset x} + unset -nocomplain x set x [namespace eval test_ns_basic::test_ns_basic2 { # the following creates a cmd in the global namespace testcmdtoken create p @@ -355,7 +355,7 @@ test basic-23.1 {Tcl_DeleteCommand} {emptyTest} { test basic-24.1 {Tcl_DeleteCommandFromToken, invalidate all compiled code if cmd has compile proc} { catch {interp delete test_interp} - catch {unset x} + unset -nocomplain x interp create test_interp interp eval test_interp { proc useSet {} { @@ -427,7 +427,7 @@ test basic-26.1 {Tcl_EvalObj: preserve object while evaling it} -setup { # string would have been freed, leaving garbage bytes for the error # message. set f [open $fName w] - fileevent $f writable "fileevent $f writable {}; error foo" + chan event $f writable "chan event $f writable {}; error foo" set x {} vwait x close $f @@ -547,8 +547,8 @@ test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {stdio} { catch {close $f} set res [catch { set f [open |[list [interpreter]] w+] - fconfigure $f -buffering line - puts $f {fconfigure stdout -buffering line} + chan configure $f -buffering line + puts $f {chan configure stdout -buffering line} puts $f continue puts $f {puts $::errorInfo} puts $f {puts DONE} @@ -972,6 +972,6 @@ catch {rename p ""} catch {rename q ""} catch {rename cmd ""} catch {rename value:at: ""} -catch {unset x} -::tcltest::cleanupTests +unset -nocomplain x +cleanupTests return |