diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-01-02 21:03:49 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-01-02 21:03:49 (GMT) |
| commit | 914501b5b992e7b6c7e0a4c958712a8ba9cab41c (patch) | |
| tree | edbc059b9557d5fdb79e5a5c47889bc54708da53 /tcl8.6/tests/security.test | |
| parent | f88c190a01bc7f57e79dfaf91a3c0c48c2031549 (diff) | |
| download | blt-914501b5b992e7b6c7e0a4c958712a8ba9cab41c.zip blt-914501b5b992e7b6c7e0a4c958712a8ba9cab41c.tar.gz blt-914501b5b992e7b6c7e0a4c958712a8ba9cab41c.tar.bz2 | |
upgrade to tcl/tk 8.6.8
Diffstat (limited to 'tcl8.6/tests/security.test')
| -rw-r--r-- | tcl8.6/tests/security.test | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/tcl8.6/tests/security.test b/tcl8.6/tests/security.test new file mode 100644 index 0000000..eeabc9c --- /dev/null +++ b/tcl8.6/tests/security.test @@ -0,0 +1,45 @@ +# security.test -- +# +# Functionality covered: this file contains a collection of tests for the auto +# loading and namespaces. +# +# Sourcing this file into Tcl runs the tests and generates output for errors. +# No output means no errors were found. +# +# Copyright (c) 1997 Sun Microsystems, Inc. +# Copyright (c) 1998-1999 by Scriptics Corporation. +# All rights reserved. + +if {"::tcltest" ni [namespace children]} { + package require tcltest + namespace import -force ::tcltest::* +} + +# If this proc becomes invoked, then there is a bug + +proc BUG {args} { + set ::BUG 1 +} + +# Check and Clear the bug flag (to do before each test) +set ::BUG 0 + +proc CB {} { + set ret $::BUG + set ::BUG 0 + return $ret +} + + +test security-1.1 {tcl_endOfPreviousWord} { + catch {tcl_startOfPreviousWord x {[BUG]}} + CB +} 0 + +# cleanup +::tcltest::cleanupTests +return + +# Local Variables: +# mode: tcl +# End: |