xref: /third_party/python/Lib/test/test_tcl.py

30         tcl = Tcl()
31         _tk_patchlevel = tcl.info_patchlevel()
55         tcl = self.interp
56         tcl.eval('set a 1')
57         self.assertEqual(tcl.eval('set a'),'1')
60         tcl = self.interp
61         self.assertEqual(tcl.eval('set a "a\\0b"'), 'a\x00b')
64         tcl = self.interp
65         self.assertIn(tcl.eval(r'set a "<\ud83d\udcbb>"'), '<\U0001f4bb>')
68         tcl = self.interp
69         self.assertRaises(TclError,tcl.eval,'set a')
72         tcl = self.interp
73         self.assertRaises(TclError,tcl.eval,'this is wrong')
76         tcl = self.interp
77         tcl.call('set','a','1')
78         self.assertEqual(tcl.call('set','a'),'1')
81         tcl = self.interp
82         self.assertRaises(TclError,tcl.call,'set','a')
85         tcl = self.interp
86         self.assertRaises(TclError,tcl.call,'this','is','wrong')
89         tcl = self.interp
90         tcl.setvar('a','1')
91         self.assertEqual(tcl.eval('set a'),'1')
94         tcl = self.interp
95         tcl.setvar('a(1)','1')
96         self.assertEqual(tcl.eval('set a(1)'),'1')
99         tcl = self.interp
100         tcl.eval('set a 1')
101         self.assertEqual(tcl.getvar('a'),'1')
104         tcl = self.interp
105         tcl.eval('set a(1) 1')
106         self.assertEqual(tcl.getvar('a(1)'),'1')
109         tcl = self.interp
110         self.assertRaises(TclError,tcl.getvar,'a')
113         tcl = self.interp
114         self.assertRaises(TclError,tcl.getvar,'a(1)')
117         tcl = self.interp
118         tcl.setvar('a',1)
119         self.assertEqual(tcl.eval('info exists a'),'1')
120         tcl.unsetvar('a')
121         self.assertEqual(tcl.eval('info exists a'),'0')
124         tcl = self.interp
125         tcl.setvar('a(1)',1)
126         tcl.setvar('a(2)',2)
127         self.assertEqual(tcl.eval('info exists a(1)'),'1')
128         self.assertEqual(tcl.eval('info exists a(2)'),'1')
129         tcl.unsetvar('a(1)')
130         self.assertEqual(tcl.eval('info exists a(1)'),'0')
131         self.assertEqual(tcl.eval('info exists a(2)'),'1')
134         tcl = self.interp
135         self.assertRaises(TclError,tcl.unsetvar,'a')
144         tcl = self.interp.tk
146             self.assertEqual(tcl.getint(' %d ' % i), i)
147             self.assertEqual(tcl.getint(' %#o ' % i), i)
150             self.assertEqual(tcl.getint((' %#o ' % i).replace('o', '')),
152             self.assertEqual(tcl.getint(' %#x ' % i), i)
153         self.assertEqual(tcl.getint(42), 42)
154         self.assertRaises(TypeError, tcl.getint)
155         self.assertRaises(TypeError, tcl.getint, '42', '10')
156         self.assertRaises(TypeError, tcl.getint, b'42')
157         self.assertRaises(TypeError, tcl.getint, 42.0)
158         self.assertRaises(TclError, tcl.getint, 'a')
160                           tcl.getint, '42\0')
162                           tcl.getint, '42\ud800')
165         tcl = self.interp.tk
166         self.assertEqual(tcl.getdouble(' 42 '), 42.0)
167         self.assertEqual(tcl.getdouble(' 42.5 '), 42.5)
168         self.assertEqual(tcl.getdouble(42.5), 42.5)
169         self.assertEqual(tcl.getdouble(42), 42.0)
170         self.assertRaises(TypeError, tcl.getdouble)
171         self.assertRaises(TypeError, tcl.getdouble, '42.5', '10')
172         self.assertRaises(TypeError, tcl.getdouble, b'42.5')
173         self.assertRaises(TclError, tcl.getdouble, 'a')
175                           tcl.getdouble, '42.5\0')
177                           tcl.getdouble, '42.5\ud800')
180         tcl = self.interp.tk
181         self.assertIs(tcl.getboolean('on'), True)
182         self.assertIs(tcl.getboolean('1'), True)
183         self.assertIs(tcl.getboolean(42), True)
184         self.assertIs(tcl.getboolean(0), False)
185         self.assertRaises(TypeError, tcl.getboolean)
186         self.assertRaises(TypeError, tcl.getboolean, 'on', '1')
187         self.assertRaises(TypeError, tcl.getboolean, b'on')
188         self.assertRaises(TypeError, tcl.getboolean, 1.0)
189         self.assertRaises(TclError, tcl.getboolean, 'a')
191                           tcl.getboolean, 'on\0')
193                           tcl.getboolean, 'on\ud800')
196         tcl = self.interp
204         tcl.evalfile(filename)
205         self.assertEqual(tcl.eval('set a'),'1')
206         self.assertEqual(tcl.eval('set b'),'2')
207         self.assertEqual(tcl.eval('set c'),'3')
210         tcl = self.interp
218         tcl.evalfile(filename)
219         self.assertEqual(tcl.eval('set a'), 'a\x00b')
220         self.assertEqual(tcl.eval('set b'), 'a\x00b')
223         tcl = self.interp
224         encoding = tcl.call('encoding', 'system')
225         self.addCleanup(tcl.call, 'encoding', 'system', encoding)
226         tcl.call('encoding', 'system', 'utf-8')
235         tcl.evalfile(filename)
236         self.assertEqual(tcl.eval('set a'), '<\U0001f4bb>')
237         self.assertEqual(tcl.eval('set b'), '<\U0001f4bb>')
240         tcl = self.interp
246         self.assertRaises(TclError,tcl.evalfile,filename)
249         tcl = self.interp
250         self.assertRaises(TclError,tcl.eval,'package require DNE')
275         tcl = self.interp
276         tcl.call('set', 'a', 3)
277         tcl.call('set', 'b', 6)
279             result = tcl.exprstring(expr)
283         self.assertRaises(TypeError, tcl.exprstring)
284         self.assertRaises(TypeError, tcl.exprstring, '8.2', '+6')
285         self.assertRaises(TypeError, tcl.exprstring, b'8.2 + 6')
286         self.assertRaises(TclError, tcl.exprstring, 'spam')
309         tcl = self.interp
310         tcl.call('set', 'a', 3)
311         tcl.call('set', 'b', 6)
313             result = tcl.exprdouble(expr)
317         self.assertRaises(TypeError, tcl.exprdouble)
318         self.assertRaises(TypeError, tcl.exprdouble, '8.2', '+6')
319         self.assertRaises(TypeError, tcl.exprdouble, b'8.2 + 6')
320         self.assertRaises(TclError, tcl.exprdouble, 'spam')
336         self.assertRaises(TclError, tcl.exprdouble, '"abc"')
340         tcl = self.interp
341         tcl.call('set', 'a', 3)
342         tcl.call('set', 'b', 6)
344             result = tcl.exprlong(expr)
348         self.assertRaises(TypeError, tcl.exprlong)
349         self.assertRaises(TypeError, tcl.exprlong, '8.2', '+6')
350         self.assertRaises(TypeError, tcl.exprlong, b'8.2 + 6')
351         self.assertRaises(TclError, tcl.exprlong, 'spam')
367         self.assertRaises(TclError, tcl.exprlong, '"abc"')
368         self.assertRaises(TclError, tcl.exprlong, '2**64')
371         tcl = self.interp
372         tcl.call('set', 'a', 3)
373         tcl.call('set', 'b', 6)
375             result = tcl.exprboolean(expr)
380         self.assertRaises(TypeError, tcl.exprboolean)
381         self.assertRaises(TypeError, tcl.exprboolean, '8.2', '+6')
382         self.assertRaises(TypeError, tcl.exprboolean, b'8.2 + 6')
383         self.assertRaises(TclError, tcl.exprboolean, 'spam')
407         self.assertRaises(TclError, tcl.exprboolean, '"abc"')
411         tcl = self.interp
413             result = tcl.call('expr', expr)
414             if tcl.wantobjects():
430         tcl = self.interp
432             result = tcl.call('expr', str(i))
595         tcl = self.interp.tk
598         self.assertEqual(splitdict(tcl, arg, False),
600         self.assertEqual(splitdict(tcl, arg),
604         self.assertEqual(splitdict(tcl, arg, False),
606         self.assertEqual(splitdict(tcl, arg),
609         self.assertRaises(RuntimeError, splitdict, tcl, '-a b -c ')
610         self.assertRaises(RuntimeError, splitdict, tcl, ('-a', 'b', '-c'))
612         arg = tcl.call('list',
614         self.assertEqual(splitdict(tcl, arg),
618         arg = tcl.call('dict', 'create',
624         self.assertEqual(splitdict(tcl, arg), expected)
628         tcl = self.interp.tk
630             return tcl.call('lindex', s, 0)
720         tcl = Tcl()
721         print('patchlevel =', tcl.call('info', 'patchlevel'), flush=True)

Indexes created Thu Nov 07 10:32:03 CST 2024