diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-01-02 20:34:49 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-01-02 20:34:49 (GMT) |
commit | 89c1ac99d375fbd73892aa659f06ef5e2c5ea56e (patch) | |
tree | e76ce80d68d11f1ea137bc33a42f71a1d1f32028 /tcl8.6/tests/security.test | |
parent | 01e4cd2ef2ff59418766b2259fbc99771646aba6 (diff) | |
download | blt-89c1ac99d375fbd73892aa659f06ef5e2c5ea56e.zip blt-89c1ac99d375fbd73892aa659f06ef5e2c5ea56e.tar.gz blt-89c1ac99d375fbd73892aa659f06ef5e2c5ea56e.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, 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: |