diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 22:23:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 22:23:08 (GMT) |
| commit | c96b49ed88b11232f11d79f859e6b62418c5c10a (patch) | |
| tree | 3127a144602ef0cb05795cd722659052d0388891 /tests/cmdIL.test | |
| parent | 9d8f556865a0a282039621759755c0cf44664039 (diff) | |
| parent | 094f23c172acca8f32b0888cd536f01fc1daab1b (diff) | |
| download | tcl-c96b49ed88b11232f11d79f859e6b62418c5c10a.zip tcl-c96b49ed88b11232f11d79f859e6b62418c5c10a.tar.gz tcl-c96b49ed88b11232f11d79f859e6b62418c5c10a.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/cmdIL.test')
| -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 |