Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
lib
/
python2.4
/
test
/
Upload File :
New :
File
Dir
//usr/lib/python2.4/test/test_tcl.pyc
m๒ =5Dc @ 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