Sindbad~EG File Manager

Current Path : /usr/local/lib/python3.11/test/__pycache__/
Upload File :
Current File : //usr/local/lib/python3.11/test/__pycache__/test_tcl.cpython-311.pyc

�

SԚgm����ddlZddlZddlZddlZddlZddlZddlZddlmZddl	m
Z
ddl	mZe
jd��Z
ddlZddlmZddl
mZ	ddlmZmZn#e$rejxZZYnwxYweeee
j�d	������ZGd
�dej��ZGd�d
ej��ZGd�dej��Zd�Z e!dkrej"��dSdS)�N)�support)�
import_helper)�	os_helper�_tkinter)�Tcl)�TclError)�INT_MAX�PY_SSIZE_T_MAX�.c��eZdZd�ZdS)�TkinterTestc�8�|�ttjd��|�ttji��|�ttjd��|�ttjdh��dS)NT�string�set)�assertRaises�	TypeErrorr�_flatten��selfs �*/usr/local/lib/python3.11/test/test_tcl.py�testFlattenLenzTkinterTest.testFlattenLensx�����)�X�%6��=�=�=����)�X�%6��;�;�;�	
���)�X�%6��A�A�A����)�X�%6���@�@�@�@�@�N)�__name__�
__module__�__qualname__r�rrr
r
s(������A�A�A�A�Arr
c�X�eZdZd�Zd�Zd�Zd�Zd�Zd�Zd�Z	d�Z
d	�Zd
�Zd�Z
d�Zd
�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zd�Zeje j!dkd��d���Z"d�Z#d �Z$d!�Z%d"�Z&d#�Z'd$�Z(d%�Z)d&�Z*d'�Z+d(�Z,d)�Z-e.j/d*���Z0d+S),�TclTestc�r�t��|_|jj���|_dS�N)r�interp�tk�wantobjectsrs r�setUpz
TclTest.setUp*s+���e�e����;�>�5�5�7�7����rc��|j}|�d��|�|�d��d��dS)N�set a 1�set a�1)r!�eval�assertEqual�r�tcls  r�testEvalzTclTest.testEval.sC���k���������������'�*�*�3�/�/�/�/�/rc�f�|j}|�|�d��d��dS)Nzset a "a\0b"�ab)r!r*r)r+s  r�test_eval_null_in_resultz TclTest.test_eval_null_in_result3s1���k��������/�2�2�H�=�=�=�=�=rc�f�|j}|�|�d��d��dS)Nzset a "<\ud83d\udcbb>"�<💻>)r!�assertInr)r+s  r�test_eval_surrogates_in_resultz&TclTest.test_eval_surrogates_in_result7s0���k���
�
�c�h�h�8�9�9�>�J�J�J�J�Jrc�V�|j}|�t|jd��dS)Nr'�r!rrr)r+s  r�testEvalExceptionzTclTest.testEvalException;s)���k�����(�3�8�G�4�4�4�4�4rc�V�|j}|�t|jd��dS)Nz
this is wrongr6r+s  r�testEvalException2zTclTest.testEvalException2?s)���k�����(�3�8�O�<�<�<�<�<rc��|j}|�ddd��|�|�dd��d��dS)Nr�ar()r!�callr*r+s  r�testCallzTclTest.testCallCsI���k������s�3����������%��,�,�S�1�1�1�1�1rc�X�|j}|�t|jdd��dS)Nrr;�r!rrr<r+s  r�testCallExceptionzTclTest.testCallExceptionHs+���k�����(�3�8�E�#�6�6�6�6�6rc�Z�|j}|�t|jddd��dS)N�this�is�wrongr?r+s  r�testCallException2zTclTest.testCallException2Ls-���k�����(�3�8�F�4��@�@�@�@�@rc��|j}|�dd��|�|�d��d��dS)Nr;r(r'�r!�setvarr*r)r+s  r�
testSetVarzTclTest.testSetVarPsE���k���
�
�3�s����������'�*�*�3�/�/�/�/�/rc��|j}|�dd��|�|�d��d��dS)N�a(1)r(zset a(1)rGr+s  r�testSetVarArrayzTclTest.testSetVarArrayUsE���k���
�
�6�#����������*�-�-�c�2�2�2�2�2rc��|j}|�d��|�|�d��d��dS)Nr&r;r(�r!r)r*�getvarr+s  r�
testGetVarzTclTest.testGetVarZsA���k���������������C����-�-�-�-�-rc��|j}|�d��|�|�d��d��dS)Nz
set a(1) 1rKr(rNr+s  r�testGetVarArrayzTclTest.testGetVarArray_sC���k���������������F�+�+�C�0�0�0�0�0rc�V�|j}|�t|jd��dS�Nr;�r!rrrOr+s  r�testGetVarExceptionzTclTest.testGetVarExceptionds)���k�����(�3�:�c�2�2�2�2�2rc�V�|j}|�t|jd��dS)NrKrUr+s  r�testGetVarArrayExceptionz TclTest.testGetVarArrayExceptionhs)���k�����(�3�:�f�5�5�5�5�5rc��|j}|�dd��|�|�d��d��|�d��|�|�d��d��dS)Nr;�z
info exists ar(�0�r!rHr*r)�unsetvarr+s  r�testUnsetVarzTclTest.testUnsetVarlsy���k���
�
�3�q����������/�2�2�3�7�7�7����S����������/�2�2�3�7�7�7�7�7rc���|j}|�dd��|�dd��|�|�d��d��|�|�d��d��|�d��|�|�d��d��|�|�d��d��dS)	NrKrZza(2)�zinfo exists a(1)r(zinfo exists a(2)r[r\r+s  r�testUnsetVarArrayzTclTest.testUnsetVarArrayss����k���
�
�6�!�����
�
�6�!����������"4�5�5�c�:�:�:�������"4�5�5�c�:�:�:����V����������"4�5�5�c�:�:�:�������"4�5�5�c�:�:�:�:�:rc�V�|j}|�t|jd��dSrT)r!rrr]r+s  r�testUnsetVarExceptionzTclTest.testUnsetVarException}s)���k�����(�3�<��4�4�4�4�4rc�.�ddddddddd	d
ddd
zdd
zf
S)NrrZ���i���i�ll����l����l����ll����r`i�rrs r�get_integerszTclTest.get_integers�s4���1�b����������4��!�T�'��#�	#rc	�b�|jj}|���D]�}|�|�d|z��|��|�|�d|z��|��|�|�d|z�dd����tdkr|ntd|z����|�|�d|z��|����|�|�d��d��|�t|j��|�t|jd	d
��|�t|jd��|�t|jd��|�t|jd
��|�tttf|jd��|�tttf|jd��dS)Nz %d z %#o �o�)�	rz%oz %#x �*�42�10s42�E@r;z42u42�)
r!r"rfr*�getint�replace�tcl_version�intrrr�
ValueError�UnicodeEncodeError)rr,�is   r�test_getintzTclTest.test_getint�s����k�n���"�"�$�$�	9�	9�A����S�Z�Z���
�3�3�Q�7�7�7����S�Z�Z��!��4�4�a�8�8�8�
���S�Z�Z��1��(=�(=�c�2�(F�(F�G�G�"-��"6�"6�Q�Q�C��q��M�M�
K�
K�
K����S�Z�Z��!��4�4�a�8�8�8�8�������B����,�,�,����)�S�Z�0�0�0����)�S�Z��t�<�<�<����)�S�Z��7�7�7����)�S�Z��6�6�6����(�C�J��4�4�4����9�j�(�;��*�f�	.�	.�	.����-�z�8�D��*�j�	2�	2�	2�	2�	2rc�&�|jj}|�|�d��d��|�|�d��d��|�|�d��d��|�|�d��d��|�t
|j��|�t
|jdd��|�t
|jd��|�t|jd	��|�t
ttf|jd
��|�tttf|jd��dS)Nz 42 rnz 42.5 g@E@rkz42.5rms42.5r;z42.5u42.5�)	r!r"r*�	getdoublerrrrsrtr+s  r�test_getdoublezTclTest.test_getdouble�sV���k�n��������v�.�.��5�5�5�������x�0�0�$�7�7�7�������t�,�,�d�3�3�3�������r�*�*�D�1�1�1����)�S�]�3�3�3����)�S�]�F�D�A�A�A����)�S�]�G�<�<�<����(�C�M�3�7�7�7����9�j�(�;��-��	3�	3�	3����-�z�8�D��-��	7�	7�	7�	7�	7rc�h�|jj}|�|�d��d��|�|�d��d��|�|�d��d��|�|�d��d��|�t
|j��|�t
|jdd��|�t
|jd��|�t
|jd��|�t|jd	��|�t
ttf|jd
��|�tttf|jd��dS)N�onTr(rkrFson��?r;zonuon�)	r!r"�assertIs�
getbooleanrrrrsrtr+s  r�test_getbooleanzTclTest.test_getboolean�sh���k�n���
�
�c�n�n�T�*�*�D�1�1�1��
�
�c�n�n�S�)�)�4�0�0�0��
�
�c�n�n�R�(�(�$�/�/�/��
�
�c�n�n�Q�'�'��/�/�/����)�S�^�4�4�4����)�S�^�T�3�?�?�?����)�S�^�U�;�;�;����)�S�^�S�9�9�9����(�C�N�C�8�8�8����9�j�(�;��.�&�	2�	2�	2����-�z�8�D��.�*�	6�	6�	6�	6�	6rc��|j}tj}|�tj|��t|d��5}|�d��ddd��n#1swxYwY|�|��|�|�	d��d��|�|�	d��d��|�|�	d��d��dS)	N�wzKset a 1
            set b 2
            set c [ expr $a + $b ]
            r'r(�set b�2zset c�3�
r!r�TESTFN_ASCII�
addCleanup�unlink�open�write�evalfiler*r)�rr,�filename�fs    r�testEvalFilezTclTest.testEvalFile�s%���k���)�����	�(�(�3�3�3�
�(�C�
 �
 �	�A�
�G�G��
�
�
�	�	�	�	�	�	�	�	�	�	�	����	�	�	�	�
	���X����������'�*�*�3�/�/�/�������'�*�*�3�/�/�/�������'�*�*�3�/�/�/�/�/��A&�&A*�-A*c��|j}tj}|�tj|��t|d��5}|�d��ddd��n#1swxYwY|�|��|�|�	d��d��|�|�	d��d��dS)Nr�z>
            set a "ab"
            set b "a\0b"
            r'r/r�r�r�s    r�test_evalfile_null_in_resultz$TclTest.test_evalfile_null_in_result�s���k���)�����	�(�(�3�3�3�
�(�C�
 �
 �	�A�
�G�G��
�
�
�	�	�	�	�	�	�	�	�	�	�	����	�	�	�	�
	���X����������'�*�*�H�5�5�5�������'�*�*�H�5�5�5�5�5r�c�H�|j}|�dd��}|�|jdd|��|�ddd��tj}|�tj|��t
|d��5}|�d��ddd��n#1swxYwY|�|��|�	|�
d��d��|�	|�
d��d��dS)	N�encoding�systemzutf-8�wbsM
            set a "<��>"
            set b "<\ud83d\udcbb>"
            r'r2r�)r!r<r�rr�r�r�r�r�r*r))rr,r�r�r�s     r�"test_evalfile_surrogates_in_resultz*TclTest.test_evalfile_surrogates_in_result�sF���k���8�8�J��1�1�������*�h��A�A�A�����X�w�/�/�/��)�����	�(�(�3�3�3�
�(�D�
!�
!�	�Q�
�G�G��
�
�
�	�	�	�	�	�	�	�	�	�	�	����	�	�	�	�
	���X����������'�*�*�N�;�;�;�������'�*�*�N�;�;�;�;�;s�B0�0B4�7B4c��|j}d}	tj|��n#t$r
}Yd}~nd}~wwxYw|�t
|j|��dS)N�
doesnotexists)r!�os�remove�	Exceptionrrr�)rr,r��es    r�testEvalFileExceptionzTclTest.testEvalFileException�sp���k��"��	��I�h�������	�	�	��D�D�D�D�����	�������(�3�<��9�9�9�9�9s� �
4�4c�V�|j}|�t|jd��dS)Nzpackage require DNEr6r+s  r�testPackageRequireExceptionz#TclTest.testPackageRequireException�s*���k�����(�3�8�,A�B�B�B�B�Br�win32zRequires Windowsc�*�tj�tj��}|ddkrtjd���dtjd�d|d�d|d	d���}tj�|��stjd
���tj
��5}|�d��tj
|dd
g��}ddd��n#1swxYwY|�d|��dS)NrZ�:z$Absolute path should have drive partz\\�COMPUTERNAME�\rz$\�zCannot connect to UNC Path�TCL_LIBRARY�-czimport tkinter; print(tkinter)stkinter)r��path�abspath�sys�
executable�unittest�SkipTest�environ�existsr�EnvironmentVarGuard�unset�
subprocess�check_outputr3)r�fullname�unc_name�env�stdouts     r�testLoadWithUNCzTclTest.testLoadWithUNC�sW���7�?�?�3�>�2�2���A�;�#����#�$J�K�K�K��%'�Z��%?�%?�%?�$,�Q�K�K�K�$,�Q�R�R�L�L�2���w�~�~�h�'�'�	B��#�$@�A�A�A�
�
*�
,�
,�	H���I�I�m�$�$�$��,��t�%E�F�H�H�F�	H�	H�	H�	H�	H�	H�	H�	H�	H�	H�	H����	H�	H�	H�	H�
	
�
�
�j�&�)�)�)�)�)s�9-C2�2C6�9C6c�����j���ddd����ddd����fd�}��t�j����t�jdd����t�jd	����t
�jd
��|dd��|d
d��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|d d��|d!d"��|d#d"��|d$d%��|d&d'��|d(d'��|d)d*��|d+t
d,����dS)-Nrr;r��b�c�����|��}��||����|t��dSr )�
exprstringr*�assertIsInstance�str��expr�expected�resultrr,s   ��r�checkz&TclTest.test_exprstring.<locals>.checksF����^�^�D�)�)�F����V�X�.�.�.��!�!�&�#�.�.�.�.�.r�8.2�+6�8.2 + 6�spamrir[�8.2 + 6z14.2�3.1 + $az6.1�2 + "$a.$b"z5.6�4*[llength "6 2"]�8�{word one} < "word $a"�4*2 < 7�hypot($a, 4)z5.0�5 / 4r(�5 / 4.0z1.25�$5 / ( [string length "abcd"] + 0.0 )�20.0/5.0z4.0�"0x03" > "2"�[string length "a½€"]r��[string length "a\xbd\u20ac"]�"abc"�abcu"a½€"ua½€z
"a\xbd\u20ac"z"a\0b"r/�2**64�)r!r<rrr�rr��rr�r,s` @r�test_exprstringzTclTest.test_exprstring
s6�����k�������Q���������Q����	/�	/�	/�	/�	/�	/�
	
���)�S�^�4�4�4����)�S�^�U�D�A�A�A����)�S�^�Z�@�@�@����(�C�N�F�;�;�;�
��b�#����
��i�� � � �
��j�%� � � �
��m�U�#�#�#�
��!�3�'�'�'�
��&��,�,�,�
��i�����
��n�e�$�$�$�
��g�s����
��i�� � � �
��4�f�=�=�=�
��j�%� � � �
��n�c�"�"�"�
��-�s�3�3�3�
��.��4�4�4�
��g�u����
��o�}�-�-�-�
���
�.�.�.�
��i��"�"�"�
��g�s�5�z�z�"�"�"�"�"rc�d����j���ddd����ddd����fd�}��t�j����t�jdd����t�jd	����t
�jd
��|dd��|d
d��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|d d��|d!d"��|d#d"����t
�jd$��|d%t
d&����dS)'Nrr;r�r�r�c�����|��}��||����|t��dSr )�
exprdoubler*r��floatr�s   ��rr�z&TclTest.test_exprdouble.<locals>.check0sF����^�^�D�)�)�F����V�X�.�.�.��!�!�&�%�0�0�0�0�0rr�r�r�r�ri�r�gffffff,@r�gffffff@r�gffffff@r�g @r�r�r�g@r�r|r�g�?r�r�g@r�r�g@r�r�r�r�)r!r<rrr�rr�r�s` @r�test_exprdoublezTclTest.test_exprdouble,s�����k�������Q���������Q����	1�	1�	1�	1�	1�	1�
	
���)�S�^�4�4�4����)�S�^�U�D�A�A�A����)�S�^�Z�@�@�@����(�C�N�F�;�;�;�
��b�#����
��i�����
��j�#����
��m�S�!�!�!�
��!�3�'�'�'�
��&��,�,�,�
��i�����
��n�c�"�"�"�
��g�s����
��i�����
��4�d�;�;�;�
��j�#����
��n�c�"�"�"�
��-�s�3�3�3�
��.��4�4�4����(�C�N�G�<�<�<�
��g�u�U�|�|�$�$�$�$�$rc�t����j���ddd����ddd����fd�}��t�j����t�jdd����t�jd	����t
�jd
��|dd��|d
d��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd����t
�jd ����t
�jd!��dS)"Nrr;r�r�r�c�����|��}��||����|t��dSr )�exprlongr*r�rrr�s   ��rr�z$TclTest.test_exprlong.<locals>.checkOsF����\�\�$�'�'�F����V�X�.�.�.��!�!�&�#�.�.�.�.�.rr�r�r�r�rirr��r�r��r��r�r�r�r�rZr�r�r��r�r�r�r�r�)r!r<rrr�rr�s` @r�
test_exprlongzTclTest.test_exprlongKs	�����k�������Q���������Q����	/�	/�	/�	/�	/�	/�
	
���)�S�\�2�2�2����)�S�\�5�$�?�?�?����)�S�\�:�>�>�>����(�C�L�&�9�9�9�
��b�!����
��i�����
��j�!����
��m�Q����
��!�1�%�%�%�
��&��*�*�*�
��i�����
��n�a� � � �
��g�q����
��i�����
��4�a�8�8�8�
��j�!����
��n�a� � � �
��-�q�1�1�1�
��.��2�2�2����(�C�L�'�:�:�:����(�C�L�'�:�:�:�:�:rc�����j���ddd����ddd����fd�}��t�j����t�jdd����t�jd	����t
�jd
��|dd��d
D],}||d��|d|zd��|d|zd���-dD],}||d��|d|zd��|d|zd���-|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd��|dd����t
�jd ��|d!d��dS)"Nrr;r�r�r�c������|��}��||����|t����|t
��dSr )�exprbooleanr*r�rr�assertNotIsInstance�boolr�s   ��rr�z'TclTest.test_exprboolean.<locals>.checkns\����_�_�T�*�*�F����V�X�.�.�.��!�!�&�#�.�.�.��$�$�V�T�2�2�2�2�2rr�r�r�r�riF)r[�false�no�offz"%s"z{%s})r(�true�yesr{Tr�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�)r!r<rrr�r)rr��valuer,s`  @r�test_exprbooleanzTclTest.test_exprbooleanjs������k�������Q���������Q����	3�	3�	3�	3�	3�	3�	
���)�S�_�5�5�5����)�S�_�e�T�B�B�B����)�S�_�j�A�A�A����(�C�O�V�<�<�<�
��b�%����0�	)�	)�E��E�%������E�&�5�.�%�(�(�(��E�&�5�.�%�(�(�(�(�/�	(�	(�E��E�%������E�&�5�.�$�'�'�'��E�&�5�.�$�'�'�'�'�
��i�����
��j�$����
��m�T�"�"�"�
��!�4�(�(�(�
��&��.�.�.�
��i�����
��n�d�#�#�#�
��g�t����
��i�����
��4�d�;�;�;�
��j�$����
��n�d�#�#�#�
��-�t�4�4�4�
��.��5�5�5����(�C�O�W�=�=�=�
��g�t�����rc������j���fd�}|dd��|dd��|dd��|dd��|dd��|d	d��|d
d��|dd��dS)Nc	�\����d|��}����r3��||����|t��dS��||t
t	|����f����|t��dS�Nr�)r<r#r*r�rrr3r�r�s   ��rr�z$TclTest.test_booleans.<locals>.check�s�����X�X�f�d�+�+�F���� � �
3�� � ���2�2�2��%�%�f�c�2�2�2�2�2��
�
�f�t�S��X���-?�-?�&@�A�A�A��%�%�f�c�2�2�2�2�2rr�Tr�r{r�Fr�r�z1 < 2z1 > 2)r!r�s` @r�
test_booleanszTclTest.test_booleans�s������k��	3�	3�	3�	3�	3�	3�	��f�d����
��e�T����
��d�D����
��g�u����
��d�E����
��e�U����
��g�t����
��g�u�����rc�v�|j}|���D]�}|�dt|����}|jr2|�||��|�|t���^|�|t|����|�|t����dSr�)r!rfr<r�r#r*r�rr)rr,rur�s    r�test_expr_bignumzTclTest.test_expr_bignum�s����k���"�"�$�$�	3�	3�A��X�X�f�c�!�f�f�-�-�F���
3�� � ���+�+�+��%�%�f�c�2�2�2�2�� � ���Q���0�0�0��%�%�f�c�2�2�2�2�	3�	3rc	�����fd�}��|d���jrdnd����|d���jrdnd����|d��d����|d��d����|d��d����|d	��d	����|d
��d
����|d��d����|d��d��tjd
kr>��|d��d����|d��d����|d���jrdnd	����|d���jrdnd����|d���jrdnd������D]7}��||���jr|nt|�����8ddddtjjtjjtjjtjjfD]U}�jr ��||��|���)��t||����|���V�jr�|td����}��
||����|td����td������|td����td����n���t|td������td������t|td������td������|d���jrdnd����|dd d!gg���jrd"nd#��dS)$Nc�<���j�dd|��S)Nr�_)r!r<)r�rs �r�	passValuez.TclTest.test_passing_values.<locals>.passValue�s����;�#�#�E�3��6�6�6rTr(Fr[r�	string€�
string💻�string�	string½�
string€ustring💻r��<���>�<€>�<������>r2�string�str��ing�
strÀ€ingsstr�ingustr½ingr�r|���UUUUUU�?�nan�inf�rZr���333333@z1 2 3.4r;r��c)r;)r�r�a {b c})r*r#r��platformrfr��
float_info�min�maxr��assertNotEqual)rrrur�s`   r�test_passing_valueszTclTest.test_passing_values�s����	7�	7�	7�	7�	7�	
�����4���$�2B�*K�$�$��L�L�L������5�)�)�D�4D�+M�5�5�#�N�N�N������8�,�,�h�7�7�7������>�2�2�N�C�C�C������#5�6�6�8J�K�K�K������<�0�0�,�?�?�?������#3�4�4�6F�G�G�G������#5�6�6�8J�K�K�K������#9�:�:�/�	1�	1�	1��<�7�"�"����Y�Y�'=�>�>�'�
)�
)�
)����Y�Y�'O�P�P�+�
-�
-�
-������=�1�1�*.�*:�L����	N�	N�	N������#4�5�5�.2�.>�T�*�*�DT�	V�	V�	V������=�1�1�*.�*:�L����	N�	N�	N��"�"�$�$�	N�	N�A����Y�Y�q�\�\��0@�+L�1�1�c�!�f�f�M�M�M�M��s�D�#��.�$�c�n�&8��>�%�%���(:�':�<�	9�	9�A���
9�� � ���1���q�1�1�1�1�� � ��y�y��|�|�!4�!4�a�8�8�8�8���	M��	�%��,�,�'�'�A�����1�%�%�%����Y�Y�u�U�|�|�4�4�e�E�l�l�C�C�C����Y�Y��e���}�5�5��e���}�E�E�E�E����U�9�9�U�5�\�\�#:�#:�;�;�U�5�\�\�J�J�J����U�9�9�e�E�l�l�]�#;�#;�<�<�u�U�|�|�m�L�L�L������#3�4�4�-1�-=�L�)�)�9�	N�	N�	N������C�#�s��#4�5�5�.2�.>�M�*�*�I�	O�	O�	O�	O�	Orc����d��fd�}�j�d|�����jjjd��d,�jd���fd�}�fd�}|dd��|dd	��|d
��|d��|d��|d
��tjdkr|dd��|dd��|d��|dd
��|dd��|dd��|dd��|d��|d��|d��|dd��|dd��|dd ������D]}||t|�����d!D]}||t|�����d"tjjtjj
tjjtjj
fD]}|||����|td#��|���|td#��|���|d$d��|d%d&��|d'd(gd)d*gd+ggd&��dS)-Nc���|�|Sr r)�argr�s �r�testfuncz+TclTest.test_user_command.<locals>.testfunc�s
����F��Jrr )�eqc����|�|}d��j�d|��}���t��|�|����|t��|||��dS)Nr )r!r<r�r�)r�r�r!�rr�rs    ��rr�z(TclTest.test_user_command.<locals>.check�s{����� ���F��� � ��U�3�3�A��!�!�&�#�.�.�.��B�v�x� � � ��!�!�!�S�)�)�)��B�q�(�O�O�O�O�Orc�r����t|��|t|��dz���dS)Ng�����|�=)�delta)�assertAlmostEqualr��abs)�actualr�rs  �r�float_eqz+TclTest.test_user_command.<locals>.float_eq�sG����"�"�5��=�=�(�),�X����)>�
#�
@�
@�
@�
@�
@rTr(Fr[rustring½rrr�rr	r
r2risstrings	string€ustring€sstring�rrrrrrr
sstr��ing€ustrÀ€ing€)r�r|rrrr)rZ)r`)r�r��5 6rz1 2 {3 4} {5 6} {}rZr`r�r�r*r )r!�
createcommandr�r"�
deletecommandr*r�rrfr��reprrrrr�)rr r�r)rur�r�s`     @r�test_user_commandzTclTest.test_user_command�s2������	�	�	�	�	�	
��!�!�*�h�7�7�7�������4�j�A�A�A�		�d�.>�		�		�		�		�		�		�		�		�	@�	@�	@�	@�	@�	��d�C����
��e�S����
��h����
��l����
��n����
�� �!�!�!��<�7�"�"��E�(�*�5�5�5��E�:�N�K�K�K�
��b�	�	�	�
��i��"�"�"�
��#�%9�:�:�:�
��m�\�*�*�*�
��c�2����
��l����
������
�� �!�!�!�
��m�\�*�*�*�
���!1�2�2�2�
��+�-I�J�J�J��"�"�$�$�	�	�A��E�!�S��V�V�����!�	�	�A��E�!�T�!�W�W��������+�S�^�-?��>�%�%���(:�':�<�	"�	"�A��E�!��!�!�!�!�!�
��e�E�l�l�x�(�(�(�(�
��u�U�|�|�m��)�)�)�)�
��b�"�
�
�
�
��*�,@�A�A�A�
��q�1�$��A���r�*�,@�A�A�A�A�Arc��|jjj}|jjj}|�t
|��|�t
|dd��|�t
|d��dddddd	d
ddd
ddddddddddgdfdddggdddgff|dddd��|jrdndfg}|jsd }nd!}||d"d#d$d%d&d��|fgz
}d'|j�d(t�d)|j�����}|D]+\}}|�	||��|d*|�d+|�����,|�t|d,��dS)-Nr;r�r`)r�)r�)rir)�{}�ri)z""r1)z
a
 b	
 c
 �r;r�r)s
a
 b	
 c
 r2)ua €�r;�€)ua 💻�r;u💻)sa €r3)sa 💻r5)sa ��r5)s	a��b c��d)r/zcd)r�r;zb c)za b\ cr6)r6r6)za 2)r;r�)�r;r`r7)za 3.4)r;�3.4)�r;rr9)rrrr�listrZr�rr)r(r�r8)�12r4u€r8)�r4�€r�dict�creater<r4r=zwant objects? z, Tcl version: z, Tcl patchlevel: zarg=z, �{)r!r"�	splitlistr<rrr#rq�info_patchlevelr*r)rrAr<�	testcasesr��dbg_infor�ress        r�test_splitlistzTclTest.test_splitlists����K�N�,�	��{�~�"�����)�Y�/�/�/����)�Y��S�9�9�9����)�Y��2�2�2�����/�0�)�1�0�8�@�<�%�%�(�� �#�$��
��H��C��:�
��s�C�j� 1�2�
�T�&�!�S�&�
)�
)�$(�$4�"� � �!�
#�/
�	�6��	?�>�H�H�>�H��
�T�&�(�B��/�6�
J�
J��
�
�	
�	�	�
�'�'�'����d�k�6Q�6Q�6S�6S�6S�U��!�	=�	=�H�C�����Y�Y�s�^�^�S�S�-0�S�S�(�(�;�
=�
=�
=�
=����(�I�s�3�3�3�3�3rc
��tj}|jj}d}|�|||d��dddd���|�|||��dddd���d}|�|||d��d	dd
d���|�|||��d	dd
d���|�t||d��|�t||d��|�d
dd	dddd��}|�|||��|jrd	ndddd���|�dddd	dddd��}|jsdddd�}nd	ddd�}|�|||��|��dS)Nz#-a {1 2 3} -something foo status {}Fz1 2 3�foori)�-a�
-something�status)r;�	somethingrK)rI�rZr`r�rJrHrKr0rMr0z-a b -c )rIr�r�r:rIrJrKrr>r?)	�tkinter�
_splitdictr!r"r*r�RuntimeErrorr<r#)r�	splitdictr,rr�s     r�test_splitdictzTclTest.test_splitdictHs���&�	��k�n��3�������3��U�3�3��%�2�>�>�	@�	@�	@������3��,�,����<�<�	>�	>�	>�E�������3��U�3�3��E�T�B�B�	D�	D�	D������3��,�,��%�4�@�@�	B�	B�	B�	
���,�	�3�
�C�C�C����,�	�3�8I�J�J�J��h�h�v��i��u�h��L�L�������3��,�,�#�/�<�)�)�W��2�
/�
/�	0�	0�	0��h�h�v�x��Y��e�X�r�K�K����	J�$�5�B�G�G�H�H�&�U�b�I�I�H������3��,�,�h�7�7�7�7�7rc�f�����tj��jj��fd�����fd�}|d��|d��|d��|d��|d��|d��|d	��|d
��|d��|d��|d
��|d��|d��|d��|d��|d��|d��|d��|d��|d��|d��|d��|d��|d��dS)Nc�2����d|d��S)N�lindexr)r<)�sr,s �r�unpackz!TclTest.test_join.<locals>.unpackls����8�8�H�a��+�+�+rc
�N������|g����|������|dg����|�������|gg������|�������|dgg������|�������|gdg������|�������|dgdg������|��dS)Nr)r*)r��joinrrWs ���rr�z TclTest.test_join.<locals>.checknsG������V�V�D�D�%��M�M�2�2�E�:�:�:����V�V�D�D�%���$4�$4�5�5�u�=�=�=����V�V�F�F�4�4�%��	�?�?�$;�$;�<�<�e�D�D�D����V�V�F�F�4�4�%����+=�+=�$>�$>�?�?��G�G�G����V�V�F�F�4�4�%��!��+=�+=�$>�$>�?�?��G�G�G����V�V�F�F�4�4�%���Q��+@�+@�$A�$A�B�B�E�J�J�J�J�Jrrir�zsp amzsp	amzsp
amz 	
z{spam}z{sp am}z"spam"z"sp am"z{"spam"}z"{spam}"zsp\amz"sp\am"z	"{}" "{}"z"\z"{z"}z
\z
{z
}z\
z{
z}
)rN�_joinr!r")rr�rYr,rWs` @@@r�	test_joinzTclTest.test_joinis��������}���k�n��	,�	,�	,�	,�	,�	K�	K�	K�	K�	K�	K�	K�	��b�	�	�	�
��f�
�
�
�
��g����
��h����
��h����
��g����
��h����
��i����
��h����
��i����
��j����
��j����
��h����
��j����
��k����
��e����
��d����
��d����
��f�
�
�
�
��e����
��e����
��f�
�
�
�
��e����
��e�����rc��tj|tj��tj|tj��tj|tj��dSr )r�check_disallow_instantiationr�Tcl_Obj�TkttType�	TkappTypers r�test_new_tcl_objzTclTest.test_new_tcl_obj�sJ���,�T�8�3C�D�D�D��,�T�8�3D�E�E�E��,�T�8�3E�F�F�F�F�FrN)1rrrr$r-r0r4r7r9r=r@rErIrLrPrRrVrXr^rarcrfrvryrr�r�r�r�r�r��
skipUnlessr�rr�r�r�r�r�r�r�rr.rFrRr[r�cpython_onlyrarrrrr(s�������8�8�8�0�0�0�
>�>�>�K�K�K�5�5�5�=�=�=�2�2�2�
7�7�7�A�A�A�0�0�0�
3�3�3�
.�.�.�
1�1�1�
3�3�3�6�6�6�8�8�8�;�;�;�5�5�5�#�#�#�2�2�2�*
7�
7�
7�6�6�6� 0�0�0�6�6�6�<�<�<�":�:�:�C�C�C��X�����0�2D�E�E�*�*�F�E�*�* #� #� #�D%�%�%�>;�;�;�>&�&�&�P���&	3�	3�	3�.O�.O�.O�`6B�6B�6B�p.4�.4�.4�`8�8�8�B#�#�#�J
��G�G���G�G�Grrc��eZdZd�Zejejee	kd��ej
edzdd���d�������Zejejee	kd��ej
edzdd���d	�������Zejejee	kd��ej
edzd
d���d�������Z
dS)
�
BigmemTclTestc�,�t��|_dSr )rr!rs rr$zBigmemTclTest.setUp�s���e�e����rzneeds UINT_MAX < SIZE_MAXrZr�F)�size�memuse�dry_runc�b�d|z}|�t|jjdd|d��dS)N� r�indexr)r�
OverflowErrorr!r<)rrgr�s   r�test_huge_string_callz#BigmemTclTest.test_huge_string_call�s7���d�
�����-���)9�8�W�e�UV�W�W�W�W�Wrr`c���|jj}dd|zz}|�t|j|��|�t|j|��|�t|j|��|�t|j|��|�t|j|��|�t|j	|��|�t|j
|��|�t|j|dd��|�t|jd|d��|�t|j|��|�t|jd|��|�t|j
|��|�t|j
|��|�t|j|��|�t|j|��|�t|j|��|�t|j|t$��|�t|j|��dS)Nr(rk�xr;)r!r"rrmrorxr~r)r��record�adderrorinforHr]r�r�r�rAr+rr,�rrgr"r�s    r�test_huge_string_builtinsz'BigmemTclTest.test_huge_string_builtins�s���[�^���c�D�j� �����-���E�:�:�:����-���u�=�=�=����-����>�>�>����-���%�8�8�8����-���e�<�<�<����-���E�:�:�:����-���%�@�@�@����-���E�3��D�D�D����-���C���D�D�D����-���e�<�<�<����-���c�5�A�A�A����-���%�@�@�@����-����>�>�>����-���e�<�<�<����-����?�?�?����-���u�=�=�=����-��)9�5�#�F�F�F����-��)9�5�A�A�A�A�Arr�c��|jj}dd|zz}|�t|j|��|�t|j|��|�t|jd|��dS)Nr(rkrp)r!r"rrmr�r]rss    r�test_huge_string_builtins2z(BigmemTclTest.test_huge_string_builtins2�sq��
�[�^���c�D�j� �����-���e�<�<�<����-���e�<�<�<����-���c�5�A�A�A�A�ArN)rrrr$rrcr�rbr	r
�
bigmemtestrnrtrvrrrrere�sZ���������
���X���>�1�3N�O�O��W��W�q�[��E�B�B�B�X�X�C�B�P�O���X�
���X���>�1�3N�O�O��W��W�q�[��E�B�B�B�B�B�C�B�P�O���B�,
���X���>�1�3N�O�O��W��W�q�[��E�B�B�B�B�B�C�B�P�O���B�B�Brrec��tjr6t��}td|�dd��d���dSdS)Nzpatchlevel =�info�
patchlevelT)�flush)r�verboser�printr<)r,s r�setUpModuler~�sK����J��e�e��
�n�c�h�h�v�|�<�<�D�I�I�I�I�I�I�J�Jr�__main__)#r��locale�rer�r�r��warnings�testr�test.supportrr�
import_modulerrNrr�	_testcapir	r
�ImportError�maxsize�tuple�maprr�TCL_VERSION�splitrq�TestCaser
rrer~r�mainrrr�<module>r�s������
�
�
�
�	�	�	�	�����
�
�
�
�	�	�	�	�����������&�&�&�&�&�&�"�"�"�"�"�"�'�=�&�z�2�2������������������+�1�1�1�1�1�1�1�1�1���+�+�+�"�{�*�G�n�n�n�+�����e�C�C��X�1�7�7��<�<�=�=�>�>��
A�
A�
A�
A�
A�(�#�
A�
A�
A�j	G�j	G�j	G�j	G�j	G�h��j	G�j	G�j	G�X.B�.B�.B�.B�.B�H�%�.B�.B�.B�bJ�J�J��z����H�M�O�O�O�O�O��s�A�A*�)A*

Sindbad File Manager Version 1.0, Coded By Sindbad EG ~ The Terrorists