python (3.12.0)
Browse
Usage
Versions
Αel d dl Z d dlZd dlZd dlZd dlmZ d dlmZ d dlmZ ej d Z
d dl Z d dl m Z d dl
m
Z
d dlmZmZ e eee
j, j/ d Z G d
d e j2 Z G d d
e j2 Z G d de j2 Z d Z e dk( r e j> yy# e$ r ej$ xZZY w xY w) N)support)
import_helper) os_helper_tkinter)Tcl)TclError)INT_MAXPY_SSIZE_T_MAX.c e Zd Zd Zy) TkinterTestc . | j t t j d | j t t j i | j t t j d | j t t j dh y )NTstringset) assertRaises TypeErrorr _flattenselfs A/BuggyBox/python/3.12.0/bootstrap/lib/python3.12/test/test_tcl.pytestFlattenLenzTkinterTest.testFlattenLen sf )X%6%6= )X%6%6;
)X%6%6A )X%6%6@ N)__name__
__module__ __qualname__r r r r
r
s Ar r
c ` e Zd Zd Zd Zd Zd Zd Zd Zd Z d Z
d Z d
Z d Z
d Zd
Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Zd Z d Z e j> e jB d k( d 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* Z0y+),TclTestc t t | _ | j j j | _ y N)r interptk wantobjectsr s r setUpz
TclTest.setUp' s$ e ;;>>557r c | j }|j d | j |j d d y )Nset a 1set a1)r! eval assertEqualr tcls r testEvalzTclTest.testEval+ s0 kk '*3/r c ^ | j }| j |j d d y )Nz set a "a\0b"a b)r! r* r) r+ s r test_eval_null_in_resultz TclTest.test_eval_null_in_result0 s$ kk /2H=r c ^ | j }| j |j d d y )Nzset a "<\ud83d\udcbb>" <💻>)r! assertInr) r+ s r test_eval_surrogates_in_resultz&TclTest.test_eval_surrogates_in_result4 s# kk
chh 89>Jr c ^ | j }| j t |j d y )Nr' r! r r r) r+ s r testEvalExceptionzTclTest.testEvalException8 s! kk (388G4r c ^ | j }| j t |j d y )Nz
this is wrongr6 r+ s r testEvalException2zTclTest.testEvalException2< s! kk (388O<r c | j }|j ddd | j |j dd d y )Nr ar( )r! callr* r+ s r testCallzTclTest.testCall@ s6 kk s3 %,S1r c ` | j }| j t |j dd y )Nr r; r! r r r< r+ s r testCallExceptionzTclTest.testCallExceptionE s# kk (388E#6r c b | j }| j t |j ddd y )Nthisiswrongr? r+ s r testCallException2zTclTest.testCallException2I s% kk (388F4@r c | j }|j dd | j |j d d y )Nr; r( r' r! setvarr* r) r+ s r
testSetVarzTclTest.testSetVarM s2 kk
3s '*3/r c | j }|j dd | j |j d d y )Na(1)r( zset a(1)rG r+ s r testSetVarArrayzTclTest.testSetVarArrayR s2 kk
6# *-c2r c | j }|j d | j |j d d y )Nr& r; r( r! r) r* getvarr+ s r
testGetVarzTclTest.testGetVarW s/ kk C -r c | j }|j d | j |j d d y )Nz
set a(1) 1rK r( rN r+ s r testGetVarArrayzTclTest.testGetVarArray\ s0 kk F+C0r c ^ | j }| j t |j d y Nr; r! r r rO r+ s r testGetVarExceptionzTclTest.testGetVarExceptiona s! kk (3::c2r c ^ | j }| j t |j d y )NrK rU r+ s r testGetVarArrayExceptionz TclTest.testGetVarArrayExceptione s! kk (3::f5r c | j }|j dd | j |j d d |j d | j |j d d y )Nr; z
info exists ar( 0r! rH r* r) unsetvarr+ s r testUnsetVarzTclTest.testUnsetVari sW kk
3q /237 S /237r c | j }|j dd |j dd | j |j d d | j |j d d |j d | j |j d d | j |j d d y ) NrK rZ za(2) zinfo exists a(1)r( zinfo exists a(2)r[ r\ r+ s r testUnsetVarArrayzTclTest.testUnsetVarArrayp s kk
6!
6! "45c: "45c: V "45c: "45c:r c ^ | j }| j t |j d y rT )r! r r r] r+ s r testUnsetVarExceptionz TclTest.testUnsetVarExceptionz s! kk (3<<4r c . ddddddddd d
d d d
z d d
z f
S )Nr rZ ii l l l l l l r` i r r s r get_integerszTclTest.get_integers~ s4 1b4!T'# #r c | j j }| j D ] }| j |j d|z | | j |j d|z | | j |j d|z j dd t dk r|n
t d|z | j |j d|z | | 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 y )Nz %d z %#o o ) r z%oz %#x * 4210s 42 E@r; z42 u 42)
r! r" rf r* getintreplace tcl_versionintr r r
ValueErrorUnicodeEncodeError)r r, is r test_getintzTclTest.test_getint s kknn""$ 9A SZZ
3Q 7 SZZ! 4a 8
SZZ1(=(=c2(F G"-"6QCqM
K SZZ! 4a 8 9
B , )SZZ0 )SZZt< )SZZ7 )SZZ6 (CJJ4 9j(; **f . -z8D **j 2r c | j j }| j |j d d | j |j d d | j |j d d | j |j d d | j t
|j | j t
|j dd | j t
|j d | j t |j d | j t
t t f|j d
| j t t t f|j d y ) Nz 42 rn z 42.5 g @E@rk z42.5rm s 42.5r; z42.5 u 42.5) r! r" r* getdoubler r r rs rt r+ s r test_getdoublezTclTest.test_getdouble s kknn v.5 x0$7 t,d3 r*D1 )S]]3 )S]]FDA )S]]G< (CMM37 9j(; -- 3 -z8D -- 7r c 2 | j j }| j |j d d | j |j d d | j |j d d | j |j d d | j t
|j | j t
|j dd | 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 y ) NonTr( rk r Fs on ?r; zon u on) r! r" assertIs
getbooleanr r r rs rt r+ s r test_getbooleanzTclTest.test_getboolean s kknn
cnnT*D1
cnnS)40
cnnR($/
cnnQ'/ )S^^4 )S^^T3? )S^^U; )S^^S9 (CNNC8 9j(; ..& 2 -z8D ..* 6r c | j }t j }| j t j | t |d 5 }|j
d d d d |j | | j |j d d | j |j d d | j |j d d y # 1 sw Y ~xY w) NwzKset a 1
set b 2
set c [ expr $a + $b ]
r' r( set b2zset c3
r! r TESTFN_ASCII
addCleanupunlinkopenwriteevalfiler* r) r r, filenamefs r testEvalFilezTclTest.testEvalFile s kk )) (((3
(C
A
GG
X '*3/ '*3/ '*3/ s CC!c | j }t j }| j t j | t |d 5 }|j
d d d d |j | | j |j d d | j |j d d y # 1 sw Y ]xY w)Nr z>
set a "a b"
set b "a\0b"
r' r/ r r r s r test_evalfile_null_in_resultz$TclTest.test_evalfile_null_in_result s kk )) (((3
(C
A
GG
X '*H5 '*H5 s B77C c | j }|j dd }| j |j dd| |j ddd t j }| j t j
| t
|d 5 }|j d d d d |j | | j |j d d | j |j d d y # 1 sw Y ]xY w) Nencodingsystemzutf-8wbsM
set a "<>"
set b "<\ud83d\udcbb>"
r' r2 r ) r! r< r r r r r r r r* r) )r r, r r r s r "test_evalfile_surrogates_in_resultz*TclTest.test_evalfile_surrogates_in_result s kk88J1 *hA Xw/ )) (((3
(D
! Q
GG
X '*N; '*N; s C::Dc | j }d} t j | | j t
|j | y # t $ r
}Y d }~0d }~ww xY w)N
doesnotexists)r! osremove Exceptionr r r )r r, r es r testEvalFileExceptionz TclTest.testEvalFileException sN kk" IIh
(3<<9 s A AAc ^ | j }| j t |j d y )Nzpackage require DNEr6 r+ s r testPackageRequireExceptionz#TclTest.testPackageRequireException s" kk (388,ABr win32zRequires Windowsc t j j t j }|d dk7 rt j d dt j d d|d d|d d }t j j | st j d
t j 5 }|j d t j |d d
g }d d d | j d y # 1 sw Y xY w)NrZ :z$Absolute path should have drive partz\\ COMPUTERNAME\r z$\ zCannot connect to UNC Path TCL_LIBRARY-cz import tkinter; print(tkinter)s tkinter)r pathabspathsys
executableunittestSkipTestenvironexistsr EnvironmentVarGuardunset
subprocess check_outputr3 )r fullnameunc_nameenvstdouts r testLoadWithUNCzTclTest.testLoadWithUNC s 77??3>>2 A;# ##$JK K %'ZZ%?$,QK$,QRL2 ww~~h'##$@A A
*
*
, H IIm $ ,, t%EFHF H
j&) H Hs 5*C::Dc j j ddd j ddd fd} j t j j t j dd j t j d j t
j d
|d d |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+t
d, y )-Nr r; r b c x j | }j || j |t y r )
exprstringr* assertIsInstancestrexprexpectedresultr r, s r checkz&TclTest.test_exprstring.<locals>.check s1 ^^D)F VX . ! !&# .r 8.2+6 8.2 + 6spamri r[ 8.2 + 6z14.23.1 + $az6.1 2 + "$a.$b"z5.64*[llength "6 2"]8{word one} < "word $a"4*2 < 7 hypot($a, 4)z5.05 / 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½€"u a½€z
"a\xbd\u20ac"z"a\0b"r/ 2**64 )r! r< r r r r r r r r, s ` @r test_exprstringzTclTest.test_exprstring s\ kk Q Q /
)S^^4 )S^^UDA )S^^Z@ (CNNF;
b#
i
j%
mU#
!3'
&,
i
ne$
gs
i
4f=
j%
nc"
-s3
.4
gu
o}-
.
i"
gs5z"r c j j ddd j ddd fd} j t j j t j dd j t j d j t
j d
|d d |d
d |dd |dd |dd |dd |dd |dd |dd |dd |d d |d d |d d |d!d" |d#d" j t
j d$ |d%t
d& y )'Nr r; r r r c x j | }j || j |t y r )
exprdoubler* r floatr s r r z&TclTest.test_exprdouble.<locals>.check- s1 ^^D)F VX . ! !&% 0r r 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< r r r r r r s ` @r test_exprdoublezTclTest.test_exprdouble) sI kk Q Q 1
)S^^4 )S^^UDA )S^^Z@ (CNNF;
b#
i
j#
mS!
!3'
&,
i
nc"
gs
i
4d;
j#
nc"
-s3
.4 (CNNG<
guU|$r c j j ddd j ddd fd} j t j j t j dd j t j d j t
j d
|d d |d
d |dd |dd |dd |dd |dd |dd |dd |dd |dd |dd |d d |d d |d d j t
j d j t
j d! y )"Nr r; r r r c x j | }j || j |t y r )exprlongr* r rr r s r r z$TclTest.test_exprlong.<locals>.checkL s1 \\$'F VX . ! !&# .r r r r r ri r r r r r r r r r rZ r r r r r r r r )r! r< r r r r r s ` @r
test_exprlongzTclTest.test_exprlongH sQ kk Q Q /
)S\\2 )S\\5$? )S\\:> (CLL&9
b!
i
j!
mQ
!1%
&*
i
na
gq
i
4a8
j!
na
-q1
.2 (CLL': (CLL':r c j j ddd j ddd fd} j t j j t j dd j t j d j t
j d
|d d d
D ]# } ||d |d|z d |d|z d % dD ]# } ||d |d|z d |d|z d % |dd |dd |dd |dd |dd |dd |dd |dd |dd |dd |d d |d d |d d |d d j t
j d |d!d y )"Nr r; r r r c j | }j || j |t j |t
y r ) exprbooleanr* r rr assertNotIsInstanceboolr s r r z'TclTest.test_exprboolean.<locals>.checkk sA __T*F VX . ! !&# . $ $VT 2r r r r r ri F)r[ falsenooffz"%s"z{%s})r( trueyesr{ Tr r r r r r r r r r r r r r r r )r! r< r r r r )r r valuer, s ` @r test_exprbooleanzTclTest.test_exprbooleang s kk Q Q 3
)S__5 )S__eTB )S__jA (COOV<
b%0 )E % &5.% ( &5.% ( ) 0 (E % &5.$ ' &5.$ ' ( i
j$
mT"
!4(
&.
i
nd#
gt
i
4d;
j$
nd#
-t4
.5 (COOW=
gt r c j fd} |dd |dd |dd |dd |dd |d d |d
d |d d y ) Nc j d| }j r)j || j |t y j || t
t | f j |t y Nr )r< r# r* r rr r3 r r s r r z$TclTest.test_booleans.<locals>.check si XXfd+F 2%%fc2
ftSX -?&@A%%fc2r r Tr r{ r Fr r z1 < 2z1 > 2)r! r s ` @r
test_booleanszTclTest.test_booleans sc kk 3 fd
eT
dD
gu
dE
eU
gt
gu r c H | j }| j D ] }|j dt | }| j r)| j || | j
|t S| j |t | | j
|t y r )r! rf r< r r# r* r rr )r r, ru r s r test_expr_bignumzTclTest.test_expr_bignum s kk""$ 3AXXfc!f-F +%%fc2 Q0%%fc2 3r c fd} j |d j rdnd j |d j rdnd j |d d j |d d j |d d j |d d j |d
d
j |d d j |d d t j d
k7 r0 j |d d j |d d j |d j rdnd j |d j rdnd j |d j rdnd j D ]1 } j || j r|n
t | 3 ddddt j j t j j t j j t j j fD ]H } j r j || | ( j t || | J j rz |t d } j || j |t d t d j |t d t d nh j t |t d t d j t |t d t d j |d j rd nd j |d d d!gg j rd" y d# y )$Nc > j j dd| S )Nr _)r! r< )r r s r passValuez.TclTest.test_passing_values.<locals>.passValue s ;;##E36 6r Tr( Fr[ r string€
string💻str ing str ing½
str ing€u str ing💻r <> <€> <>r2 str ing string
strÀings stringu str½ingr r| UUUUUU?naninfrZ r 333333 @z1 2 3.4r; r c)r; )r r a {b c}) r* r# r platformrf r
float_infominmaxr assertNotEqual)r r ru r s ` r test_passing_valueszTclTest.test_passing_values s\ 7
4 $2B2B$L 5)D4D4D5#N 8,h7 >2NC #568JK <0,? #346FG #568JK #9:/ 1 <<7 " Y'= > '
) Y'O P +
- =1*.*:*: N #45.2.>.>*DT V =1*.*:*: N""$ NA Yq\0@0@1c!f M NsD#..$$cnn&8&8>>%%%(:(:':< 9A 1 q1 y|!4a8
9 %,'A 1 % YuU| 4eEl C Ye } 5e } E U9U5\#: ;U5\ J U9eEl]#; <uU|m L #34-1-=-=)9 N C#s#45.2.>.>* ODM Or c P d fd} j j d| j j j j d d, j
d fd } fd} |dd |dd |d
|d |d |d
t j dk7 r |dd |dd |d |dd
|dd |dd |dd |d |d |d |d d |d d |d d j D ] } ||t | d!D ] } ||t | d"t j j t j j t j j t j j fD ] } ||| |t d# | |t d# | |d$d |d%d& |d'd(gd)d*gd+g gd& y )-Nc | | S r r )argr s r testfuncz+TclTest.test_user_command.<locals>.testfunc s
FJr r )eqc || }d j j d| }j t || j |t ||| y )Nr )r! r< r r )r r r rr r s r r z(TclTest.test_user_command.<locals>.check s\ F U3A ! !&# . vx ! !!S ) q(Or c X j t | |t | dz y )Ng|=)delta)assertAlmostEqualr abs)actualr r s r float_eqz+TclTest.test_user_command.<locals>.float_eq s+ " "5=(),X )>
#
@r Tr( Fr[ r u string½r r r r r r r2 ri s strings string€u stringâ¬s stringr r r r r
r r s string€u strÀingâ¬)r r| r
r r r )rZ )r` )r r 5 6r z1 2 {3 4} {5 6} {}rZ r` r r r) r )r!
createcommandr r"
deletecommandr* r r rf r reprr r r r )r r r r( ru r r s ` @r test_user_commandzTclTest.test_user_command s
!!*h7 44jA d.>.> @ dC
eS
h
l
n
! <<7 " (* 5 :N K
b
i"
#%9:
m\*
c2
l
!
m\*
!12
+-IJ""$ A !SV ! A !T!W ++S^^-?-?>>%%%(:(:':< "A ! ! " eElx(
uU|m)
b"
*,@A
q1$Ar*,@Ar c | j j j }| j j j }| j t
| | j t
|dd | j t
|d dddddd d
d d d
ddddddddddg dfdddggdddgff |ddd d | j rd nd fg}| j sd }nd!}| |d"d#d$d%d&d |fgz
}d'| j d(t d)| j j }|D ]$ \ }}| j || |d*|d+| & | j t |d, y )-Nr; r r` )r )r )ri r ){}ri )z""r0 )z
a
b
c
r; r r )s
a
b
c
r1 )u a €r; €)u a 💻r; u 💻)s a €r2 )s a 💻r4 )s a r4 )s ab cd)r/ zc d)r r; zb c)za b\ cr5 )r5 r5 )za 2)r; r )r; r` r6 )za 3.4)r; 3.4)r; r r8 )r r r r listrZ r r r )r( r r7 )12r3 u â¬r7 ) r3 €r dictcreater; r3 r< zwant objects? z, Tcl version: z, Tcl patchlevel: zarg=z, {) r! r" splitlistr< r r r# rq info_patchlevelr* r )r r@ r< testcasesr dbg_infor ress r test_splitlistzTclTest.test_splitlist s KKNN,, {{~~"" )Y/ )YS9 )Y2 / 0 ) 1 0 8 @ < % % ( # $
HC:
sCj 1 2
&!S&
)$($4$4 !
#/
6 >H>H
&(B/6
J
''dkk6Q6Q6SU! =HC Ys^S-0( ;
= =
(Is3r c
t j }| j j }d}| j |||d dddd | j ||| dddd d}| j |||d d dd
d | j ||| d dd
d | j t ||d | j t ||d |j d
dd dddd }| j ||| | j rd ndddd |j dddd dddd }| j sdddd}nd ddd}| j ||| | y )Nz#-a {1 2 3} -something foo status {}Fz1 2 3foori )-a
-somethingstatus)r; somethingrJ )rH rZ r` r rI rG rJ r/ rL r/ z-a b -c )rH r r r9 rH rI rJ r r= r> ) tkinter
_splitdictr! r" r* r RuntimeErrorr< r# )r splitdictr, r r s r test_splitdictzTclTest.test_splitdictE s && kknn3 3U3%2 > @ 3, < > E 3U3 ET B D 3,%4 @ B
, 3
C , 38IJhhv i uhL 3, # / /)W 2
/ 0 hhvxY eXrK $5BGH &UbIH 3,h7r c t j j j 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 y )Nc * j d| d S )Nlindexr )r< )sr, s r unpackz!TclTest.test_join.<locals>.unpacki s 88Ha+ +r c
j | g | j | dg | j | gg | j | dgg | j | gdg | j | dgdg | y )Nr )r* )r joinr rV s r r z TclTest.test_join.<locals>.checkk s VD%M 2E : VD%$4 5u = VF4% ?$; <e D VF4% +=$> ? G VF4%! +=$> ? G VF4%Q+@$A BE Jr ri 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}
)rM _joinr! r" )r r rX r, rV s ` @@@r test_joinzTclTest.test_joinf s }}kknn , 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 r c t j | t j t j | t j t j | t j
y r )r check_disallow_instantiationr Tcl_ObjTkttType TkappTyper s r test_new_tcl_objzTclTest.test_new_tcl_obj sD ,,T83C3CD,,T83D3DE,,T83E3EFr N)1r r r r$ r- r0 r4 r7 r9 r= r@ rE rI rL rP rR rV rX r^ ra rc rf rv ry r r r r r r r
skipUnlessr r r r r r r r r r r- rE rQ rZ r cpython_onlyr` r r r r r % s 80
>K5=2
7A0
3
.
1
368;5# 2*
7 6 0 6<":C X 02DE* F** #D %> ;>& P & 3.O`6Bp.4` 8B#J
G Gr r c e Zd Zd Zej
ej ee k d ej edz dd d Z ej
ej ee k d ej edz dd d Z ej
ej ee k d ej edz d
d d Z
y )
BigmemTclTestc " t | _ y r )r r! r s r r$ zBigmemTclTest.setUp s e r zneeds UINT_MAX < SIZE_MAXrZ r F)sizememusedry_runc j d|z }| j t | j j dd|d y )N r indexr )r
OverflowErrorr! r< )r rf r s r test_huge_string_callz#BigmemTclTest.test_huge_string_call s0 d
-)9)98WeUVWr r` c | j j }dd|z z }| j t |j | | j t |j
| | j t |j | | j t |j | | j t |j | | j t |j | | j t |j | | j t |j |dd | j t |j d|d | j t |j | | j t |j d| | j t |j | | j t |j | | j t |j | | j t |j | | j t |j | | j t |j" |t$ | j t |j& | y )Nr( rj xr; )r! r" r rl ro rx r~ r) r record adderrorinforH r] r r r r@ r* r r+ r rf r" r s r test_huge_string_builtinsz'BigmemTclTest.test_huge_string_builtins s [[^^cDj -E: - u= - > -%8 -e< -E: - %@ -E3D -CD -e< -c5A - %@ - > -e< - ? - u= -)9)95#F -)9)95Ar r c | j j }dd|z z }| j t |j | | j t |j
| | j t |j
d| y )Nr( rj ro )r! r" r rl r r] rr s r test_huge_string_builtins2z(BigmemTclTest.test_huge_string_builtins2 sc
[[^^cDj -e< -e< -c5Ar N)r r r r$ r rb r ra r r
bigmemtestrm rs ru r r r rd rd s
X>13NOWWq[EBX C P X
X>13NOWWq[EBB C P B,
X>13NOWWq[EBB C P Br rd c v t j r)t } t d| j dd d y y )Nz patchlevel =info
patchlevelT)flush)r verboser printr< )r, s r setUpModuler} s, e
nchhv| <DI r __main__) r r r r testr test.supportr r
import_moduler rM r r _testcapir r
ImportErrormaxsizetuplemaprr TCL_VERSIONsplitrq TestCaser
r rd r} r mainr r r <module>r s
& " '= & &z 2 +1 CX 1 1 7 7 <=>
A(##
Aj Gh j GX.BH%% .BbJ zHMMO m + "{{*Gn+s C C&%C&