diff options
Diffstat (limited to 'tests/security.test')
-rw-r--r-- | tests/security.test | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tests/security.test b/tests/security.test new file mode 100644 index 0000000..9f198ba --- /dev/null +++ b/tests/security.test @@ -0,0 +1,36 @@ +# 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. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# SCCS: @(#) security.test 1.1 97/11/20 16:38:33 + + +if {[string compare test [info procs test]] == 1} then {source defs} + +# 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 sec-1.1 {tcl_endOfPreviousWord} { + catch {tcl_startOfPreviousWord x {[BUG]}} + CB +} 0 |