tests/testing.tcl

   1 # Find and load the Jim tcltest wrapper
   2 if {[catch {info version}]} {
   3         # Tcl
   4         source [file dirname [info script]]/../tcltest.tcl
   5 } else {
   6         # Jim
   7         if {[exists env(TOPSRCDIR)]} {
   8                 set auto_path [list $env(TOPSRCDIR) {*}$auto_path]
   9         }
  10
  11         package require tcltest
  12 }