# 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.5 2000/04/10 17:19:04 ericm Exp $

 if {[lsearch [namespace children] ::tcltest] == -1} {

     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 sec-1.1 {tcl_endOfPreviousWord} {

     catch {tcl_startOfPreviousWord x {[BUG]}}

     CB

 } 0

 # cleanup

 ::tcltest::cleanupTests

 return