diff options
author | dgp <dgp@users.sourceforge.net> | 2012-11-16 16:37:07 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-11-16 16:37:07 (GMT) |
commit | 3ab4bbd194ffc866926e287445e482cffb659d8e (patch) | |
tree | 13bad493251a587002bc4ef8d2e5bf55aa2b224d /tests | |
parent | 11731e63db46dac617e84a0273750a7a6d434ea2 (diff) | |
parent | 2bf2abcb4f1c88fbddc3ce4d5800c438851aaf95 (diff) | |
download | tcl-3ab4bbd194ffc866926e287445e482cffb659d8e.zip tcl-3ab4bbd194ffc866926e287445e482cffb659d8e.tar.gz tcl-3ab4bbd194ffc866926e287445e482cffb659d8e.tar.bz2 |
merge trunk
Diffstat (limited to 'tests')
-rw-r--r-- | tests/cmdIL.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index efb0bce..721773f 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -717,6 +717,16 @@ test cmdIL-7.8 {lreverse command - shared intrep [Bug 1675044]} -setup { rename K {} } -result 1 +# This belongs in info test, but adding tests there breaks tests +# that compute source file line numbers. +test info-20.6 {Bug 3587651} -setup { + namespace eval my {namespace eval tcl {namespace eval mathfunc { + proc demo x {return 42} + }}}} -body { namespace eval my {expr {"demo" in [info functions]}}} -cleanup { + namespace delete my +} -result 1 + + # cleanup ::tcltest::cleanupTests return |