403Webshell
Server IP : 121.121.20.254  /  Your IP : 216.73.216.202
Web Server : Microsoft-IIS/10.0
System : Windows NT WEB-SERVER 10.0 build 20348 (Windows Server 2022) AMD64
User : IUSR ( 0)
PHP Version : 8.3.28
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  C:/Python313/Lib/test/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : C:/Python313/Lib/test/__pycache__/test_tcl.cpython-313.pyc
�

��i������SSKrSSKrSSKrSSKrSSKJr SSKJr SSKJr \R"S5r
SSKrSSKJr SSK
J
r
 SSKJrJr \"\"\\
R,R/S	555r"S
S\R25r"SS
\R25r"SS\R25rSr\S:Xa\R>"5 gg!\a \R$=rrN�f=f)�N)�support)�
import_helper)�	os_helper�_tkinter)�Tcl)�TclError)�INT_MAX�PY_SSIZE_T_MAX�.c��\rSrSrSrSrg)�TkinterTest�c�.�UR[[RS5 UR[[R05 UR[[RS5 UR[[RS15 g)NT�string�set)�assertRaises�	TypeErrorr�_flatten��selfs �"C:\Python313\\Lib\test\test_tcl.py�testFlattenLen�TkinterTest.testFlattenLensf�����)�X�%6�%6��=����)�X�%6�%6��;�	
���)�X�%6�%6��A����)�X�%6�%6���@��N)�__name__�
__module__�__qualname__�__firstlineno__r�__static_attributes__rrrr
r
s��Arr
c��\rSrSrSrSrSrSrSrSr	Sr
S	rS
rSr
SrS
rSrSrSrSrSrSrSrSrSrSrSrSrSrSrSrSrSr Sr!S r"S!r#S"r$\%RL"\'RPS#:HS$5S%5r)S&r*S'r+S(r,S)r-S*r.S+r/S,r0S-r1S.r2S/r3S0r4S1r5S2r6\7RpS35r9S4r:g5)6�TclTest�%c�t�[5UlURRR5Ulg�N)r�interp�tk�wantobjectsrs r�setUp�
TclTest.setUp's$���e����;�;�>�>�5�5�7��rc�<�URRSSU5$)Nr�_)r&�call)r�values  r�	passValue�TclTest.passValue+s���{�{����s�E�2�2rc��URnURS5 URURS5S5 g)N�set a 1�set a�1)r&�eval�assertEqual�r�tcls  r�testEval�TclTest.testEval.s0���k�k�������������'�*�3�/rc�^�URnURURS5S5 g)Nzset a "a\0b"�ab�r&r6r5r7s  r�test_eval_null_in_result� TclTest.test_eval_null_in_result3s$���k�k��������/�2�H�=rc�^�URnURURS5S5 g)Nzset a "<\ud83d\udcbb>"�<💻>r=r7s  r�test_eval_surrogates_in_result�&TclTest.test_eval_surrogates_in_result7s%���k�k��������";�<�n�Mrc�^�URnUR[URS5 g)Nr3�r&rrr5r7s  r�testEvalException�TclTest.testEvalException;s!���k�k�����(�3�8�8�G�4rc�^�URnUR[URS5 g)Nz
this is wrongrEr7s  r�testEvalException2�TclTest.testEvalException2?s!���k�k�����(�3�8�8�O�<rc��URRnURS5 URS5nSnURX#5 g)N�7set a "\u20ac \ud83d\udcbb \0 \udcab"; regexp -about $ar3�€ 💻  ���)r&r'r5r6�rr8�a�expecteds    r�test_eval_returns_tcl_obj�!TclTest.test_eval_returns_tcl_objCs=���k�k�n�n�����K�L��H�H�W���<������%rc��URnURSSS5 URURSS5S5 g)NrrOr4)r&r-r6r7s  r�testCall�TclTest.testCallJs6���k�k������s�3��������%��,�S�1rc��URnURSSS5 URURS5S5 URURSS5S5 URUR	S5S5 URSSS5 URURS5S5 URURSS5S5 URUR	S5S5 g)NrrOr<r3�€)r&r-r6�getvarr5r7s  r�test_call_passing_null�TclTest.test_call_passing_nullOs����k�k�������V�$�������C��(�3�������%��-�x�8�������'�*�H�5������Z�(�������C��,�7�������%��-�|�<�������'�*�L�9rc�`�URnUR[URSS5 g)NrrO�r&rrr-r7s  r�testCallException�TclTest.testCallException[s#���k�k�����(�3�8�8�E�#�6rc�b�URnUR[URSSS5 g)N�this�is�wrongr\r7s  r�testCallException2�TclTest.testCallException2_s%���k�k�����(�3�8�8�F�4��@rc�f�URRnURS5 URSS5nSnUR(aTUR[
U5U5 URURU5 URURS5 gURX#5 g)NrLrrOrM�regexp)	r&r'r5r-r(r6�strr�typenamerNs    r�test_call_returns_tcl_obj�!TclTest.test_call_returns_tcl_objcs����k�k�n�n�����K�L��H�H�U�C� ��<��������S��V�X�.����Q�X�X�x�0����Q�Z�Z��2����Q�)rc��URnURSS5 URURS5S5 g)NrOr4r3�r&�setvarr6r5r7s  r�
testSetVar�TclTest.testSetVaros2���k�k���
�
�3�s��������'�*�3�/rc���URnURSS5 URURS5S5 URUR	SS5S5 URURS5S5 URSS5 URURS5S5 URUR	SS5S5 URURS5S5 g)NrOr<rr3rW)r&rmr6rXr-r5r7s  r�test_setvar_passing_null� TclTest.test_setvar_passing_nullts����k�k���
�
�3���������C��(�3�������%��-�x�8�������'�*�H�5��
�
�3�
�#�������C��,�7�������%��-�|�<�������'�*�L�9rc��URnURSS5 URURS5S5 g)N�a(1)r4zset a(1)rlr7s  r�testSetVarArray�TclTest.testSetVarArray�s2���k�k���
�
�6�#��������*�-�c�2rc��URnURS5 URURS5S5 g)Nr2rOr4�r&r5r6rXr7s  r�
testGetVar�TclTest.testGetVar�s/���k�k�������������C���-rc��URnURS5 URURS5S5 g)Nz
set a(1) 1rtr4rxr7s  r�testGetVarArray�TclTest.testGetVarArray�s0���k�k�������������F�+�C�0rc�^�URnUR[URS5 g�NrO�r&rrrXr7s  r�testGetVarException�TclTest.testGetVarException�s!���k�k�����(�3�:�:�c�2rc�^�URnUR[URS5 g)Nrtr�r7s  r�testGetVarArrayException� TclTest.testGetVarArrayException�s!���k�k�����(�3�:�:�f�5rc�d�URRnURS5 URS5nSnUR(aTUR[
U5U5 URURU5 URURS5 gURX#5 g)NrLrOrMrf)	r&r'r5rXr(r6rgrrhrNs    r�test_getvar_returns_tcl_obj�#TclTest.test_getvar_returns_tcl_obj�s����k�k�n�n�����K�L��J�J�s�O��<��������S��V�X�.����Q�X�X�x�0����Q�Z�Z��2����Q�)rc���URnURSS5 URURS5S5 UR	S5 URURS5S5 g)NrO�z
info exists ar4�0�r&rmr6r5�unsetvarr7s  r�testUnsetVar�TclTest.testUnsetVar�sW���k�k���
�
�3�q��������/�2�3�7����S��������/�2�3�7rc��URnURSS5 URSS5 URURS5S5 URURS5S5 UR	S5 URURS5S5 URURS5S5 g)	Nrtr�za(2)�zinfo exists a(1)r4zinfo exists a(2)r�r�r7s  r�testUnsetVarArray�TclTest.testUnsetVarArray�s����k�k���
�
�6�!���
�
�6�!��������"4�5�c�:�������"4�5�c�:����V��������"4�5�c�:�������"4�5�c�:rc�^�URnUR[URS5 gr)r&rrr�r7s  r�testUnsetVarException�TclTest.testUnsetVarException�s!���k�k�����(�3�<�<��4rc�.�SSSSSSSSS	S
SSS
-SS
-*4
$)Nrr����i���i�ll����l����l����ll����r�i�rrs r�get_integers�TclTest.get_integers�s4���1�b����������4��!�T�'��#�	#rc	�
�URRnUR5H�nURUR	SU-5U5 URUR	SU-5U5 URUR	SU-RSS55[S:aUO
[SU-55 URUR	SU-5U5 M� URUR	S5S5 UR[UR5 UR[URS	S
5 UR[URS5 UR[URS5 UR[URS
5 UR[[[4URS5 UR[[[4URS5 g)Nz %d z %#o �o���	rz%oz %#x �*�42�10s42�E@rOz42u42�)
r&r'r�r6�getint�replace�tcl_version�intrrr�
ValueError�UnicodeEncodeError)rr8�is   r�test_getint�TclTest.test_getint�s����k�k�n�n���"�"�$�A����S�Z�Z���
�3�Q�7����S�Z�Z��!��4�a�8�
���S�Z�Z��1��(=�(=�c�2�(F�G�"-��"6�Q�C��q��M�
K����S�Z�Z��!��4�a�8�%�	
������B���,����)�S�Z�Z�0����)�S�Z�Z��t�<����)�S�Z�Z��7����)�S�Z�Z��6����(�C�J�J��4����9�j�(�;��*�*�f�	.����-�z�8�D��*�*�j�	2rc���URRnURURS5S5 URURS5S5 URURS5S5 URURS5S5 UR	[
UR5 UR	[
URSS5 UR	[
URS5 UR	[URS	5 UR	[
[[4URS
5 UR	[[[4URS5 g)Nz 42 r�z 42.5 g@E@r�z42.5r�s42.5rOz42.5u42.5�)	r&r'r6�	getdoublerrrr�r�r7s  r�test_getdouble�TclTest.test_getdouble�s���k�k�n�n��������v�.��5�������x�0�$�7�������t�,�d�3�������r�*�D�1����)�S�]�]�3����)�S�]�]�F�D�A����)�S�]�]�G�<����(�C�M�M�3�7����9�j�(�;��-�-��	3����-�z�8�D��-�-��	7rc�2�URRnURURS5S5 URURS5S5 URURS5S5 URURS5S5 UR	[
UR5 UR	[
URSS5 UR	[
URS5 UR	[
URS5 UR	[URS	5 UR	[
[[4URS
5 UR	[[[4URS5 g)N�onTr4r�rFson��?rOzonuon�)	r&r'�assertIs�
getbooleanrrrr�r�r7s  r�test_getboolean�TclTest.test_getboolean�s���k�k�n�n���
�
�c�n�n�T�*�D�1��
�
�c�n�n�S�)�4�0��
�
�c�n�n�R�(�$�/��
�
�c�n�n�Q�'��/����)�S�^�^�4����)�S�^�^�T�3�?����)�S�^�^�U�;����)�S�^�^�S�9����(�C�N�N�C�8����9�j�(�;��.�.�&�	2����-�z�8�D��.�.�*�	6rc���URn[RnUR[RU5 [US5nUR
S5 SSS5 URU5 URURS5S5 URURS5S5 URURS5S5 g!,(df   N�=f)	N�wzKset a 1
            set b 2
            set c [ expr $a + $b ]
            r3r4�set b�2zset c�3�
r&r�TESTFN_ASCII�
addCleanup�unlink�open�write�evalfiler6r5�rr8�filename�fs    r�testEvalFile�TclTest.testEvalFile�s����k�k���)�)�����	�(�(�(�3�
�(�C�
 �A�
�G�G��
�!�
	���X��������'�*�3�/�������'�*�3�/�������'�*�3�/�!�
 �s�	C�
C&c��URn[RnUR[RU5 [US5nUR
S5 SSS5 URU5 URURS5S5 URURS5S5 g!,(df   Nb=f)Nr�z>
            set a "ab"
            set b "a\0b"
            r3r<r�r�r�s    r�test_evalfile_null_in_result�$TclTest.test_evalfile_null_in_results����k�k���)�)�����	�(�(�(�3�
�(�C�
 �A�
�G�G��
�!�
	���X��������'�*�H�5�������'�*�H�5�!�
 �s�	B7�7
Cc��URnURSS5nURURSSU5 URSSS5 [RnUR[R
U5 [
US5nURS5 SSS5 [S:�a"UR[URU5 O2URU5 URURS5S5 [
US5nURS	5 SSS5 URU5 URURS
5S5 g!,(df   N�=f!,(df   NR=f)N�encoding�systemzutf-8�wbs*
            set a "<��>"
            r�r3rAs0
            set b "<\ud83d\udcbb>"
            r�)r&r-r�rr�r�r�r�r�rrr�r6r5)rr8r�r�r�s     r�"test_evalfile_surrogates_in_result�*TclTest.test_evalfile_surrogates_in_result
s"���k�k���8�8�J��1��������*�h��A�����X�w�/��)�)�����	�(�(�(�3�
�(�D�
!�Q�
�G�G��
�"��&� ����h����h�?��L�L��"����S�X�X�g�.��?�
�(�D�
!�Q�
�G�G��
�"�	���X��������'�*�N�;�"�
!��"�
!�s�E�E.�
E+�.
E<c��URnSn[R"U5 UR	[
URU5 g![a
nSnAN1SnAff=f)N�
doesnotexists)r&�os�remove�	Exceptionrrr�)rr8r��es    r�testEvalFileException�TclTest.testEvalFileException&sN���k�k��"��	��I�I�h��	
���(�3�<�<��9���	���	�s�A�
A�Ac�^�URnUR[URS5 g)Nzpackage require DNErEr7s  r�testPackageRequireException�#TclTest.testPackageRequireException/s"���k�k�����(�3�8�8�,A�Br�win32zRequires Windowsc�0�[RR[R5nUSS:wa[
R"S5eS[RS<SUS<SUS	S<3n[RRU5(d[
R"S
5e[R"5nURS5 [R"USS
/5nSSS5 URSW5 g!,(df   N!=f)Nr��: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_output�assertIn)r�fullname�unc_name�env�stdouts     r�testLoadWithUNC�TclTest.testLoadWithUNC3s����7�7�?�?�3�>�>�2���A�;�#���#�#�$J�K�K��%'�Z�Z��%?�$,�Q�K�$,�Q�R�L�2���w�w�~�~�h�'�'��#�#�$@�A�A�
�
*�
*�
,���I�I�m�$��,�,��t�%E�F�H�F�-�
	
�
�
�j�&�)�-�
,�s�+D�
Dc�^^�TRmTRSSS5 TRSSS5 UU4SjnTR[TR5 TR[TRSS5 TR[TRS	5 TR[
TRS
5 U"SS5 U"S
S5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"S S5 U"S!S"5 U"S#S"5 U"S$S%5 U"S&S'5 U"S(S'5 U"S)S*5 U"S+[
S,55 g)-NrrOr��b�c�v>�TRU5nTRX!5 TRU[5 gr%)�
exprstringr6�assertIsInstancerg��exprrP�resultrr8s   ��r�check�&TclTest.test_exprstring.<locals>.checkMs/����^�^�D�)�F����V�.��!�!�&�#�.r�8.2�+6�8.2 + 6�spamr�r��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 / 4r4�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�rrg�rrr8s` @r�test_exprstring�TclTest.test_exprstringIs\����k�k�������Q�������Q��	/�
	
���)�S�^�^�4����)�S�^�^�U�D�A����)�S�^�^�Z�@����(�C�N�N�F�;�
�b�#��
�i�� �
�j�%� �
�m�U�#�
�!�3�'�
�&��,�
�i���
�n�e�$�
�g�s��
�i�� �
�4�f�=�
�j�%� �
�n�c�"�
�-�s�3�
�.��4�
�g�u��
�o�}�-�
��
�.�
�i��"�
�g�s�5�z�"rc�^^�TRmTRSSS5 TRSSS5 UU4SjnTR[TR5 TR[TRSS5 TR[TRS	5 TR[
TRS
5 U"SS5 U"S
S5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"S S5 U"S!S"5 U"S#S"5 TR[
TRS$5 U"S%[
S&55 g)'NrrOr�r�r�c�v>�TRU5nTRX!5 TRU[5 gr%)�
exprdoubler6r��floatr�s   ��rr�&TclTest.test_exprdouble.<locals>.checkos/����^�^�D�)�F����V�.��!�!�&�%�0rrrrrr��rgffffff,@rgffffff@r	gffffff@r
g @rr
rg@rr�rg�?rrg@rrg@rrrr)r&r-rrrrr rs` @r�test_exprdouble�TclTest.test_exprdoubleksI����k�k�������Q�������Q��	1�
	
���)�S�^�^�4����)�S�^�^�U�D�A����)�S�^�^�Z�@����(�C�N�N�F�;�
�b�#��
�i���
�j�#��
�m�S�!�
�!�3�'�
�&��,�
�i���
�n�c�"�
�g�s��
�i���
�4�d�;�
�j�#��
�n�c�"�
�-�s�3�
�.��4����(�C�N�N�G�<�
�g�u�U�|�$rc�^^�TRmTRSSS5 TRSSS5 UU4SjnTR[TR5 TR[TRSS5 TR[TRS	5 TR[
TRS
5 U"SS5 U"S
S5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 TR[
TRS 5 TR[
TRS!5 g)"NrrOr�r�r�c�v>�TRU5nTRX!5 TRU[5 gr%)�exprlongr6r�r�r�s   ��rr�$TclTest.test_exprlong.<locals>.check�s/����\�\�$�'�F����V�.��!�!�&�#�.rrrrrr�rr�rr	�r
�rr
rrr�rrr�rrrrr)r&r-rrr'rrs` @r�
test_exprlong�TclTest.test_exprlong�sQ����k�k�������Q�������Q��	/�
	
���)�S�\�\�2����)�S�\�\�5�$�?����)�S�\�\�:�>����(�C�L�L�&�9�
�b�!��
�i���
�j�!��
�m�Q��
�!�1�%�
�&��*�
�i���
�n�a� �
�g�q��
�i���
�4�a�8�
�j�!��
�n�a� �
�-�q�1�
�.��2����(�C�L�L�'�:����(�C�L�L�'�:rc�^^�TRmTRSSS5 TRSSS5 UU4SjnTR[TR5 TR[TRSS5 TR[TRS	5 TR[
TRS
5 U"SS5 S
H$nU"US5 U"SU-S5 U"SU-S5 M& SH$nU"US5 U"SU-S5 U"SU-S5 M& U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"SS5 TR[
TRS 5 U"S!S5 g)"NrrOr�r�r�c�>�TRU5nTRX!5 TRU[5 TR	U[
5 gr%)�exprbooleanr6r�r��assertNotIsInstance�boolr�s   ��rr�'TclTest.test_exprboolean.<locals>.check�s?����_�_�T�*�F����V�.��!�!�&�#�.��$�$�V�T�2rrrrrr�F)r��false�no�offz"%s"z{%s})r4�true�yesr�Trrr	r
rr
rrrrrrrrrr)r&r-rrr1r)rrr.r8s`  @r�test_exprboolean�TclTest.test_exprboolean�s�����k�k�������Q�������Q��	3�	
���)�S�_�_�5����)�S�_�_�e�T�B����)�S�_�_�j�A����(�C�O�O�V�<�
�b�%��0�E��%����&�5�.�%�(��&�5�.�%�(�1�0�E��%����&�5�.�$�'��&�5�.�$�'�0�	�i���
�j�$��
�m�T�"�
�!�4�(�
�&��.�
�i���
�n�d�#�
�g�t��
�i���
�4�d�;�
�j�$��
�n�d�#�
�-�t�4�
�.��5����(�C�O�O�W�=�
�g�t�rc�^^�TRmUU4SjnU"SS5 U"SS5 U"SS5 U"SS5 U"SS5 U"S	S5 U"S
S5 U"SS5 g)Nc	�>�TRSU5nTR5(a(TRX!5 TRU[5 gTRX [
[	U5545 TRU[5 g�Nr�)r-r(r6r�r�r�rgr�s   ��rr�$TclTest.test_booleans.<locals>.check�sh����X�X�f�d�+�F���� � �� � ��2��%�%�f�c�2��
�
�f�S��X��-?�&@�A��%�%�f�c�2rr8Tr9r�r5Fr6r7z1 < 2z1 > 2�r&rs` @r�
test_booleans�TclTest.test_booleans�sc����k�k��	3�	�f�d��
�e�T��
�d�D��
�g�u��
�d�E��
�e�U��
�g�t��
�g�u�rc�V�URnUR5H�nURS[U55nUR(a)URX25 UR
U[5 MXURU[U55 UR
U[5 M� gr>)r&r�r-rgr(r6r�r�)rr8r�rs    r�test_expr_bignum�TclTest.test_expr_bignum�s}���k�k���"�"�$�A��X�X�f�c�!�f�-�F����� � ��+��%�%�f�c�2�� � ���Q��0��%�%�f�c�2�%rc	�X�URnURU"S5UR(aSOS5 URU"S5UR(aSOS5 URU"S5S5 URU"S5S5 URU"S5S5 URU"S5S5 URU"S	5S	5 URU"S
5S
5 URU"S5S5 [RS:wa0URU"S
5S5 URU"S5S5 URU"S5UR(aSOS5 URU"S5UR(aSOS5 URU"S5UR(aSOS5 UR5H7nURU"U5UR(aUO
[
U55 M9 SSSS[RR[RR[RR*[RR*4HOnUR(aURU"U5U5 M.UR[U"U55U5 MQ UR(ayU"[S55nURX35 URU"[S55[S55 URU"[S5*5[S5*5 OhUR[U"[S555[S55 UR[U"[S5*55[S5*5 URU"S5UR(aSOS5 URU"SSS //5UR(aS!5 gS"5 g)#NTr4Fr�r�	string€�
string💻�string�	string½�
string€ustring💻r��<���>�<€>�<������>rA�string�str��ing�
strÀ€ingsstr�ingustr½ingr"r����UUUUUU�?�nan�inf�r�r���333333@z1 2 3.4rOr��c)rO)r�rY�a {b c})r/r6r(r��platformr�rg�
float_info�min�maxr �assertNotEqual)rr/r�r�s    r�test_passing_values�TclTest.test_passing_values�sO���N�N�	�����4��$�2B�2B�$��L�����5�)�D�4D�4D�5�#�N�����8�,�h�7�����>�2�N�C�����#5�6�8J�K�����<�0�,�?�����#3�4�6F�G�����#5�6�8J�K�����#9�:�/�	1��<�<�7�"����Y�'=�>�'�
)����Y�'O�P�+�
-�����=�1�*.�*:�*:���	N�����#4�5�.2�.>�.>�*�DT�	V�����=�1�*.�*:�*:���	N��"�"�$�A����Y�q�\��0@�0@�1�c�!�f�M�%��s�D�#��.�.�$�$�c�n�n�&8�&8��>�>�%�%�%����(:�(:�':�<�A����� � ��1��q�1�� � ��y��|�!4�a�8�
<�����%��,�'�A�����%����Y�u�U�|�4�e�E�l�C����Y��e��}�5��e��}�E����U�9�U�5�\�#:�;�U�5�\�J����U�9�e�E�l�]�#;�<�u�U�|�m�L�����#3�4�-1�-=�-=�)�9�	N�����C�#�s��#4�5�.2�.>�.>�*�	O�DM�	Orc�.^^�Sm"UU4SjS5n"SS[5nUR(aTS4OTS3nURURU"5S/=m5U5 URURU"U"5S/5=m5U5 g)Nr.c�$>�\rSrSrUU4SjrSrg)�QTclTest.test_set_object_concurrent_mutation_in_sequence_conversion.<locals>.Valuei$c�(>�TR5 T$r%)�clear)rr�valuess ��r�__str__�YTclTest.test_set_object_concurrent_mutation_in_sequence_conversion.<locals>.Value.__str__%s��������
rrN)rrrrrhr )rrgs��r�Valuerd$s
���
�
rrjc��\rSrSrSrg)�PTclTest.test_set_object_concurrent_mutation_in_sequence_conversion.<locals>.Listi)rN)rrrrr rrr�Listrl)s��rrm�padz pad)�listr(r6r/)rrjrm�expectrrgs    @@r�:test_set_object_concurrent_mutation_in_sequence_conversion�BTclTest.test_set_object_concurrent_mutation_in_sequence_conversions������	�	�
	�4�	�%)�$4�$4�&�%��V�H�D�/��������5�7�E�2B�(B��C�V�L�������$����7G�2H�(H��I�6�Rrc�b^^�SmU4SjnTRRSU5 TRTRRRS5 S.TR
S.UU4SjjjnU4SjnU"SSS5 U"S	S
S5 U"S5 U"S
5 U"S5 U"S5 [RS:waU"SSS5 U"SSS5 U"S5 U"SS5 U"SS5 U"SS
5 U"SS5 U"S5 U"S5 U"S5 U"SS5 U"SS 5 U"S!S"5 TR5HnU"U[U55 M S#HnU"U[U55 M S$[RR[RR[RR*[RR*4H	nU"XSS9 M U"[S%5US9 U"[S%5*US9 U"S&SS5 U"S'S(S)5 U"SS*/S+S,/S-//S(S)5 g)/Nc�>�UmU$r%r)�argrs �r�testfunc�+TclTest.test_user_command.<locals>.testfunc2s
����F��Jrrv)�eqc�>�UnTRS:�aUbUn[U5nOUbUn[nSmTRR	SU5nTRTU5 U"TU5 TRXe5 U"Xd5 g)Nr�rv)r(�typergr&r-r�)	r.�	expected1�	expected2rxrP�
expected_type�rrrs	       ��rr�(TclTest.test_user_command.<locals>.check8s�����H����1�$��(�(�H� $�X��
��(�(�H� #�
��F���� � ��U�3�A��!�!�&�-�8��v�x� ��!�!�!�3��q�Orc�R>�TR[U5U[U5S-S9 g)Ng�����|�=)�delta)�assertAlmostEqualr �abs)�actualrPrs  �r�float_eq�+TclTest.test_user_command.<locals>.float_eqIs+����"�"�5��=�(�),�X���)>�
#�
@rTr4r�Fr�rrustring½rGrHr�rLrMrNrAr�sstrings	string€ustring€sstring�rrIrJrKrOrPrQsstr��ing€ustrÀ€ing€)r"r�rRrSrUr)r��r��r�r,�5 6rz1 2 {3 4} {5 6} {})r�r�r�r�r�r�r�r,r�)NN)r&�
createcommandr�r'�
deletecommandr6r�r[r�rg�reprr\r]r^r )rrvrr�r�r�rs`     @r�test_user_command�TclTest.test_user_command0s�����	�	
���!�!�*�h�7���������4�4�j�A�	�t�?O�?O�	�	�"	@�	�d�C���
�e�S�!��
�h��
�l��
�n��
� �!��<�<�7�"��(�*�j�A��:�N�N�[�
�b�	�
�i��"�
�#�%9�:�
�m�\�*�
�c�2��
�l��
���
� �!�
�m�\�*�
��!1�2�
�+�-I�J��"�"�$�A��!�S��V��%�!�A��!�T�!�W��"�����+�+�S�^�^�-?�-?��>�>�%�%�%����(:�(:�':�<�A��!�!�<�	�e�E�l�x�(�
�u�U�|�m��)�
�b�"�b��
�*�"�*�	,�	�q�1�$��A���r�*�"�*�	,rc�^�URRnSmU4SjnURRSU5 URURRRS5 URS5 URS5 SnURS:�aTUR[T5U5 URTRU5 URTRS5 gURTU5 g)Nc�
>�Umgr%r)rurOs �rrv�.TclTest.test_passing_tcl_obj.<locals>.testfuncvs����ArrvrLztestfunc $arMr�rf)r&r'r�r�r�r5r(r6rgrrh)rr8rvrPrOs    @r�test_passing_tcl_obj�TclTest.test_passing_tcl_objss�����k�k�n�n����	�	
���!�!�*�h�7���������4�4�j�A����K�L����� �<�����q� ����S��V�X�.����Q�X�X�x�0����Q�Z�Z��2����Q��)rc���URRRnURRRnUR	[
U5 UR	[
USS5 UR	[
US5 SSSSSS	S
SSS
SSSSSSSSSS/S4SSS//SSS/44U"SSSS5UR(aSOS4/nUR(dS nOS!nUU"S"S#S$S%S&S5U4/-
nS'UR<S([<S)URR5<3nUH&upgURU"U5US*U<S+U<35 M( UR	[US,5 g)-NrOr�r�)r�)r�)r�r)�{}�r�)z""r�)z
a
 b	
 c
 �rOr�rY)s
a
 b	
 c
 r�)ua €�rO�€)ua 💻�rOu💻)sa €r�)sa 💻r�)sa ��r�)s	a��b c��d)r<zcd)rZ�rOzb c)za b\ cr�)r�r�)za 2)rOr�)�rOr�r�)za 3.4)rO�3.4)�rOrXr�)rrrrYror�r�rWrV)r4r�r�)�12r�u€r�)�r��€rW�dict�creater�r�r�zwant objects? z, Tcl version: z, Tcl patchlevel: zarg=z, �{)r&r'�	splitlistr-rrr(r��info_patchlevelr6r)rr�r-�	testcasesrP�dbg_inforu�ress        r�test_splitlist�TclTest.test_splitlist�s����K�K�N�N�,�,�	��{�{�~�~�"�"�����)�Y�/����)�Y��S�9����)�Y��2�����/�0�)�1�0�8�@�<�%�%�(�� �#�$��
��H��C��:�
��s�C�j� 1�2�
�&�!�S�&�
)�$(�$4�$4� �!�
#�/
�	�6���>�H�>�H��
�&�(�B��/�6�
J��
�
�	
�	�
�'�'��d�k�k�6Q�6Q�6S�U��!�H�C����Y�s�^�S�-0�(�;�
=�"�	
���(�I�s�3rc
��[RnURRnSnUR	U"X#S5SSSS.5 UR	U"X#5SSSS.5 SnUR	U"X#S5S	SS
S.5 UR	U"X#5S	SS
S.5 UR[XS5 UR[XS5 URS
SS	SSSS5nUR	U"X#5UR(aS	OSSSS.5 URSSSS	SSSS5nUR(dSSSS.nOS	SSS.nUR	U"X#5U5 g)Nz#-a {1 2 3} -something foo status {}Fz1 2 3�foor�)�-a�
-something�status)rO�	somethingr�)r��r�r�r�r�r�r�r�r�r�z-a b -c )r�r�r�ror�r�r�rr�r�)	�tkinter�
_splitdictr&r'r6r�RuntimeErrorr-r()r�	splitdictr8rurPs     r�test_splitdict�TclTest.test_splitdict�ss���&�&�	��k�k�n�n��3������3�U�3��%�2�>�	@�����3�,����<�	>�E������3�U�3��E�T�B�	D�����3�,��%�4�@�	B�	
���,�	�
�C����,�	�8I�J��h�h�v��i��u�h��L������3�,�#�/�/�)�W��2�
/�	0��h�h�v�x��Y��e�X�r�K�����$�5�B�G�H�&�U�b�I�H�����3�,�h�7rc��^^^^�[RmTRRmU4SjmUUU4SjnU"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S	5 U"S
5 U"S5 U"S5 U"S
5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 U"S5 g)Nc�*>�TRSUS5$)N�lindexr)r-)�sr8s �r�unpack�!TclTest.test_join.<locals>.unpack�s����8�8�H�a��+�+rc
�>�TRT"T"U/55U5 TRT"T"US/55U5 TRT"T"T"U//555U5 TRT"T"T"US//555U5 TRT"T"T"U/S/555U5 TRT"T"T"US/S/555U5 g)Nr)r6)r.�joinrr�s ���rr� TclTest.test_join.<locals>.check�s�������V�D�%��M�2�E�:����V�D�%���$4�5�u�=����V�F�4�%��	�?�$;�<�e�D����V�F�4�%����+=�$>�?��G����V�F�4�%��!��+=�$>�?��G����V�F�4�%���Q��+@�$A�B�E�Jrr�rzsp 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}
)r��_joinr&r')rrr�r8r�s` @@@r�	test_join�TclTest.test_join�s�����}�}���k�k�n�n��	,�	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���[R"U[R5 [R"U[R5 [R"U[R
5 gr%)r�check_disallow_instantiationr�Tcl_Obj�TkttType�	TkappTypers r�test_new_tcl_obj�TclTest.test_new_tcl_obj�sD���,�,�T�8�3C�3C�D��,�,�T�8�3D�3D�E��,�,�T�8�3E�3E�Fr)r&r(N);rrrrr)r/r9r>rBrFrIrQrTrYr]rcrirnrqruryr|r�r�r�r�r�r�r�r�r�r�r�r�r�r�r�r��
skipUnlessr�r[r�rr#r-r:rArDr`rqr�r�r�r�r�r�cpython_onlyr�r rrrr"r"%s=��8�3�0�
>�N�5�=�&�2�

:�7�A�
*�0�

:�3�
.�
1�
3�6�
*�8�;�5�#�2�*
7�6� 0�6�<�2:�C��������0�2D�E�*�F�*�* #�D%�>;�>&�P�&	3�-O�^S�$A,�F*�$.4�`8�B#�J
���G��Grr"c��\rSrSrSr\R\R"\	\
:S5\R"\	S-SSS9S555r\R\R"\	\
:S5\R"\	S-S	SS9S
555r
\R\R"\	\
:S5\R"\	S-SSS9S555rS
rg)�
BigmemTclTestic�"�[5Ulgr%)rr&rs rr)�BigmemTclTest.setUps���e��rzneeds UINT_MAX < SIZE_MAXr�r*F)�size�memuse�dry_runc�j�SU-nUR[URRSSUS5 g)N� r�indexr)r�
OverflowErrorr&r-)rr�r.s   r�test_huge_string_call�#BigmemTclTest.test_huge_string_calls0���d�
�����-����)9�)9�8�W�e�UV�Wrr�c��URRnSSU--nUR[URU5 UR[UR
U5 UR[URU5 UR[URU5 UR[URU5 UR[URU5 UR[URU5 UR[URUSS5 UR[URSUS5 UR[URU5 UR[URSU5 UR[URU5 UR[URU5 UR[URU5 UR[URU5 UR[UR U5 UR[UR"U[$5 UR[UR&U5 g)Nr4r��xrO)r&r'rr�r�r�r�r5r��record�adderrorinformr�r�r'r1r�r�r^r��rr�r'r.s    r�test_huge_string_builtins�'BigmemTclTest.test_huge_string_builtinss����[�[�^�^���c�D�j� �����-����E�:����-����u�=����-�����>����-����%�8����-����e�<����-����E�:����-����%�@����-����E�3��D����-����C���D����-����e�<����-����c�5�A����-����%�@����-�����>����-����e�<����-�����?����-����u�=����-��)9�)9�5�#�F����-��)9�)9�5�Arr�c��URRnSSU--nUR[URU5 UR[UR
U5 UR[UR
SU5 g)Nr4r�r�)r&r'rr�r�r�r�s    r�test_huge_string_builtins2�(BigmemTclTest.test_huge_string_builtins2'sc��
�[�[�^�^���c�D�j� �����-����e�<����-����e�<����-����c�5�Arr@N)rrrrr)rr�r�r�r	r
�
bigmemtestr�r�r�r rrrr�r�s���
���
����>�1�3N�O����W�q�[��E�B�X�C�P��X�
���
����>�1�3N�O����W�q�[��E�B�B�C�P��B�,
���
����>�1�3N�O����W�q�[��E�B�B�C�P��Brr�c	��[R"S5nUb9[R"[R"[
S[
U555 [R(a&[5n[SURSS5SS9 gg)Nr(zpatchlevel =�info�
patchlevelT)�flush)r�get_resource_valuer��enterModuleContext�	swap_attrr�r��verboser�printr-)r(r8s  r�setUpModuler�3sh���,�,�]�;�K����#�#����g�}�c�+�6F�G�	I�����e��
�n�c�h�h�v�|�<�D�I�r�__main__) r�r�r�r��testr�test.supportrr�
import_modulerr�rr�	_testcapir	r
�ImportError�maxsize�tuple�mapr��TCL_VERSION�splitr��TestCaser
r"r�r�r�mainrrr�<module>r�s�����
�	��&�"��&�&�z�2�����+�1��C��X�1�1�7�7��<�=�>��
A�(�#�#�
A�ZG�h���ZG�z.B�H�%�%�.B�bJ��z���M�M�O���W�+�"�{�{�*�G�n�+�s�C�C(�'C(

Youez - 2016 - github.com/yon3zu
LinuXploit