diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-17 19:50:58 (GMT) |
commit | 9b7a6c3507ea3383c60aaecb29f873c9b590ccca (patch) | |
tree | 82ce31ebd8f46803d969034f5aa3db8d7974493c /tcl8.6/tests/security.test | |
parent | 87fca7325b97005eb44dcf3e198277640af66115 (diff) | |
download | blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.zip blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.gz blt-9b7a6c3507ea3383c60aaecb29f873c9b590ccca.tar.bz2 |
rm tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/tests/security.test')
-rw-r--r-- | tcl8.6/tests/security.test | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/tcl8.6/tests/security.test b/tcl8.6/tests/security.test deleted file mode 100644 index eeabc9c..0000000 --- a/tcl8.6/tests/security.test +++ /dev/null @@ -1,45 +0,0 @@ -# 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: |