diff options
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/event.test b/tests/event.test index 9d2e5fd..44d6610 100644 --- a/tests/event.test +++ b/tests/event.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: event.test,v 1.12 2001/06/27 15:34:16 dkf Exp $ +# RCS: @(#) $Id: event.test,v 1.13 2001/07/31 19:12:07 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -170,6 +170,7 @@ test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} { set x {} update idletasks rename bgerror {} + regsub -all [file join {} non_existent] $x "non_existent" x set x } {{{a simple error} {a simple error while executing |