diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-10-03 14:53:32 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-10-03 14:53:32 (GMT) |
commit | 29b9de871c077bc29d700f3e42c7cc94df45efb7 (patch) | |
tree | 09f40aa1bd1ccf9a2e1edc9620015d2bbfef30fa /tests | |
parent | 5aa514f49a4e2d698bb62a30c0b4877193f76a6e (diff) | |
download | tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.zip tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.tar.gz tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.tar.bz2 |
(cherry-pick): Fix [2bf561854c55a], interp alias to command whose name is the empty string.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/interp.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/interp.test b/tests/interp.test index f9c1aec..6000ffd 100644 --- a/tests/interp.test +++ b/tests/interp.test @@ -606,6 +606,17 @@ test interp-14.10 {testing interp-alias: error messages} -setup { invoked from within "a 1"} +test interp-14.11 {{interp alias} {target named the empty string} {bug 2bf56185}} -setup { + set interp [interp create [info cmdcount]] + interp eval $interp { + proc {} args {return $args} + } + +} -body { + interp alias {} p1 $interp {} + p1 one two three +} -result {one two three} + # part 15: testing file sharing test interp-15.1 {testing file sharing} { catch {interp delete z} |