| Server IP : 118.27.122.248 / Your IP : 216.73.216.230 Web Server : Apache System : Linux web0264.sh.tyo1 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64 User : c9415830 ( 11735) PHP Version : 8.4.17 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /opt/alt/python36/lib64/python3.6/test/__pycache__/ |
Upload File : |
3
x2_�s �
@ s d dl Z d dlZd dlZd dlZd dlZd dlmZ ejd�Zd dl Z d dl m
Z
d dlm Z yd dl m
Z
mZ W n ek
r� ej Z
ZY nX eeeejjd���Zdadd � ZG d
d � d e j�ZG d d
� d
e j�ZG dd� de j�Z dd� Z dd� Z e dk�r
e � dS )� N)�support�_tkinter)�Tcl)�TclError)�INT_MAX�PY_SSIZE_T_MAX�.c C s� t d kr�t� } | jdd�}tjd|�}|j� \}}}}t|�t|�t|� }}}dddd�| }|dkrz||||dfa n||d||fa t S ) N�info�
patchlevelz(\d+)\.(\d+)([ab.])(\d+)ZalphaZbeta�final)�a�br r )�_tk_patchlevelr �call�re� fullmatch�groups�int)�tclr
�m�major�minor� releaselevel�serial� r �2/opt/alt/python36/lib64/python3.6/test/test_tcl.py�get_tk_patchlevel s r c @ s e Zd Zdd� ZdS )� TkinterTestc C s | j ttjd� 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 @ sf e Zd Zdd� Zdd� Zdd� Zdd� Zd d
� Zd d � Zd
d� Z dd� Z
dd� Z dd� Z dd� Z
dd� Zdd� Zdd � Zd d � Zd d � Zd!d"� Zd#d$� Zd%d&� Zd'd(� Zd)d*� Zd+d,� Zd-d.� Zd/d0� Zd1d2� Ze j e j d3kd4�d5d6� �Z d7d8� Z!d9d:� Z"d;d<� Z#d=d>� Z$e j e%dUkdA�dBdC� �Z&dDdE� Z'dFdG� Z(dHdI� Z)dJdK� Z*dLdM� Z+dNdO� Z,dPdQ� Z-dRdS� Z.dTS )V�TclTestc C s t � | _| jjj� | _d S )N)r �interp�tk� wantobjects)r r r r �setUp0 s z
TclTest.setUpc C s& | j }|jd� | j|jd�d� d S )Nzset a 1zset a�1)r& �eval� assertEqual)r r r r r �testEval4 s
zTclTest.testEvalc C s | j }| j|jd�d� d S )Nz set a "a\0b"za b)r& r, r+ )r r r r r �test_eval_null_in_result9 s z TclTest.test_eval_null_in_resultc C s | j }| jt|jd� d S )Nzset a)r& r r r+ )r r r r r �testEvalException= s zTclTest.testEvalExceptionc C s | j }| jt|jd� d S )Nz
this is wrong)r& r r r+ )r r r r r �testEvalException2A s zTclTest.testEvalException2c C s, | j }|jddd� | j|jdd�d� d S )N�setr r* )r& r r, )r r r r r �testCallE s zTclTest.testCallc C s | j }| jt|jdd� d S )Nr1 r )r& r r r )r r r r r �testCallExceptionJ s zTclTest.testCallExceptionc C s | j }| jt|jddd� d S )N�this�isZwrong)r& r r r )r r r r r �testCallException2N s zTclTest.testCallException2c C s( | j }|jdd� | j|jd�d� d S )Nr r* zset a)r& �setvarr, r+ )r r r r r �
testSetVarR s zTclTest.testSetVarc C s( | j }|jdd� | j|jd�d� d S )Nza(1)r* zset a(1))r& r7 r, r+ )r r r r r �testSetVarArrayW s zTclTest.testSetVarArrayc C s& | j }|jd� | j|jd�d� d S )Nzset a 1r r* )r& r+ r, �getvar)r r r r r �
testGetVar\ s
zTclTest.testGetVarc C s& | j }|jd� | j|jd�d� d S )Nz
set a(1) 1za(1)r* )r& r+ r, r: )r r r r r �testGetVarArraya s
zTclTest.testGetVarArrayc C s | j }| jt|jd� d S )Nr )r& r r r: )r r r r r �testGetVarExceptionf s zTclTest.testGetVarExceptionc C s | j }| jt|jd� d S )Nza(1))r& r r r: )r r r r r �testGetVarArrayExceptionj s z TclTest.testGetVarArrayExceptionc C sD | j }|jdd� | j|jd�d� |jd� | j|jd�d� d S )Nr � z
info exists ar* �0)r& r7 r, r+ �unsetvar)r r r r r � testUnsetVarn s
zTclTest.testUnsetVarc C st | j }|jdd� |jdd� | j|jd�d� | j|jd�d� |jd� | j|jd�d� | j|jd�d� d S ) Nza(1)r? za(2)� zinfo exists a(1)r* zinfo exists a(2)r@ )r& r7 r, r+ rA )r r r r r �testUnsetVarArrayu s
zTclTest.testUnsetVarArrayc C s | j }| jt|jd� d S )Nr )r& r r rA )r r r r r �testUnsetVarException s z TclTest.testUnsetVarExceptionc
C sF d}t � dks(dt � ko"dk n rB|d d dd
dd
f7 }|S ) Nr r? rC � �? � � r � i� ���l ��l � �� l i ���� l � ���� l ��� ) r r? rK rL rM rN rO rP rQ )rH rI r r )rH rJ rH )rH rI l l l���� l���� )r )r Zintegersr r r � get_integers� s
zTclTest.get_integersc C s4 | j j}xx| j� D ]l}| j|jd| �|� tdkrJ| j|jd| �|� | j|jd| jdd��|� | j|jd| �|� qW tdk r�| jt|jt dd �� | j|jd
�d
� | jt
|j� | jt
|jd d � | jt
|jd
� | jt
|jd� | jt|jd� | jt
t tf|jd� | jt t tf|jd� d S )Nz %d rH rJ z %#o �o� z %#x rC i� �* Z42�10s 42g E@r z42 u 42�)rH rJ )rH rJ )
r& r' rR r, �getint� tcl_version�replacer r �strr �
ValueError�UnicodeEncodeError)r r �ir r r � test_getint� s&
zTclTest.test_getintc C s� | j j}| j|jd�d� | j|jd�d� | j|jd�d� | j|jd�d� | jt|j� | jt|jdd� | jt|jd� | jt|jd � | jtttf|jd
� | jtttf|jd � d S ) Nz 42 g E@z 42.5 g @E@rU z42.5rV s 42.5r z42.5 u 42.5�) r& r' r, � getdoubler r r r[ r\ )r r r r r �test_getdouble� s
zTclTest.test_getdoublec C s� | j j}| j|jd�d� | j|jd�d� | j|jd�d� | j|jd�d� | jt|j� | jt|jdd� | jt|jd� | jt|jd� | jt|jd � | jtttf|jd
� | jtttf|jd � d S ) N�onTr* rU r Fs ong �?r zon u on�) r& r' ZassertIs�
getbooleanr r r r[ r\ )r r r r r �test_getboolean� s
zTclTest.test_getbooleanc
C s~ | j }ttjd�� }| jtjtj� |jd� W d Q R X |jtj� | 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 sl | j }ttjd�� }| jtjtj� |jd� W d Q R X |jtj� | j|j d�d� | j|j d�d� d S )Nrd z>
set a "a b"
set b "a\0b"
zset aza bzset b)
r& rg r rh ri rj rk rl r, r+ )r r rm r r r � test_evalfile_null_in_result� s z$TclTest.test_evalfile_null_in_resultc C sP | j }d}ytj|� W n" tk
r: } zW Y d d }~X nX | jt|j|� d S )NZ
doesnotexists)r& �os�remove� Exceptionr r rl )r r �filename�er r r �testEvalFileException� s z TclTest.testEvalFileExceptionc C s | j }| jt|jd� d S )Nzpackage require DNE)r& r r r+ )r r r r r �testPackageRequireException� s z#TclTest.testPackageRequireExceptionZwin32zRequires Windowsc C s� t jjtj�}|d dkr$tjd��dt jd |d |dd � f }t jj|�sZtjd��t j
� � }|j d � t j
|d
d g�}W d Q R X | jd |� d S )
Nr? �: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)rp �path�abspath�sys�
executable�unittestZSkipTest�environ�existsr ZEnvironmentVarGuardZunset�
subprocessZ check_output�assertIn)r �fullnameZunc_name�env�stdoutr r r �testLoadWithUNC� s
zTclTest.testLoadWithUNCc sJ � j ��jddd� �jddd� � �fdd�}� jt�j� � jt�jdd � � jt�jd
� � jt�jd � |d d
� |dd� |dd� |dd� |dd� |dd
� |dd
� |dd� |dd� |d d � |d d � |d d � |d!d� |d"d#� |d$d#� |d%d&� |d'd(� |d)d(� |d*d+� td1k�rF|d.td2�� d S )3Nr1 r rx r
rI c s& �j | �}� j||� � j|t� d S )N)�
exprstringr, �assertIsInstancerZ )�expr�expected�result)r r r r �check� s
z&TclTest.test_exprstring.<locals>.checkz8.2z+6s 8.2 + 6�spamrT r@ 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½€"]rf z [string length "a\xbd\u20ac"]z"abc"�abcu "a½€"u a½€z
"a\xbd\u20ac"z"a\0b"za brH rJ z2**64rC �@ )rH rJ l )r& r r r r� r rX rZ )r r� r )r r r �test_exprstring� s:
zTclTest.test_exprstringc s2 � j ��jddd� �jddd� � �fdd�}� jt�j� � jt�jdd � � jt�jd
� � jt�jd � |d d
� |dd� |dd� |dd� |dd� |dd
� |dd
� |dd� |dd� |d d � |d d � |d d � |d!d� |d"d#� |d$d#� � jt�jd%� td+k�r.|d(td,�� d S )-Nr1 r rx r
rI c s& �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� rT 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"rH rJ z2**64rC r� )rH rJ l )r& r r r r� r rX r� )r r� r )r r r �test_exprdouble s4
zTclTest.test_exprdoublec s4 � j ��jddd� �jddd� � �fdd�}� jt�j� � jt�jdd � � jt�jd
� � jt�jd � |d d
� |dd� |dd� |dd� |dd� |dd
� |dd
� |dd� |dd� |dd� |dd� |d d � |d d� |d d� |d d� � jt�jd!� td#k�r0� jt�jd"� d S )$Nr1 r rx r
rI c s& �j | �}� j||� � j|t� d S )N)�exprlongr, r� r )r� r� r� )r r r r r� B s
z$TclTest.test_exprlong.<locals>.checkz8.2z+6s 8.2 + 6r� rT r z8.2 + 6� z3.1 + $az 2 + "$a.$b"rJ z4*[llength "6 2"]rH z{word one} < "word $a"z4*2 < 7z hypot($a, 4)z5 / 4r? z5 / 4.0z$5 / ( [string length "abcd"] + 0.0 )z20.0/5.0� z "0x03" > "2"u [string length "a½€"]z [string length "a\xbd\u20ac"]z"abc"z2**64)rH rJ )r& r r r r� r rX )r r� r )r r r �
test_exprlong> s4
zTclTest.test_exprlongc s� � j ��jddd� �jddd� � �fdd�}� jt�j� � jt�jdd � � jt�jd
� � jt�jd � |d d
� x2d+D ]*}||d
� |d| d
� |d| d
� q�W x2d,D ]*}||d� |d| d� |d| d� q�W |dd� |dd� |dd� |d d� |d d
� |d d
� |d d� |d d� |d!d� |d"d� |d#d� |d$d� |d%d� |d&d� � jt�jd'� td-k�r�|d*d� d S ).Nr1 r rx r
rI c s2 �j | �}� j||� � j|t� � j|t� d S )N)� exprbooleanr, r� r ZassertNotIsInstance�bool)r� r� r� )r r r r r� b s
z'TclTest.test_exprboolean.<locals>.checkz8.2z+6s 8.2 + 6r� rT Fr@ �false�no�offz"%s"z{%s}r* �true�yesra 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"rH rJ z2**64)r@ r� r� r� )r* r� r� ra )rH rJ )r& r r r r� r rX )r r� �valuer )r r r �test_exprboolean^ sD
zTclTest.test_exprbooleanrH rJ zrequires Tcl version >= 8.5c sh � j �� �fdd�}|dd� |dd� |dd� |dd� |d d� |d
d� |d d� |d d� d S )
Nc sV �j d| �}�j� r.� j||� � j|t� n$� j|| tt|��f� � j|t� d S )Nr� )r r( r, r� r r� rZ )r� r� r� )r r r r r� � s z$TclTest.test_booleans.<locals>.checkr� Tr� ra 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}|jdt|��}| jrD| j||� | j|t� q| j|t|�� | j|t� qW tdk r�| j t
|jdtdd �� d S )Nr� rH rJ rC i� )rH rJ ) r& rR r rZ r( r, r� r rX r r )r r r] r� r r r �test_expr_bignum� s zTclTest.test_expr_bignumc sn � fdd�}� j |d�� jr dnd� � j |d�� jr:dnd� � j |d�d� � j |d�d� � j |d �d � � j |d
�d
� � j |d �d � � j |d �� jr�d nd � � j |d
�� jr�d
nd� � j |d�� jr�dnd� x0� j� D ]$}� j ||�� j�r|nt|�� q�W td"k �r6� j |dd �tdd �� x`ddd#d$tjjtjjtjj tjj fD ]4}� j�r~� j ||�|� n� j t ||��|� �q`W � j�r�|t d��}� j
||� � j |t d��t d�� � j |t d� �t d� � n<� j t |t d���t d�� � j t |t d� ��t d� � � j |d&�� j�r@d(nd � � j |d d d gg�� j�rdd*nd!� d S )+Nc s � j jdd| �S )Nr1 �_)r& r )r� )r r r � passValue� s z.TclTest.test_passing_values.<locals>.passValueTr* Fr@ �stringu string€zstr ingu str ing½u
str ing€s str ings str��ingu
strÀings str�ingu str½ingrH rJ rC i� g g �?r? rx �nan�infre �333333 @z1 2 3.4r r
�cza {b c})rH rJ g �gUUUUUU�?�r� )r? re r� �r� )r? re r� �r
r� )r r� ) r, r( rR rZ rX r{ �
float_info�min�maxr� ZassertNotEqual)r r� r] rm r )r r �test_passing_values� sF
$
zTclTest.test_passing_valuesc s� d � � fdd�}�j jd|� �j�j jjd� d+�jd�� �fdd� }�fdd�}|d d
� |d d � |d
� |d� |d� |d� |dd
� |dd� |dd� |dd� |d� |d� |d� |dd� |dd� |d d � x �j� D ]}||t|�� q�W td,k �r&|d d! td d! �� x d.D ]}||t |�� �q,W x8d/t
j j t
j j
t
j j t
j j
fD ]}|||d� �qhW |td&�|d� |td&� |d� |f d� |d$d0d1d)f fd*� |d$d gd'd(gd)g gd*� d S )2Nc s | � | S )Nr )�arg)r� r r �testfunc� s z+TclTest.test_user_command.<locals>.testfuncr� )�eqc sN |d kr | }d � �j jd| �}�j� t� |� |� �j|t� |||� d S )Nr� )r& r r� rZ )r� r� r� �r)r� r r r r� � s
z(TclTest.test_user_command.<locals>.checkc s � j t| �|t|�d d� d S )Ng�����|�=)Zdelta)ZassertAlmostEqualr� �abs)Zactualr� )r r r �float_eq� s z+TclTest.test_user_command.<locals>.float_eqTr* Fr@ r� u string½u string€rT s strings string€u stringâ¬s string�� zstr ingu str ing½u
str ing€s str ings str��ingu
strÀings str��ing€u strÀingâ¬rH rJ rC i� � � �?r? g @r� rx r� z5 6z1 2 {3 4} {5 6} {})N)rH rJ � �)r� r� r� gUUUUUU�?)rC )rx r� )r& �
createcommandri r' �
deletecommandr, rR rZ rX �reprr{ r� r� r� r� )r r� r� r� r] rm r )r� r r �test_user_command� sH
zTclTest.test_user_commandc C s> | j jj}| j jj}| jt|� | jt|dd� | jt|d� d'df fd)d+d-d/d1d3d5d7d9d<d>dAdCdFf f fg f fddd ggddd gff|ddddG�| j� r�dIndJfg}t� }tdKk� r�| j � s�|dLk � r�dM}ndO}||d!d"d d d dP�|fg7 }d#| jt|f }x,|D ]$\}}| j ||�|d$||f � �qW | jt
|d%� d S )QNr r
rC re rT �{}�""�
a
b
c
r� �
a
b
c
� a €� €� a €� a��b c��d�a b�c d�a {b c}�b c�a b\ c�a 2�a 3.4�3.4�333333 @�listr? r* rH rJ �12� â¬� � €�dict�createz4want objects? %s, Tcl version: %s, Tk patchlevel: %sz
arg=%a, %s�{�re )re r� �rT )r� r� �rT )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 r� �r r� )r� r� �r re )r� r� �r rC �r rC )r� r� �r r� )r� r� �r r� �r r� )r� r� )r� �r� )r? re r� )r* re r� )rH rJ )rH rJ rJ )r� r� r� r� �r� )r� r� r� r� )r� ) r& r' � splitlistr r r r( r rX r, r ) r r� r � testcasesZ
tk_patchlevelr� Zdbg_infor� �resr r r �test_splitlist sR
zTclTest.test_splitlistc C s | j jj}| j jj}| jt|� | jt|dd� | jt|d� d)d*d+d,d-d/d1d3d5d6d8d9d<d?dCdGdIdLdNdQdVf f fg f fddgdXfddd
ggdZf|d d dd[�| j� r�d]nd^fg}td_k� r�| j � s�t� d`k � r�da}ndc}||d&d'd$d
d%dd�|fg7 }x&|D ] \}}| j ||�||d(� � q�W d S )eNr r
rC re rT �{}�""r� �
a
b
c
r� �
a
b
c
� a €� €� a €� a��b�a b� a��b c��d�c d�
{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� r? r* rH rJ r� � â¬r� � €r� r� )�msg)re re )rT rT )r� rT )r� rT )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� r �r
r� �r r )r� r �r r� �r
r� �r r )r r �r r �r
r� �r r )r r �r re )r r �r rC �r rC )r r �r r )r r �r r �r r )r r �rC r �r r �rC r �r r )r r �r
r� )r r! �r
r� )r r" )r �r )r? re r# )r* re r )rH rJ )rH rJ rJ )r� r� r r �r )r� r� r r$ )r )
r& r' �splitr r r r( rX r r, )r r% r r� r� r� r� r r r �
test_split8 sT
zTclTest.test_splitc C sD t j}| jj}d}| j|||d�dddd�� | j|||�dddd�� d}| j|||d�dddd�� | j|||�dddd�� | jt||d� | jt||d� |jddd d dd
f �}| j|||�| jr�d ndddd�� t d k�r@|jdddd d dd
f �}| j �st
� d k �r"dddd�}n d!ddd�}| j|||�|� d S )"Nz#-a {1 2 3} -something foo status {}Fz1 2 3�foorT )z-az
-something�status)r Z somethingr( �-ar? rC rx �
-somethingr( �{}z-a b -c r
�-cr� rH rJ r� r� �r? rC rx )r) r- r* r' r( r+ )r? rC rx )r? rC rx )r) r
r, )r? rC rx )r? rC rx )rH rJ )r? rC rx )rH rJ rJ )r? rC rx ) �tkinterZ
_splitdictr& r' r, r � RuntimeErrorr r( rX r )r Z splitdictr r� r� r r r �test_splitdicti s4
zTclTest.test_splitdictc s� t j� �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 � d S ) Nc s � j d| d�S )NZlindexr )r )�s)r r r �unpack� s z!TclTest.test_join.<locals>.unpackc s� �j �� | g��| � �j �� | dg��| � �j ��� | gg���| � �j ��� | dgg���| � �j ��� | gdg���| � �j ��� | dgdg���| � d S )Nr )r, )r� )�joinr r2 r r r� � s z TclTest.test_join.<locals>.checkrT r� 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}
)r. Z_joinr& r' )r r� r )r3 r r r2 r � test_join� s8 zTclTest.test_joinc C s | j ttj� d S )N)r r r ZTcl_Obj)r r r r �test_new_tcl_obj� s zTclTest.test_new_tcl_objN)rH rJ )/r" r# r$ r) r- r. r/ r0 r2 r3 r6 r8 r9 r; r< r= r> rB rD rE rR r^ r` rc rn ro ru rv r} �
skipUnlessr{ �platformr� r� r� r� r� rX r� r� r� r� r� r& r0 r4 r5 r r r r r% . sN
# )
*601#%r% c @ s� e Zd Zdd� Zejejee k d�ej
ed ddd�dd � ���Z ejejee k d�ej
ed d
dd�d d � ���Z ejejee k d�ej
ed d
dd�dd� ���Z
dS )�
BigmemTclTestc C s t � | _d S )N)r r& )r r r r r) � s zBigmemTclTest.setUpzneeds UINT_MAX < SIZE_MAXr? rJ F)�sizeZmemuseZdry_runc C s$ d| }| j t| jjdd|d� d S )N� r� �indexr )r �
OverflowErrorr& r )r r9 r� r r r �test_huge_string_call� s z#BigmemTclTest.test_huge_string_callrC c C sT | j j}dd| }| jt|j|� | jt|j|� | jt|j|� | jt|j|� | jt|j|� | jt|j |� | jt|j
|� | jt|j |dd� | jt|j d|d� | jt|j |� | jt|j d|� | jt|j
|� | jt|j
|� | jt|j|� | jt|j|� | jt|j|� | jt|j|� | jt|j|t� | jt|j|� d S )Nr* r: �xr )r& r' r r< rW r_ rb r+ rl �recordZ adderrorinfor7 rA r� r� r� r� r% r� r� r� )r r9 r' r� r r r �test_huge_string_builtins� s* z'BigmemTclTest.test_huge_string_builtinsrI c C sJ | j j}dd| }| jt|j|� | jt|j|� | jt|jd|� d S )Nr* r: r> )r& r' r r< rl rA )r r9 r' r� r r r �test_huge_string_builtins2� s
z(BigmemTclTest.test_huge_string_builtins2N)r" r# r$ r) r Z cpython_onlyr} r6 r r Z
bigmemtestr= r@ rA r r r r r8 � s r8 c C s" t jr t� } td| jdd�� d S )Nz patchlevel =r r
)r �verboser �printr )r r r r � setUpModule� s rD c C s t jttt� d S )N)r Z run_unittestr% r r8 r r r r � test_main� s rE �__main__) r} r r� r{ rp Ztestr �
import_moduler r. r r Z _testcapir r � ImportError�maxsize�tuple�mapr Z TCL_VERSIONr% rX r r ZTestCaser r% r8 rD rE r" r r r r �<module> s8
2