diff options
Diffstat (limited to 'tests/security.test')
-rw-r--r-- | tests/security.test | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/tests/security.test b/tests/security.test index 26e7ec8..4a73160 100644 --- a/tests/security.test +++ b/tests/security.test @@ -18,7 +18,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { # If this proc becomes invoked, then there is a bug proc BUG {args} { - set ::BUG 1 + set ::BUG 1 } # Check and Clear the bug flag (to do before each test) @@ -31,7 +31,7 @@ proc CB {} { } -test sec-1.1 {tcl_endOfPreviousWord} { +test security-1.1 {tcl_endOfPreviousWord} { catch {tcl_startOfPreviousWord x {[BUG]}} CB } 0 @@ -39,14 +39,3 @@ test sec-1.1 {tcl_endOfPreviousWord} { # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - |