summaryrefslogtreecommitdiffstats
path: root/tests/security.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/security.test')
-rw-r--r--tests/security.test53
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
-
-
-
-
-
-
-
-
-
-
-