summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-08-18 13:31:54 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-08-18 13:31:54 (GMT)
commit8288b47f5e7647e90d8499bf5e45099b1651aa62 (patch)
tree50e5ad30d6d5ff4e1659b8a1c8a8690add83414f /tests
parent34d0a97402b92ffaea87cbe40088ac100e9c6361 (diff)
downloadtcl-8288b47f5e7647e90d8499bf5e45099b1651aa62.zip
tcl-8288b47f5e7647e90d8499bf5e45099b1651aa62.tar.gz
tcl-8288b47f5e7647e90d8499bf5e45099b1651aa62.tar.bz2
* library/safe.tcl (AliasGlob): [Bug 3004191]: Restore safe [glob] to
working condition.
Diffstat (limited to 'tests')
-rw-r--r--tests/safe.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test
index 9de3954..c22cf6e 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: safe.test,v 1.33 2010/05/27 08:32:23 nijtmans Exp $
+# RCS: @(#) $Id: safe.test,v 1.34 2010/08/18 13:31:55 dkf Exp $
package require Tcl 8.5
@@ -544,6 +544,13 @@ test safe-12.6 {glob is restricted [Bug 2906841]} -setup {
} -cleanup {
safe::interpDelete $i
} -result {}
+test safe-12.7 {glob is restricted} -setup {
+ set i [safe::interpCreate]
+} -body {
+ $i eval glob *
+} -cleanup {
+ safe::interpDelete $i
+} -match glob -result *
set ::auto_path $saveAutoPath
# cleanup