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