diff options
| author | dgp@users.sourceforge.net <dgp> | 2012-11-16 15:35:22 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2012-11-16 15:35:22 (GMT) |
| commit | ffa8760f639e824d2cb4d40aa435d13468b3f2e6 (patch) | |
| tree | 722371c376c77a67d407c22ccea5c8b8aba2d75a /tests | |
| parent | 5f3b3b19adf4a55ceef32fecc1b0329b166df913 (diff) | |
| download | tcl-ffa8760f639e824d2cb4d40aa435d13468b3f2e6.zip tcl-ffa8760f639e824d2cb4d40aa435d13468b3f2e6.tar.gz tcl-ffa8760f639e824d2cb4d40aa435d13468b3f2e6.tar.bz2 | |
3587651 fix [info functions] (Re-implementation in Tcl)
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 aed4264..b387e71 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -769,6 +769,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 |