Tcl Source Code

Artifact 17efc26024efba67881d1577428bbee75025cf2e:

Attachment "tcltest.patch" to ticket [414031ffff] added by kennykb 2001-04-05 22:59:48.

---

Index: tests/tcltest.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/tcltest.test,v
retrieving revision 1.12
diff -c -r1.12 tcltest.test
*** tests/tcltest.test	2000/10/24 22:30:35	1.12
--- tests/tcltest.test	2001/04/05 15:55:48
***************
*** 982,988 ****
  	if {[info exists ::env(TCLTEST_OPTIONS)]} {
  	    set oldoptions $::env(TCLTEST_OPTIONS)
  	    unset ::env(TCLTEST_OPTIONS)
! c	} else {
  	    set oldoptions none
  	}
  	set ::env(TCLTEST_OPTIONS) {}
--- 982,988 ----
  	if {[info exists ::env(TCLTEST_OPTIONS)]} {
  	    set oldoptions $::env(TCLTEST_OPTIONS)
  	    unset ::env(TCLTEST_OPTIONS)
! 	} else {
  	    set oldoptions none
  	}
  	set ::env(TCLTEST_OPTIONS) {}