m๒
ญfIc           @   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*   /mit/python/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   			