Artifact 93cdd63c4310a65440afe5249fe0ec1381448e46:

• File tests/tls.tcl — part of check-in [27770ce26d] at 2000-01-19 22:10:58 on branch tls-vendor-branch — Initial import of tls extension. (user: aborr, size: 630) [annotate] [blame] [check-ins using] [more...]

#
# Copyright (C) 1997-1999 Matt Newman <matt@novadigm.com>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/Attic/tls.tcl,v 1.1.1.1 2000/01/19 22:10:59 aborr Exp $
#
set dir [file dirname [info script]]
regsub {\.} [info tclversion] {} vshort
if {$tcl_platform(platform) == "windows"} {
    if {[info exists tcl_platform(debug)]} {
	load $dir/../win/Debug$vshort/tls.dll
    } else {
	load $dir/../win/Release$vshort/tls.dll
    }
} else {
    load [glob $dir/../unix/libtls*]
}

proc bgerror {err} {
    global errorInfo
    puts stderr "BG Error: $errorInfo"
}

source $dir/../library/tls.tcl
set tls::debug 2