Your IP : 216.73.216.213
�
g f�k �
@ sv d d l Z d d l Z d d l Z d d l Z d d l Z d d l m Z e j d � Z e j d � Z
d d l
m Z d d l m Z y d d l
m Z m Z Wn e k
r� e j Z Z Yn Xe e e e j j d � � � Z d a d d
� Z Gd d � d e j � Z Gd
d � d e j � Z Gd d � d e j � Z d d � Z d d � Z e d k rre � n d S)� N)�support�_tkinter�tkinter)�Tcl)�TclError)�INT_MAX�PY_SSIZE_T_MAX�.c C s� t d k r� t � } | j d d � } t j d | � } | j � \ } } } } t | � t | � t | � } } } i d d 6d d 6d d 6| } | d k r� | | | | d
f a q� | | d
| | f a n t S) N�info�
patchlevelz(\d+)\.(\d+)([ab.])(\d+)Zalpha�aZbeta�b�finalr r )�_tk_patchlevelr �call�re� fullmatch�groups�int)�tclr �m�major�minor� releaselevel�serial� r �2/opt/alt/python34/lib64/python3.4/test/test_tcl.py�get_tk_patchlevel s & r c @ s e Z d Z d d � Z d S)� TkinterTestc C s | j t t j d � d S)NT)� assertRaises� TypeErrorr Z_flatten)�selfr r r �testFlattenLen+ s zTkinterTest.testFlattenLenN)�__name__�
__module__� __qualname__r" r r r r r ) s r c @ s� e Z d Z d d � Z d d � Z d d � Z d d � Z d d
� Z d d � Z d
d � Z d d � Z
d d � Z d d � Z d d � Z
d d � Z d d � Z d d � Z d d � Z d d � Z d! d" � Z d# d$ � Z d% d& � Z d' d( � Z d) d* � Z d+ d, � Z d- d. � Z d/ d0 � Z d1 d2 � Z e j e j d3 k d4 � d5 d6 � � Z d7 d8 � Z! d9 d: � Z" d; d< � Z# d= d> � Z$ e j e% dQ k dA � dB dC � � Z& dD dE � Z' dF dG � Z( dH dI � Z) dJ dK � Z* dL dM � Z+ dN dO � Z, dP S)R�TclTestc C s% t � | _ | j j j � | _ d S)N)r �interp�tk� wantobjects)r! r r r �setUp2 s z
TclTest.setUpc C s3 | j } | j d � | j | j d � d � d S)Nzset a 1zset a�1)r' �eval� assertEqual)r! r r r r �testEval6 s
zTclTest.testEvalc C s& | j } | j | j d � d � d S)Nz set a "a\0b"�a b)r' r- r, )r! r r r r �test_eval_null_in_result; s z TclTest.test_eval_null_in_resultc C s# | j } | j t | j d � d S)Nzset a)r' r r r, )r! r r r r �testEvalException? s zTclTest.testEvalExceptionc C s# | j } | j t | j d � d S)Nz
this is wrong)r' r r r, )r! r r r r �testEvalException2C s zTclTest.testEvalException2c C s< | j } | j d d d � | j | j d d � d � d S)N�setr r+ )r' r r- )r! r r r r �testCallG s zTclTest.testCallc C s& | j } | j t | j d d � d S)Nr3 r )r' r r r )r! r r r r �testCallExceptionL s zTclTest.testCallExceptionc C s) | j } | j t | j d d d � d S)N�this�isZwrong)r' r r r )r! r r r r �testCallException2P s zTclTest.testCallException2c C s6 | j } | j d d � | j | j d � d � d S)Nr r+ zset a)r' �setvarr- r, )r! r r r r �
testSetVarT s zTclTest.testSetVarc C s6 | j } | j d d � | j | j d � d � d S)Nza(1)r+ zset a(1))r' r9 r- r, )r! r r r r �testSetVarArrayY s zTclTest.testSetVarArrayc C s3 | j } | j d � | j | j d � d � d S)Nzset a 1r r+ )r' r, r- �getvar)r! r r r r �
testGetVar^ s
zTclTest.testGetVarc C s3 | j } | j d � | j | j d � d � d S)Nz
set a(1) 1za(1)r+ )r' r, r- r< )r! r r r r �testGetVarArrayc s
zTclTest.testGetVarArrayc C s# | j } | j t | j d � d S)Nr )r' r r r< )r! r r r r �testGetVarExceptionh s zTclTest.testGetVarExceptionc C s# | j } | j t | j d � d S)Nza(1))r' r r r< )r! r r r r �testGetVarArrayExceptionl s z TclTest.testGetVarArrayExceptionc C s\ | j } | j d d � | j | j d � d � | j d � | j | j d � d � d S)Nr � z
info exists ar+ �0)r' r9 r- r, �unsetvar)r! r r r r � testUnsetVarp s
zTclTest.testUnsetVarc C s� | j } | j d d � | j d d � | j | j d � d � | j | j d � d � | j d � | j | j d � d � | j | j d � d � d S) Nza(1)rA za(2)� zinfo exists a(1)r+ zinfo exists a(2)rB )r' r9 r- r, rC )r! r r r r �testUnsetVarArrayw s
zTclTest.testUnsetVarArrayc C s# | j } | j t | j d � d S)Nr )r' r r rC )r! r r r r �testUnsetVarException� s z TclTest.testUnsetVarExceptionc C s^ d } t d k r | d 7} n t � d k sM d t � k oH d k n rZ | d& 7} n | S)'Nr rA rE � � � �? � r � i� ���l ��l � �)r rA rN rO rP )rI rJ � l i ���� l � ���� l ��� )rQ rR rS rT )rI rL r zfinal)rI rM rI )rI rL � l l���� ��� �C lC ��� )rU rV rW rX )� tcl_versionr )r! Zintegersr r r � get_integers� s
zTclTest.get_integersc C s� | j j } x� | j � D]� } | j | j d | � | � t d k rh | j | j d | � | � n | j | j d | j d d � � | � | j | j d | � | � q Wt d k r� | j t | j t d � � n | j | j d
� d
� | j t
| j � | j t
| j d d � | j t
| j d
� | j t
| j d � | j t | j d � | j t
t t f | j d � | j t t t f | j d � d S)Nz %d rI rM z %#o �o� z %#x rE i� �* Z42�10s 42g E@r Z42 u 42�)rI rM )rI rM lC )
r' r( rZ r- �getintrY �replacer r �strr �
ValueError�UnicodeEncodeError)r! r �ir r r � test_getint� s& )!
zTclTest.test_getintc C s | j j } | j | j d � d � | j | j d � d � | j | j d � d � | j t | j � | j t | j d d � | j t | j d � | j t | j d � | j t | j d � | j t t t f | j d
� | j t t t f | j d � d S) Nz 42 g E@z 42.5 g @E@z42.5r^ s 42.5r] r z42.5 u 42.5�) r' r( r- � getdoubler r r rb rc )r! r r r r �test_getdouble� s
zTclTest.test_getdoublec C s | j j } | j | j d � d � | j | j d � d � | j | j d � d � | j | j d � d � | j t | j � | j t | j d d � | j t | j d � | j t | j d � | j t | j d � | j t t t f | j d
� | j t t t f | j d � d S) N�onTr+ r] r Fs ong �?r Zon u on�) r' r( ZassertIs�
getbooleanr r r rb rc )r! r r r r �test_getboolean� s
zTclTest.test_getbooleanc
C s� | j } t t j d � �* } | j t j t j � | j d � Wd QX| j t j � | j | j d � d � | j | j d � d � | j | j d � d � d S) N�wzKset a 1
set b 2
set c [ expr $a + $b ]
zset ar+ zset b�2zset c�3)
r' �openr �TESTFN�
addCleanup�unlink�write�evalfiler- r, )r! r �fr r r � testEvalFile� s
zTclTest.testEvalFilec
C s� | j } t t j d � �* } | j t j t j � | j d � Wd QX| j t j � | j | j d � d � | j | j d � d � d S)Nrk z>
set a "a b"
set b "a\0b"
zset ar/ zset b)
r' rn r ro rp rq rr rs r- r, )r! r rt r r r � test_evalfile_null_in_result� s
z$TclTest.test_evalfile_null_in_resultc C sb | j } d } y t j | � Wn% t k
rG } z WYd d } ~ Xn X| j t | j | � d S)NZ
doesnotexists)r' �os�remove� Exceptionr r rs )r! r �filename�er r r �testEvalFileException� s z TclTest.testEvalFileExceptionc C s# | j } | j t | j d � d S)Nzpackage require DNE)r' r r r, )r! r r r r �testPackageRequireException� s z#TclTest.testPackageRequireException�win32zRequires Windowsc C s� t j j t j � } | d d k r7 t j d � � n d t j d | d | d d � f } t j j | � s� t j d � � n t j
� �, } | j d � t j
| d
d g � } Wd QX| j d | � d S)
NrA �:z$Absolute path should have drive partz \\%s\%s$\%sZ COMPUTERNAMEr � zCannot connect to UNC PathZ TCL_LIBRARYz-cz import tkinter; print(tkinter)s tkinter)rw �path�abspath�sys�
executable�unittestZSkipTest�environ�existsr ZEnvironmentVarGuardZunset�
subprocessZ check_output�assertIn)r! �fullnameZunc_name�env�stdoutr r r �testLoadWithUNC� s
zTclTest.testLoadWithUNCc s� � j � � j d d d � � j d d d � � � f d d � } � j t � j � � j t � j d d � � j t � j d
� � j t � j d � | d d
� | d d � | d d � | d d � | d d � | d d
� | d d
� | d d � | d d � | d d � | d d � | d d � | d! d � | d" d# � | d$ d# � | d% d& � | d' d( � | d) d( � | d* d+ � t d1 k r�| d. t d2 � � n d S)3Nr3 r r� r
rL c s3 � j | � } � j | | � � j | t � d S)N)�
exprstringr- �assertIsInstancera )�expr�expected�result)r! r r r �check s z&TclTest.test_exprstring.<locals>.checkz8.2z+6s 8.2 + 6�spamr\ rB z8.2 + 6z14.2z3.1 + $az6.1z 2 + "$a.$b"z5.6z4*[llength "6 2"]�8z{word one} < "word $a"z4*2 < 7z hypot($a, 4)z5.0z5 / 4r+ z5 / 4.0z1.25z$5 / ( [string length "abcd"] + 0.0 )z20.0/5.0z4.0z "0x03" > "2"u [string length "a½€"]rm z [string length "a\xbd\u20ac"]z"abc"�abcu "a½€"u a½€z
"a\xbd\u20ac"z"a\0b"r/ rI rM z2**64rE �@ )rI rM l )r' r r r r� r rY ra )r! r� r )r! r r �test_exprstring� s:
zTclTest.test_exprstringc s� � j � � j d d d � � j d d d � � � f d d � } � j t � j � � j t � j d d � � j t � j d
� � j t � j d � | d d
� | d d � | d d � | d d � | d d � | d d
� | d d
� | d d � | d d � | d d � | d d � | d d � | d! d � | d" d# � | d$ d# � � j t � j d% � t d+ k r�| d( t d, � � n d S)-Nr3 r r� r
rL c s3 � j | � } � j | | � � j | t � d S)N)�
exprdoubler- r� �float)r� r� r� )r! r r r r� & s z&TclTest.test_exprdouble.<locals>.checkz8.2z+6s 8.2 + 6r� r\ g z8.2 + 6gffffff,@z3.1 + $agffffff@z 2 + "$a.$b"gffffff@z4*[llength "6 2"]g @z{word one} < "word $a"z4*2 < 7z hypot($a, 4)g @z5 / 4g �?z5 / 4.0g �?z$5 / ( [string length "abcd"] + 0.0 )z20.0/5.0g @z "0x03" > "2"u [string length "a½€"]g @z [string length "a\xbd\u20ac"]z"abc"rI rM z2**64rE r� )rI rM l )r' r r r r� r rY r� )r! r� r )r! r r �test_exprdouble" s4
zTclTest.test_exprdoublec s� � j � � j d d d � � j d d d � � � f d d � } � j t � j � � j t � j d d � � j t � j d
� � j t � j d � | d d
� | d d � | d d � | d d � | d d � | d d
� | d d
� | d d � | d d � | d d � | d d � | d d � | d d � | d d � | d d � � j t � j d! � t d# k r�� j t � j d" � n d S)$Nr3 r r� r
rL c s3 � j | � } � j | | � � j | t � d S)N)�exprlongr- r� r )r� r� r� )r! r r r r� F s z$TclTest.test_exprlong.<locals>.checkz8.2z+6s 8.2 + 6r� r\ r z8.2 + 6� z3.1 + $az 2 + "$a.$b"rM z4*[llength "6 2"]rI z{word one} < "word $a"z4*2 < 7z hypot($a, 4)z5 / 4rA z5 / 4.0z$5 / ( [string length "abcd"] + 0.0 )z20.0/5.0rJ z "0x03" > "2"u [string length "a½€"]z [string length "a\xbd\u20ac"]z"abc"z2**64)rI rM )r' r r r r� r rY )r! r� r )r! r r �
test_exprlongB s4
zTclTest.test_exprlongc s � j � � j d d d � � j d d d � � � f d d � } � j t � j � � j t � j d d � � j t � j d
� � j t � j d � | d d
� x= d+ D]5 } | | d
� | d | d
� | d | d
� q� Wx= d, D]5 } | | d � | d | d � | d | d � q� W| d d � | d d � | d d � | d d � | d d
� | d d
� | d d � | d d � | d! d � | d" d � | d# d � | d$ d � | d% d � | d& d � � j t � j d' � t d- k r| d* d � n d S).Nr3 r r� r
rL c sC � j | � } � j | | � � j | t � � j | t � d S)N)� exprbooleanr- r� r ZassertNotIsInstance�bool)r� r� r� )r! r r r r� f s z'TclTest.test_exprboolean.<locals>.checkz8.2z+6s 8.2 + 6r� r\ FrB �false�no�offz"%s"z{%s}r+ �true�yesrh Tz8.2 + 6z3.1 + $az 2 + "$a.$b"z4*[llength "6 2"]z{word one} < "word $a"z4*2 < 7z hypot($a, 4)z5 / 4z5 / 4.0z$5 / ( [string length "abcd"] + 0.0 )z20.0/5.0z "0x03" > "2"u [string length "a½€"]z [string length "a\xbd\u20ac"]z"abc"rI rM z2**64)rB r� znor� )r+ ztruezyeszon)rI rM )r' r r r r� r rY )r! r� �valuer )r! r r �test_exprbooleanb sD
zTclTest.test_exprbooleanrI rM zrequires Tcl version >= 8.5c s� � j � � � f d d � } | d d � | d d � | d d � | d d � | d d � | d
d � | d d � | d d � d S)
Nc sw � j d | � } � j � rA � j | | � � j | t � n2 � j | | t t | � � f � � j | t � d S)Nr� )r r) r- r� r r� ra )r� r� r� )r! r r r r� � s "z$TclTest.test_booleans.<locals>.checkr� Tr� rh r� Fr� r� z1 < 2z1 > 2)r' )r! r� r )r! r r �
test_booleans� s
zTclTest.test_booleansc C s� | j } x~ | j � D]p } | j d t | � � } | j r` | j | | � | j | t � q | j | t | � � | j | t � q Wt d k r� | j t
| j d t d � � n d S)Nr� rI rM rE i� )rI rM lC ) r' rZ r ra r) r- r� r rY r r )r! r rd r� r r r �test_expr_bignum� s zTclTest.test_expr_bignumc s � f d d � } � j | d � � j r0 d n d � � j | d � � j rU d n d � � j | d � d � � j | d � d � � j | d � d � � j | d
� d
� � j | d � d � � j | d � � j r� d n d � � j | d
� � j r
d
n d � � j | d � � j r2d n d � x? � j � D]1 } � j | | � � j rj| n t | � � qFWt d k r�� j | d � t d � � n x~ d d d! d" t j j t j j t j j t j j f D]D } � j r� j | | � | � q�� j t | | � � | � q�W� j r�| t d � � } � j
| | � � j | t d � � t d � � � j | t d � � t d � � nR � j t | t d � � � t d � � � j t | t d � � � t d � � � j | d$ � � j r d& n d � d S)'Nc s � j j d d | � S)Nr3 �_)r' r )r� )r! r r � passValue� s z.TclTest.test_passing_values.<locals>.passValueTr+ FrB �stringu string€�str ingu str ing½u
str ing€s str ings str��ingu
strÀings str�ingu str½ingrI rM rE i� g g �?rA r� �nan�infrl �333333 @z1 2 3.4)rI rM lC lC g �gUUUUUU�?�r� )rA rl r� �r� )rA rl r� ) r- r) rZ ra rY r� �
float_info�min�maxr� ZassertNotEqual)r! r� rd rt r )r! r �test_passing_values� sB %%/ "'(*zTclTest.test_passing_valuesc sF d � � f d d � } � j j d | � � j � j j j d � d d � j � � f d d �} � f d d � } | d d
� | d d � | d
� | d � | d � | d � | d d
� | d d � | d d � | d d � | d � | d � | d � | d d � | d d � | d d � x' � j � D] } | | t | � � q?Wt d+ k r~| d, t d- � � n x! d/ D] } | | t | � � q�WxG d0 t
j j t
j j
t
j j t
j j
f D] } | | d | �q�W| t d& � d | �| t d& � d | �| f d � | d$ d1 d2 d) f f d* � d S)3Nc s
| � | S)Nr )�arg)r� r r �testfunc� s z+TclTest.test_user_command.<locals>.testfuncr� �eqc sn | d k r | } n d � � j j d | � } � j � t � | � | � � j | t � | | | � d S)Nr� )r' r r� ra )r� r� r� �r)r� r! r r r� � s
z(TclTest.test_user_command.<locals>.checkc s* � j t | � | d t | � d �d S)NZdeltag�����|�=)ZassertAlmostEqualr� �abs)Zactualr� )r! r r �float_eq� s z+TclTest.test_user_command.<locals>.float_eqTr+ FrB r� u string½u string€r\ s strings string€u stringâ¬s string�� r� u str ing½u
str ing€s str ings str��ingu
strÀings str��ing€u strÀingâ¬rI rM rE i� � � �?rA g @r� r� rJ z5 6z1 2 {3 4} {5 6} {})rI rM lC lC � �)r� r� r� gUUUUUU�?)rE )r� rJ )r' �
createcommandrp r( �
deletecommandr- rZ ra rY �reprr� r� r� r� r� )r! r� r� r� rd rt r )r� r! r �test_user_command� sF !
zTclTest.test_user_commandc C sl | j j j } | j j j } | j t | � | j t | d d � | j t | d � d& d f f d( d* d, d. d0 d2 d4 d6 d8 d; d= d@ dB dE f f f | d d d dF � | j r� dH n dI f g } t dJ k r"| j s� t � dK k r� dL } n dN } | | d! d" d d d dO � | f g 7} n x0 | D]( \ } } | j | | � | d# | �q)W| j t
| d$ � d S)PNr r
rE rl r\ �{}�""�
a
b
c
�c�
a
b
c
� a €� €� a €� a��b c��dr/ �c d�a {b c}�b c�a b\ c�a 2�a 3.4�3.4�333333 @�listrA r+ rI rM �12� â¬� � €�dict�create�msg�{�rl )rl r� �r\ )r� r� �r\ )r� r� �r r
r� )r� r� �r r
r� )r� r� �r r� )r� r� �r r� )r� r� �za br� )r� r� �r r� )r� r� �r r� )r� r� �r r� �r r� )r� r� �r rl )r� r� �r rE �r rE )r� r� �r r� )r� r� �r r� �r r� )r� r� )r� �r� )rA rl r� )r+ rl r� )rI rM )rI rM rM )r� r� r� r� �r� )r� r� r� r� )r� ) r' r( � splitlistr r r r) rY r r- r )r! r� r � testcasesr� r� �resr r r �test_splitlist sF zTclTest.test_splitlistc C sb | j j j } | j j j } | j t | � | j t | d d � | j t | d � d) d* d+ d, d- d/ d1 d3 d5 d6 d8 d9 d< d? dC dG dI dL dN dQ dV f f f | d d d dW � | j r� dY n dZ f g } t d[ k r+| j s� t � d\ k r� d] } n d_ } | | d& d' d$ d
d% d` � | f g 7} n x0 | D]( \ } } | j | | � | d( | �q2Wd S)aNr r
rE rl r\ �{}�""r� �
a
b
c
r� �
a
b
c
� a €� €� a €� a��br/ � a��b c��dr� �
{a��b c��d�{a b c d�a {b c}�a b\ c� b c�b c�a 2�a 3.4�3.4�333333 @r� rA r+ rI rM r� � â¬r� � €r� r� r� )rl rl )r\ r\ )r� r\ )r� r\ )r� r� �r r
r� )r� r �r r
r� )r� r
�r r� )r� r �r r� )r� r )r� �a b�r zc d)r� r )r r �r
r� �r r )r r �r
r� �r r )r r �r r �r
r� �r r )r r �r r �r
r� �r r )r r �r rl )r r �r rE �r rE )r r �r r )r r �r r �r r )r r! �rE r �r r" �rE r �r r$ )r# r% )r �r )rA rl r& )r+ rl r )rI rM )rI rM rM )z12r� r
r �r )r� r� r r' )r )
r' r( �splitr r r r) rY r r- )r! r( r r� r� r� r� r r r �
test_split3 sN zTclTest.test_splitc C s t j } | j j } d } | j | | | d � i d d 6d d 6d d 6� | j | | | � i d d 6d d
6d d 6� d } | j | | | d � i d d 6d d 6d d 6� | j | | | � i d d 6d d
6d d 6� | j t | | d � | j t | | d � | j d d d d d d f � } | j | | | � i | j rPd n d d 6d d
6d d 6� t d k r| j d d d d d d d f � } | j s�t
� d k r�i d d 6d d
6d d 6} n i d! d 6d d
6d d 6} | j | | | � | � n d S)"Nz#-a {1 2 3} -something foo status {}Fz1 2 3�-a�foo�
-somethingr\ �statusr Z somethingrA rE r� �{}z-a b -c r
�-cr� rI rM r� r� �rA rE r� )r* r0 r, r+ r- r. )rA rE r� )rA rE r� )r* r
r/ )rA rE r� )rA rE r� )rI rM )rA rE r� )rI rM rM )rA rE r� ) r Z
_splitdictr' r( r- r � RuntimeErrorr r) rY r )r! Z splitdictr r� r� r r r �test_splitdicta s4 zTclTest.test_splitdictN)rI rM )-r# r$ r% r* r. r0 r1 r2 r4 r5 r8 r: r; r= r> r? r@ rD rF rG rZ re rg rj ru rv r| r} r� �
skipUnlessr� �platformr� r� r� r� r� rY r� r� r� r� r� r) r2 r r r r r& 0 sJ
' # )$
( 5 * .r& c @ s� e Z d Z d d � Z e j e j e e k d � e j
d e d d d d d � d
d � � � � Z e j e j e e k d � e j
d e d d d d d � d
d � � � � Z d S)�
BigmemTclTestc C s t � | _ d S)N)r r' )r! r r r r* � s zBigmemTclTest.setUpzneeds UINT_MAX < SIZE_MAX�sizerA ZmemuserM Zdry_runFc C s- d | } | j t | j j d d | � d S)N� r3 r� )r �
OverflowErrorr' r )r! r6 r� r r r �test_huge_string_call� s
z#BigmemTclTest.test_huge_string_call� c C s d d | } | j t | j j j | � | j t | j j j | � | j t | j j j | � | j t | j j | � | j t | j j | � | j t | j j | � | j t | j j
| � | j t | j j | d d � | j t | j j d | d � | j t | j j | � | j t | j j d | � | j t | j j
| � | j t | j j
| � | j t | j j | � | j t | j j | � | j t | j j | � | j t | j j | � | j t | j j | t � | j t | j j | � d S)Nr+ r7 �xr )r r8 r' r( r_ rf ri r, rs �recordZ adderrorinfor9 rC r� r� r� r� r( r� r� r� )r! r6 r� r r r �test_huge_string_builtins� s( z'BigmemTclTest.test_huge_string_builtinsN)
r# r$ r% r* r Z cpython_onlyr� r3 r r Z
bigmemtestr9 r= r r r r r5 � s 4r5 c C s2 t j r. t � } t d | j d d � � n d S)Nz patchlevel =r
r )r �verboser �printr )r r r r � setUpModule� s r@ c C s t j t t t � d S)N)r Z run_unittestr& r r5 r r r r � test_main� s rA �__main__)!r� r r� r� rw Ztestr �
import_moduler Zimport_fresh_moduler r r Z _testcapir r � ImportError�maxsize�tuple�mapr Z TCL_VERSIONr( rY r r ZTestCaser r& r5 r@ rA r# r r r r �<module> s2
! � � W&