summaryrefslogtreecommitdiffstats
path: root/tests/namespace-old.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-10-30 14:25:59 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-10-30 14:25:59 (GMT)
commit019e49cb721639318c71429003fa55ac2fbfa78d (patch)
tree835b8d5c53bb02190a5a46427f1b9b864afac725 /tests/namespace-old.test
parent991d8133789e318faad62a760b5bb76bf6dc5b87 (diff)
parent3b0ee42270085b039b75e2e27a3a145399a1bfac (diff)
downloadtcl-019e49cb721639318c71429003fa55ac2fbfa78d.zip
tcl-019e49cb721639318c71429003fa55ac2fbfa78d.tar.gz
tcl-019e49cb721639318c71429003fa55ac2fbfa78d.tar.bz2
Merge 8.7
Diffstat (limited to 'tests/namespace-old.test')
-rw-r--r--tests/namespace-old.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index c6d4e52..760ae6e 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.test
@@ -753,13 +753,13 @@ test namespace-old-9.14 {imported commands can be removed} {
} {{} 1 {invalid command name "cmd1"}}
test namespace-old-9.15 {existing commands can't be overwritten} {
proc cmd1 {x y} {
- return [expr $x+$y]
+ return [expr {$x+$y}]
}
list [catch {namespace import test_ns_import::cmd?} msg] $msg \
[cmd1 3 5]
} {1 {can't import command "cmd1": already exists} 8}
test namespace-old-9.16 {use "-force" option to override existing commands} {
- proc cmd1 {x y} { return [expr $x+$y] }
+ proc cmd1 {x y} { return [expr {$x+$y}] }
list [cmd1 3 5] \
[namespace import -force test_ns_import::cmd?] \
[cmd1 3 5]