Tcl Source Code

Artifact 6b1d55242829f722b647946ea6e954993a1e9720:

Attachment "tcltest.test.patch" to ticket [454046ffff] added by stanton 2001-08-22 08:24:48.

---

*** tcltest.test.old	Mon May 21 17:52:13 2001
--- tcltest.test	Tue Aug 21 18:18:24 2001
***************
*** 733,740 ****
  test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} {
      catch {exec $::tcltest::tcltest load.tcl -debug 2 -loadfile load.tcl} msg
      list \
! 	    [regexp {tcltest} [join $msg [split $msg \n]]] \
! 	    [regexp {loadScript} [join $msg [split $msg \n]]]
  } {1 1}
  
  test tcltest-12.3 {tcltest::loadScript} {
--- 733,740 ----
  test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} {
      catch {exec $::tcltest::tcltest load.tcl -debug 2 -loadfile load.tcl} msg
      list \
!         [regexp {tcltest} [join [list $msg] [split $msg \n]]] \
!         [regexp {loadScript} [join [list $msg] [split $msg \n]]]
  } {1 1}
  
  test tcltest-12.3 {tcltest::loadScript} {