mò
‚=5Dc@swdkZdk
Z
d
klZ
dklZ
dklZ
deif
d„ƒYZ	d„Z
edjo
e
ƒ
n

dS(N(
stest_support(
sTcl(
sTclErrortTclTestc
BsÅtZ
d
„Zd„Zd„Zd„Zd„Zd„Zd„Zd„Z	d	„Z
d
„Zd„Zd„Z
d
„Zd„Zd„Zd„Zd„Zd„Zd„Zd„Zd„ZRS(Nc

Cstƒ|_dS(
N(tTcltselftinterp(
R((t#/usr/lib/python2.4/test/test_tcl.pytsetUps
c
Cs3|i
}
|
id
ƒ

|i|
idƒ
dƒ
dS(Nsset a 1sset at
1(RRttcltevaltassertEqual(RR((RttestEvals
	


c
Cs#|i
}
|it|
id
ƒ
dS(Nsset a(RRRtassertRaisestTclErrorR(RR((RttestEvalExceptions
	
c
Cs#|i
}
|it|
id
ƒ
dS(Ns
this is wrong(RRRRRR(RR((RttestEvalException2s
	
c
Cs<|i
}
|
id
ddƒ
|i|
id
dƒdƒ
dS(Ntsett
aR(RRRtcallR	(RR((RttestCalls
	

c
Cs&|i
}
|it|
id
dƒ
dS(NRR(RRRRRR(RR((RttestCallException s
	
c
Cs)|i
}
|it|
id
ddƒ
dS(Ntthististwrong(RRRRRR(RR((RttestCallException2$s
	
c
Cs6|i
}
|
id
dƒ
|i|
idƒ
dƒ
dS(NRRsset a(RRRtsetvarR	R(RR((Rt
testSetVar(s
	

c
Cs6|i
}
|
id
dƒ
|i|
idƒ
dƒ
dS(Nsa(1)Rsset a(1)(RRRRR	R(RR((RttestSetVarArray-s
	

c
Cs3|i
}
|
id
ƒ

|i|
idƒ
dƒ
dS(Nsset a 1RR(RRRRR	tgetvar(RR((Rt
testGetVar2s
	


c
Cs3|i
}
|
id
ƒ

|i|
idƒ
dƒ
dS(Ns
set a(1) 1sa(1)R(RRRRR	R(RR((RttestGetVarArray7s
	


c
Cs#|i
}
|it|
id
ƒ
dS(NR(RRRRRR(RR((RttestGetVarException<s
	
c
Cs#|i
}
|it|
id
ƒ
dS(Nsa(1)(RRRRRR(RR((RttestGetVarArrayException@s
	
c
Cs\|i
}
|
id
dƒ
|i|
idƒ
dƒ
|
id
ƒ

|i|
idƒ
dƒ
dS(NRi
s
info exists aRt
0(RRRRR	Rtunsetvar(RR((RttestUnsetVarDs

	




c
Csž|i
}
|
id
dƒ
|
iddƒ
|i|
idƒ
dƒ
|i|
idƒ
dƒ
|
id
ƒ

|i|
idƒ
dƒ
|i|
idƒ
dƒ
dS(	Nsa(1)i
sa(2)isinfo exists a(1)Rsinfo exists a(2)R (RRRRR	RR!(RR((RttestUnsetVarArrayKs
	







c
Cs#|i
}
|it|
id
ƒ
dS(NR(RRRRRR!(RR((RttestUnsetVarExceptionUs
	
c
Cs¤|i
}d
}t|dƒ}d}
|i|
ƒ

|iƒ
|i	|ƒ

t
i|ƒ

|i|i
dƒ
dƒ
|i|i
dƒ
dƒ
|i|i
dƒ
d	ƒ
dS(
NstestEvalFile.tclt
ws?set a 1
        set b 2
        set c [ expr $a + $b ]
        sset aRsset bt
2sset ct
3(RRRtfilenametopentfdtscripttwritetclosetevalfiletostremoveR	R(RR+R(RR*((RttestEvalFileYs
	












c
CsR|i
}d
}yti|ƒ

Wntj
o	

}

n
X|it	|i
|ƒ
dS(Nt
doesnotexists(RRRR(R/R0t	Exceptiont
eRRR.(RR4R(R((RttestEvalFileExceptionis
	





c
Cs#|i
}
|it|
id
ƒ
dS(Nspackage require DNE(RRRRRR(RR((RttestPackageRequireExceptionrs
	
c
Csadk}
d
|
i
jo
dSn

tƒ}|it|iƒ
|iƒ
|i	d|iƒƒ
dS(NtDISPLAYs1x1+0+0(
R/tenvironR
RRRRtwinfo_geometrytloadtkR	(RR/R((Rt
testLoadTkvs
	

	



c
Cs
dk}d}
dk}|iid
ƒ
p&
|iidƒ
p
|iidƒ
o
dSn

d|ijoE
|id}
|id=|idƒ
iƒi	ƒ}|o
dSq®
n

z3tƒ}|it|iƒ
|it|iƒ
Wd|
dj	o
|
|id<n

XdS(NtwintdarwintcygwinR7s
echo $DISPLAY(R/tNonetold_displaytsystplatformt
startswithR8tpopentreadtstriptdisplayR
RRRRR9R:(RR@RARR/RG((RttestLoadTkFailure€s$
	

	
9








	





(t__name__t
__module__RR
R
RRRRRRRRRRR"R#R$R1R5R6R;RH(((RR	s*															
						
cCsti
tƒ

dS(
N(ttest_supporttrun_unittestR(((Rt	test_mainšs
t__main__(tunittestR/ttestRKtTkinterR
t_tkinterRtTestCaseRRMRI(RKRROR
RMRR/((Rt
?s	
	





‘