diff options
Diffstat (limited to 'tests/security.test')
-rw-r--r-- | tests/security.test | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/tests/security.test b/tests/security.test deleted file mode 100644 index d75696a..0000000 --- a/tests/security.test +++ /dev/null @@ -1,53 +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. -# -# RCS: @(#) $Id: security.test,v 1.2 1999/04/16 00:47:34 stanton Exp $ - -if {[lsearch [namespace children] ::tcltest] == -1} { - source [file join [pwd] [file dirname [info script]] defs.tcl] -} - -# 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 - -# cleanup -::tcltest::cleanupTests -return - - - - - - - - - - - |