summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-11-16 16:19:54 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-11-16 16:19:54 (GMT)
commit2bf2abcb4f1c88fbddc3ce4d5800c438851aaf95 (patch)
treeb9d6e4c30112049fb102fc3f80bfe43375e5d21a /tests
parenta5e261f15f06a283ad8a648611f1a9eb5b8127e1 (diff)
parent10dd9595a33e80ac7ab8ae5ff11b6b6ef3059b20 (diff)
downloadtcl-2bf2abcb4f1c88fbddc3ce4d5800c438851aaf95.zip
tcl-2bf2abcb4f1c88fbddc3ce4d5800c438851aaf95.tar.gz
tcl-2bf2abcb4f1c88fbddc3ce4d5800c438851aaf95.tar.bz2
3587651 Fix [info functions] and Tcl_ListMathFuncs().
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdIL.test10
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