diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 15:32:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-04 15:32:17 (GMT) |
| commit | 29be47f4511520e0e8efac664661d17195c8fea1 (patch) | |
| tree | 5a04716bef3e6f774a44471d082b0aa937f44cbf /tests/execute.test | |
| parent | 58bf5b79b7e9fa16903e3796a77e212afee94d31 (diff) | |
| parent | c47a86166324a3e2efe9359c431bb93f7519847c (diff) | |
| download | tcl-29be47f4511520e0e8efac664661d17195c8fea1.zip tcl-29be47f4511520e0e8efac664661d17195c8fea1.tar.gz tcl-29be47f4511520e0e8efac664661d17195c8fea1.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/execute.test')
| -rw-r--r-- | tests/execute.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/execute.test b/tests/execute.test index daaad16..f22747c 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -8,8 +8,8 @@ # Sourcing this file into Tcl runs the tests and generates output for errors. # No output means no errors were found. # -# Copyright (c) 1997 Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. +# Copyright © 1997 Sun Microsystems, Inc. +# Copyright © 1998-1999 Scriptics Corporation. # # See the file "license.terms" for information on usage and redistribution of # this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -20,7 +20,7 @@ if {"::tcltest" ni [namespace children]} { } ::tcltest::loadTestedCommands -catch [list package require -exact Tcltest [info patchlevel]] +catch [list package require -exact tcl::test [info patchlevel]] catch {namespace delete {*}[namespace children :: test_ns_*]} catch {rename foo ""} @@ -985,7 +985,7 @@ test execute-8.6 {Compile epoch bump in global level (bug [fa6bf38d07])} -setup interp create child child eval { package require tcltest 2.5 - catch [list package require -exact Tcltest [info patchlevel]] + catch [list package require -exact tcl::test [info patchlevel]] ::tcltest::loadTestedCommands if {[namespace which -command testbumpinterpepoch] eq ""} { proc testbumpinterpepoch {} { rename ::set ::dummy; rename ::dummy ::set } @@ -1018,7 +1018,7 @@ test execute-8.7 {Compile epoch bump in global level (bug [fa6bf38d07]), excepti interp create child child eval { package require tcltest 2.5 - catch [list package require -exact Tcltest [info patchlevel]] + catch [list package require -exact tcl::test [info patchlevel]] ::tcltest::loadTestedCommands if {[namespace which -command testbumpinterpepoch] eq ""} { proc testbumpinterpepoch {} { rename ::set ::dummy; rename ::dummy ::set } |