|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/proc/self/root/usr/lib/python2.4/test/ |
Upload File : |
m๒
ะ=Ec @ sw d k Z d k Z d k l Z d k l Z d k l Z d e i f d YZ d Z
e d j o e
n d S( N( s test_support( s Tcl( s TclErrort TclTestc B sล t Z d Z d Z d Z d Z d Z d Z d Z d Z d Z
d
Z d Z d Z
d
Z d Z d Z d Z d Z d Z d Z d Z d Z RS( Nc C s t | _ d S( N( t Tclt selft interp( R ( ( t# /usr/lib/python2.4/test/test_tcl.pyt setUp s c C s3 | i } | i d | i | i d d d S( Ns set a 1s set at 1( R R t tclt evalt assertEqual( R R ( ( R t testEval s
c C s# | i } | i t | i d d S( Ns set a( R R R t assertRaisest TclErrorR ( R R ( ( R t testEvalException s c C s# | i } | i t | i d d S( Ns
this is wrong( R R R R R R ( R R ( ( R t testEvalException2 s c C s< | i } | i d d d | i | i d d d d S( Nt sett aR ( R R R t callR ( R R ( ( R t testCall s c C s& | i } | i t | i d d d S( NR R ( R R R R R R ( R R ( ( R t testCallException s c C s) | i } | i t | i d d d d S( Nt thist ist wrong( R R R R R R ( R R ( ( R t testCallException2$ s c C s6 | i } | i d d | i | i d d d S( NR R s set a( R R R t setvarR R ( R R ( ( R t
testSetVar( s c C s6 | i } | i d d | i | i d d d S( Ns a(1)R s set a(1)( R R R R R R ( R R ( ( R t testSetVarArray- s c C s3 | i } | i d | i | i d d d S( Ns set a 1R R ( R R R R R t getvar( R R ( ( R t
testGetVar2 s
c C s3 | i } | i d | i | i d d d S( Ns
set a(1) 1s a(1)R ( R R R R R R ( R R ( ( R t testGetVarArray7 s
c C s# | i } | i t | i d d S( NR ( R R R R R R ( R R ( ( R t testGetVarException< s c C s# | i } | i t | i d d S( Ns a(1)( R R R R R R ( R R ( ( R t testGetVarArrayException@ s c C s\ | i } | i d d | i | i d d | i d | i | i d d d S( NR i s
info exists aR t 0( R R R R R R t unsetvar( R R ( ( R t testUnsetVarD s
c C s | i } | i d d | i d d | i | i d d | i | i d d | i d | i | i d d | i | i d d d S( Ns a(1)i s a(2)i s info exists a(1)R s info exists a(2)R ( R R R R R R R! ( R R ( ( R t testUnsetVarArrayK s
c C s# | i } | i t | i d d S( NR ( R R R R R R! ( R R ( ( R t testUnsetVarExceptionU s c C sค | i } d } t | d } d } | i | | i | i | t
i | | i | i
d d | i | i
d d | i | i
d d d S(
Ns testEvalFile.tclt ws? set a 1
set b 2
set c [ expr $a + $b ]
s set aR s set bt 2s set ct 3( R R R t filenamet opent fdt scriptt writet closet evalfilet ost removeR R ( R R+ R( R R* ( ( R t testEvalFileY s
c C sR | i } d } y t i | Wn t j
o } n X| i t | i
| d S( Nt
doesnotexists( R R R R( R/ R0 t Exceptiont eR R R. ( R R4 R( R ( ( R t testEvalFileExceptioni s c C s# | i } | i t | i d d S( Ns package require DNE( R R R R R R ( R R ( ( R t testPackageRequireExceptionr s c C sa d k } d | i j o d Sn t } | i t | i | i | i d | i d S( Nt DISPLAYs 1x1+0+0(
R/ t environR R R R R t winfo_geometryt loadtkR ( R R/ R ( ( R t
testLoadTkv s
c C s d k } d } d k } | i i d p& | i i d p | i i d o d Sn d | i j oE | i d } | i d =| i d i i } | o d Sqฎ n z3 t } | i t | i | i t | i Wd | d j o | | i d <n Xd S( Nt wint darwint cygwinR7 s
echo $DISPLAY( R/ t Nonet old_displayt syst platformt
startswithR8 t popent readt stript displayR R R R R R9 R: ( R R@ RA R R/ RG ( ( R t testLoadTkFailure s$ 9
( t __name__t
__module__R R
R
R R R R R R R R R R R" R# R$ R1 R5 R6 R; RH ( ( ( R R s*
c C s t i t d S( N( t test_supportt run_unittestR ( ( ( R t test_main s t __main__( t unittestR/ t testRK t TkinterR t _tkinterR t TestCaseR RM RI ( RK R RO R RM R R/ ( ( R t ? s