m๒ %UฒIc@swdkZdkZdklZdklZdklZdeifd„ƒYZ d„Z e djo e ƒndS(N(s test_support(sTcl(sTclErrortTclTestcBsลtZd„Zd„Zd„Zd„Zd„Zd„Zd„Zd„Z d „Z d „Z d „Z d „Z d „Zd„Zd„Zd„Zd„Zd„Zd„Zd„Zd„ZRS(NcCstƒ|_dS(N(tTcltselftinterp(R((t*/data/zmath/lib/python2.4/test/test_tcl.pytsetUp scCs3|i}|idƒ|i|idƒdƒdS(Nsset a 1sset at1(RRttcltevalt assertEqual(RR((RttestEvals  cCs#|i}|it|idƒdS(Nsset a(RRRt assertRaisestTclErrorR(RR((RttestEvalExceptions cCs#|i}|it|idƒdS(Ns this is wrong(RRRR R R(RR((RttestEvalException2s cCs<|i}|idddƒ|i|iddƒdƒdS(NtsettaR(RRRtcallR (RR((RttestCalls cCs&|i}|it|iddƒdS(NRR(RRRR R R(RR((RttestCallException s cCs)|i}|it|idddƒdS(Ntthististwrong(RRRR R R(RR((RttestCallException2$s cCs6|i}|iddƒ|i|idƒdƒdS(NRRsset a(RRRtsetvarR R(RR((Rt testSetVar(s cCs6|i}|iddƒ|i|idƒdƒdS(Nsa(1)Rsset a(1)(RRRRR R(RR((RttestSetVarArray-s cCs3|i}|idƒ|i|idƒdƒdS(Nsset a 1RR(RRRRR tgetvar(RR((Rt testGetVar2s  cCs3|i}|idƒ|i|idƒdƒdS(Ns set a(1) 1sa(1)R(RRRRR R(RR((RttestGetVarArray7s  cCs#|i}|it|idƒdS(NR(RRRR R R(RR((RttestGetVarException<s cCs#|i}|it|idƒdS(Nsa(1)(RRRR R R(RR((RttestGetVarArrayException@s cCs\|i}|iddƒ|i|idƒdƒ|idƒ|i|idƒdƒdS(NRis info exists aRt0(RRRRR Rtunsetvar(RR((Rt testUnsetVarDs   cCsž|i}|iddƒ|iddƒ|i|idƒdƒ|i|idƒdƒ|idƒ|i|idƒdƒ|i|idƒdƒdS( Nsa(1)isa(2)isinfo exists a(1)Rsinfo exists a(2)R (RRRRR RR!(RR((RttestUnsetVarArrayKs  cCs#|i}|it|idƒdS(NR(RRRR R R!(RR((RttestUnsetVarExceptionUs cCsค|i}d}t|dƒ}d}|i|ƒ|iƒ|i |ƒt i |ƒ|i |i dƒdƒ|i |i dƒdƒ|i |i dƒd ƒdS( NstestEvalFile.tcltws?set a 1 set b 2 set c [ expr $a + $b ] sset aRsset bt2sset ct3(RRRtfilenametopentfdtscripttwritetclosetevalfiletostremoveR R(RR+R(RR*((Rt testEvalFileYs     cCsR|i}d}yti|ƒWntj o }nX|it |i |ƒdS(Nt doesnotexists( RRRR(R/R0t ExceptionteR R R.(RR4R(R((RttestEvalFileExceptionis cCs#|i}|it|idƒdS(Nspackage require DNE(RRRR R R(RR((RttestPackageRequireExceptionrs cCsadk}d|ijodSntƒ}|it|iƒ|iƒ|i d|iƒƒdS(NtDISPLAYs1x1+0+0( R/tenvironRRRR R twinfo_geometrytloadtkR (RR/R((Rt testLoadTkvs   cCsdk}d}dk}|iidƒp&|iidƒp|iidƒodSnd|ijoE|id}|id=|idƒiƒi ƒ}|odSqฎnz3t ƒ}|it|iƒ|it|iƒWd|dj o||id