1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#
# init.test
#
# Tests for various TclX initialization functionality (safe interp,
# dynamic load, etc).
#---------------------------------------------------------------------------
# Copyright 1996-1999 Karl Lehenbauer and Mark Diekhans.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies. Karl Lehenbauer and
# Mark Diekhans make no representations about the suitability of this
# software for any purpose. It is provided "as is" without express or
# implied warranty.
#------------------------------------------------------------------------------
# $Id: init.test,v 1.2 2002/04/02 02:29:43 hobbs Exp $
#------------------------------------------------------------------------------
#
if {[cequal [info procs Test] {}]} {
source [file join [file dirname [info script]] testlib.tcl]
}
Test init-1.0 {safe interp with TclX} {
set si [interp create -safe]
load {} Tclx $si
interp eval $si package require Tclx
set xcmds [interp eval $si info commands keyl*]
interp delete $si
lsort $xcmds
} 0 {keyldel keylget keylkeys keylset}
# cleanup
::tcltest::cleanupTests
return
|
