1# loadtnc.tcl -- 2# 3# This file is [source]d by all.tcl and all test files, to ensure, that 4# the tcltest package and the lastest tnc build is present. 5 6if {[lsearch [namespace children] ::tcltest] == -1} { 7 if {$tcl_version < 8.2} { 8 puts stderr "sourcing def.tcl" 9 source [file join [file dir [info script]] defs.tcl] 10 set auto_path [pwd] 11 } else { 12 package require tcltest 13 namespace import ::tcltest::* 14 } 15} 16 17if {[catch {package present tdom}]} { 18 package require tdom 0.7.5 19} 20 21if {[catch {package require tnc 0.3}]} { 22 load [file join [file dir [info script]] .. libtnc0.3.0.so] 23} 24 25