summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-05 14:12:48 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-05 14:12:48 (GMT)
commite9e3981faf0495befa4c2914d59af0bd994ac23c (patch)
treebd184725efaa3f52ca380c7c46cc6c2bd81c3165 /tests
parentb41a44e3942c841677cdcf7cd46be77c5c27ab08 (diff)
parent8dac135fc9c8efae2cc3113bc975ab871ff2271f (diff)
downloadtcl-e9e3981faf0495befa4c2914d59af0bd994ac23c.zip
tcl-e9e3981faf0495befa4c2914d59af0bd994ac23c.tar.gz
tcl-e9e3981faf0495befa4c2914d59af0bd994ac23c.tar.bz2
merge core-8-6-branch
Diffstat (limited to 'tests')
-rw-r--r--tests/resolver.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/resolver.test b/tests/resolver.test
index dc38ff0..9bb4c08 100644
--- a/tests/resolver.test
+++ b/tests/resolver.test
@@ -187,7 +187,7 @@ test resolver-2.1 {compiled var resolver: Bug #3383616} -setup {
# During the compilation the compiled var resolver, the resolve-specific
# var info is allocated, during the execution of the body, the variable is
# fetched and cached.
- x;
+ x
# During later calls, the cached variable is reused.
x
# When the proc is freed, the resolver-specific resolver var info is
@@ -223,14 +223,14 @@ test resolver-3.1a {
proc y {} { return yy }
namespace eval ::ns {
proc x1 {} { z }
- }
+ }
}
} -constraints testinterpresolver -body {
-
+
set r [i0 eval {namespace eval ::ctx1 {
::ns::x1
}}]
-
+
return $r
} -cleanup {
testinterpresolver down i0
@@ -251,7 +251,7 @@ test resolver-3.1b {
proc Y {} { return YY }
namespace eval ::ns {
proc x2 {} { z }
- }
+ }
}
} -constraints testinterpresolver -body {
@@ -274,7 +274,7 @@ test resolver-3.1c {
interp command resolver,
resolve literal "z" in proc "x1" in context "ctx1",
resolve literal "z" in proc "x2" in context "ctx2"
-
+
Test, whether the shared cmd literal created by the first byte-code
compilation interacts with the second one.
} -setup {
@@ -288,7 +288,7 @@ test resolver-3.1c {
namespace eval ::ns {
proc x1 {} { z }
proc x2 {} { z }
- }
+ }
}
} -constraints testinterpresolver -body {
@@ -304,7 +304,7 @@ test resolver-3.1c {
set r3 [i0 eval {namespace eval ::ctx1 {
::ns::x1
}}]
-
+
return [list $r1 $r2 $r3]
} -cleanup {
testinterpresolver down i0