mirror of
https://github.com/python/cpython.git
synced 2025-07-08 03:45:36 +00:00
40348acc18
Instead of explicitly enumerate test classes for run_unittest() use the unittest ability to discover tests. This also makes these tests discoverable and runnable with unittest. load_tests() can be used for dynamic generating tests and adding doctests. setUpModule(), tearDownModule() and addModuleCleanup() can be used for running code before and after all module tests.
755 lines
29 KiB
Python
755 lines
29 KiB
Python
import unittest
|
|
import locale
|
|
import re
|
|
import subprocess
|
|
import sys
|
|
import os
|
|
import warnings
|
|
from test import support
|
|
from test.support import import_helper
|
|
from test.support import os_helper
|
|
|
|
# Skip this test if the _tkinter module wasn't built.
|
|
_tkinter = import_helper.import_module('_tkinter')
|
|
|
|
import tkinter
|
|
from tkinter import Tcl
|
|
from _tkinter import TclError
|
|
|
|
try:
|
|
from _testcapi import INT_MAX, PY_SSIZE_T_MAX
|
|
except ImportError:
|
|
INT_MAX = PY_SSIZE_T_MAX = sys.maxsize
|
|
|
|
tcl_version = tuple(map(int, _tkinter.TCL_VERSION.split('.')))
|
|
|
|
_tk_patchlevel = None
|
|
def get_tk_patchlevel():
|
|
global _tk_patchlevel
|
|
if _tk_patchlevel is None:
|
|
tcl = Tcl()
|
|
patchlevel = tcl.call('info', 'patchlevel')
|
|
m = re.fullmatch(r'(\d+)\.(\d+)([ab.])(\d+)', patchlevel)
|
|
major, minor, releaselevel, serial = m.groups()
|
|
major, minor, serial = int(major), int(minor), int(serial)
|
|
releaselevel = {'a': 'alpha', 'b': 'beta', '.': 'final'}[releaselevel]
|
|
if releaselevel == 'final':
|
|
_tk_patchlevel = major, minor, serial, releaselevel, 0
|
|
else:
|
|
_tk_patchlevel = major, minor, 0, releaselevel, serial
|
|
return _tk_patchlevel
|
|
|
|
|
|
class TkinterTest(unittest.TestCase):
|
|
|
|
def testFlattenLen(self):
|
|
# Object without length.
|
|
self.assertRaises(TypeError, _tkinter._flatten, True)
|
|
# Object with length, but not sequence.
|
|
self.assertRaises(TypeError, _tkinter._flatten, {})
|
|
# Sequence or set, but not tuple or list.
|
|
# (issue44608: there were leaks in the following cases)
|
|
self.assertRaises(TypeError, _tkinter._flatten, 'string')
|
|
self.assertRaises(TypeError, _tkinter._flatten, {'set'})
|
|
|
|
|
|
class TclTest(unittest.TestCase):
|
|
|
|
def setUp(self):
|
|
self.interp = Tcl()
|
|
self.wantobjects = self.interp.tk.wantobjects()
|
|
|
|
def testEval(self):
|
|
tcl = self.interp
|
|
tcl.eval('set a 1')
|
|
self.assertEqual(tcl.eval('set a'),'1')
|
|
|
|
def test_eval_null_in_result(self):
|
|
tcl = self.interp
|
|
self.assertEqual(tcl.eval('set a "a\\0b"'), 'a\x00b')
|
|
|
|
def test_eval_surrogates_in_result(self):
|
|
tcl = self.interp
|
|
self.assertIn(tcl.eval(r'set a "<\ud83d\udcbb>"'), '<\U0001f4bb>')
|
|
|
|
def testEvalException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.eval,'set a')
|
|
|
|
def testEvalException2(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.eval,'this is wrong')
|
|
|
|
def testCall(self):
|
|
tcl = self.interp
|
|
tcl.call('set','a','1')
|
|
self.assertEqual(tcl.call('set','a'),'1')
|
|
|
|
def testCallException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.call,'set','a')
|
|
|
|
def testCallException2(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.call,'this','is','wrong')
|
|
|
|
def testSetVar(self):
|
|
tcl = self.interp
|
|
tcl.setvar('a','1')
|
|
self.assertEqual(tcl.eval('set a'),'1')
|
|
|
|
def testSetVarArray(self):
|
|
tcl = self.interp
|
|
tcl.setvar('a(1)','1')
|
|
self.assertEqual(tcl.eval('set a(1)'),'1')
|
|
|
|
def testGetVar(self):
|
|
tcl = self.interp
|
|
tcl.eval('set a 1')
|
|
self.assertEqual(tcl.getvar('a'),'1')
|
|
|
|
def testGetVarArray(self):
|
|
tcl = self.interp
|
|
tcl.eval('set a(1) 1')
|
|
self.assertEqual(tcl.getvar('a(1)'),'1')
|
|
|
|
def testGetVarException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.getvar,'a')
|
|
|
|
def testGetVarArrayException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.getvar,'a(1)')
|
|
|
|
def testUnsetVar(self):
|
|
tcl = self.interp
|
|
tcl.setvar('a',1)
|
|
self.assertEqual(tcl.eval('info exists a'),'1')
|
|
tcl.unsetvar('a')
|
|
self.assertEqual(tcl.eval('info exists a'),'0')
|
|
|
|
def testUnsetVarArray(self):
|
|
tcl = self.interp
|
|
tcl.setvar('a(1)',1)
|
|
tcl.setvar('a(2)',2)
|
|
self.assertEqual(tcl.eval('info exists a(1)'),'1')
|
|
self.assertEqual(tcl.eval('info exists a(2)'),'1')
|
|
tcl.unsetvar('a(1)')
|
|
self.assertEqual(tcl.eval('info exists a(1)'),'0')
|
|
self.assertEqual(tcl.eval('info exists a(2)'),'1')
|
|
|
|
def testUnsetVarException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.unsetvar,'a')
|
|
|
|
def get_integers(self):
|
|
integers = (0, 1, -1, 2**31-1, -2**31, 2**31, -2**31-1, 2**63-1, -2**63)
|
|
# bignum was added in Tcl 8.5, but its support is able only since 8.5.8.
|
|
# Actually it is determined at compile time, so using get_tk_patchlevel()
|
|
# is not reliable.
|
|
# TODO: expose full static version.
|
|
if tcl_version >= (8, 5):
|
|
v = get_tk_patchlevel()
|
|
if v >= (8, 6, 0, 'final') or (8, 5, 8) <= v < (8, 6):
|
|
integers += (2**63, -2**63-1, 2**1000, -2**1000)
|
|
return integers
|
|
|
|
def test_getint(self):
|
|
tcl = self.interp.tk
|
|
for i in self.get_integers():
|
|
self.assertEqual(tcl.getint(' %d ' % i), i)
|
|
if tcl_version >= (8, 5):
|
|
self.assertEqual(tcl.getint(' %#o ' % i), i)
|
|
self.assertEqual(tcl.getint((' %#o ' % i).replace('o', '')), i)
|
|
self.assertEqual(tcl.getint(' %#x ' % i), i)
|
|
if tcl_version < (8, 5): # bignum was added in Tcl 8.5
|
|
self.assertRaises(TclError, tcl.getint, str(2**1000))
|
|
self.assertEqual(tcl.getint(42), 42)
|
|
self.assertRaises(TypeError, tcl.getint)
|
|
self.assertRaises(TypeError, tcl.getint, '42', '10')
|
|
self.assertRaises(TypeError, tcl.getint, b'42')
|
|
self.assertRaises(TypeError, tcl.getint, 42.0)
|
|
self.assertRaises(TclError, tcl.getint, 'a')
|
|
self.assertRaises((TypeError, ValueError, TclError),
|
|
tcl.getint, '42\0')
|
|
self.assertRaises((UnicodeEncodeError, ValueError, TclError),
|
|
tcl.getint, '42\ud800')
|
|
|
|
def test_getdouble(self):
|
|
tcl = self.interp.tk
|
|
self.assertEqual(tcl.getdouble(' 42 '), 42.0)
|
|
self.assertEqual(tcl.getdouble(' 42.5 '), 42.5)
|
|
self.assertEqual(tcl.getdouble(42.5), 42.5)
|
|
self.assertEqual(tcl.getdouble(42), 42.0)
|
|
self.assertRaises(TypeError, tcl.getdouble)
|
|
self.assertRaises(TypeError, tcl.getdouble, '42.5', '10')
|
|
self.assertRaises(TypeError, tcl.getdouble, b'42.5')
|
|
self.assertRaises(TclError, tcl.getdouble, 'a')
|
|
self.assertRaises((TypeError, ValueError, TclError),
|
|
tcl.getdouble, '42.5\0')
|
|
self.assertRaises((UnicodeEncodeError, ValueError, TclError),
|
|
tcl.getdouble, '42.5\ud800')
|
|
|
|
def test_getboolean(self):
|
|
tcl = self.interp.tk
|
|
self.assertIs(tcl.getboolean('on'), True)
|
|
self.assertIs(tcl.getboolean('1'), True)
|
|
self.assertIs(tcl.getboolean(42), True)
|
|
self.assertIs(tcl.getboolean(0), False)
|
|
self.assertRaises(TypeError, tcl.getboolean)
|
|
self.assertRaises(TypeError, tcl.getboolean, 'on', '1')
|
|
self.assertRaises(TypeError, tcl.getboolean, b'on')
|
|
self.assertRaises(TypeError, tcl.getboolean, 1.0)
|
|
self.assertRaises(TclError, tcl.getboolean, 'a')
|
|
self.assertRaises((TypeError, ValueError, TclError),
|
|
tcl.getboolean, 'on\0')
|
|
self.assertRaises((UnicodeEncodeError, ValueError, TclError),
|
|
tcl.getboolean, 'on\ud800')
|
|
|
|
def testEvalFile(self):
|
|
tcl = self.interp
|
|
filename = os_helper.TESTFN_ASCII
|
|
self.addCleanup(os_helper.unlink, filename)
|
|
with open(filename, 'w') as f:
|
|
f.write("""set a 1
|
|
set b 2
|
|
set c [ expr $a + $b ]
|
|
""")
|
|
tcl.evalfile(filename)
|
|
self.assertEqual(tcl.eval('set a'),'1')
|
|
self.assertEqual(tcl.eval('set b'),'2')
|
|
self.assertEqual(tcl.eval('set c'),'3')
|
|
|
|
def test_evalfile_null_in_result(self):
|
|
tcl = self.interp
|
|
filename = os_helper.TESTFN_ASCII
|
|
self.addCleanup(os_helper.unlink, filename)
|
|
with open(filename, 'w') as f:
|
|
f.write("""
|
|
set a "a\0b"
|
|
set b "a\\0b"
|
|
""")
|
|
tcl.evalfile(filename)
|
|
self.assertEqual(tcl.eval('set a'), 'a\x00b')
|
|
self.assertEqual(tcl.eval('set b'), 'a\x00b')
|
|
|
|
def test_evalfile_surrogates_in_result(self):
|
|
tcl = self.interp
|
|
encoding = tcl.call('encoding', 'system')
|
|
self.addCleanup(tcl.call, 'encoding', 'system', encoding)
|
|
tcl.call('encoding', 'system', 'utf-8')
|
|
|
|
filename = os_helper.TESTFN_ASCII
|
|
self.addCleanup(os_helper.unlink, filename)
|
|
with open(filename, 'wb') as f:
|
|
f.write(b"""
|
|
set a "<\xed\xa0\xbd\xed\xb2\xbb>"
|
|
set b "<\\ud83d\\udcbb>"
|
|
""")
|
|
tcl.evalfile(filename)
|
|
self.assertEqual(tcl.eval('set a'), '<\U0001f4bb>')
|
|
self.assertEqual(tcl.eval('set b'), '<\U0001f4bb>')
|
|
|
|
def testEvalFileException(self):
|
|
tcl = self.interp
|
|
filename = "doesnotexists"
|
|
try:
|
|
os.remove(filename)
|
|
except Exception as e:
|
|
pass
|
|
self.assertRaises(TclError,tcl.evalfile,filename)
|
|
|
|
def testPackageRequireException(self):
|
|
tcl = self.interp
|
|
self.assertRaises(TclError,tcl.eval,'package require DNE')
|
|
|
|
@unittest.skipUnless(sys.platform == 'win32', 'Requires Windows')
|
|
def testLoadWithUNC(self):
|
|
# Build a UNC path from the regular path.
|
|
# Something like
|
|
# \\%COMPUTERNAME%\c$\python27\python.exe
|
|
|
|
fullname = os.path.abspath(sys.executable)
|
|
if fullname[1] != ':':
|
|
raise unittest.SkipTest('Absolute path should have drive part')
|
|
unc_name = r'\\%s\%s$\%s' % (os.environ['COMPUTERNAME'],
|
|
fullname[0],
|
|
fullname[3:])
|
|
if not os.path.exists(unc_name):
|
|
raise unittest.SkipTest('Cannot connect to UNC Path')
|
|
|
|
with os_helper.EnvironmentVarGuard() as env:
|
|
env.unset("TCL_LIBRARY")
|
|
stdout = subprocess.check_output(
|
|
[unc_name, '-c', 'import tkinter; print(tkinter)'])
|
|
|
|
self.assertIn(b'tkinter', stdout)
|
|
|
|
def test_exprstring(self):
|
|
tcl = self.interp
|
|
tcl.call('set', 'a', 3)
|
|
tcl.call('set', 'b', 6)
|
|
def check(expr, expected):
|
|
result = tcl.exprstring(expr)
|
|
self.assertEqual(result, expected)
|
|
self.assertIsInstance(result, str)
|
|
|
|
self.assertRaises(TypeError, tcl.exprstring)
|
|
self.assertRaises(TypeError, tcl.exprstring, '8.2', '+6')
|
|
self.assertRaises(TypeError, tcl.exprstring, b'8.2 + 6')
|
|
self.assertRaises(TclError, tcl.exprstring, 'spam')
|
|
check('', '0')
|
|
check('8.2 + 6', '14.2')
|
|
check('3.1 + $a', '6.1')
|
|
check('2 + "$a.$b"', '5.6')
|
|
check('4*[llength "6 2"]', '8')
|
|
check('{word one} < "word $a"', '0')
|
|
check('4*2 < 7', '0')
|
|
check('hypot($a, 4)', '5.0')
|
|
check('5 / 4', '1')
|
|
check('5 / 4.0', '1.25')
|
|
check('5 / ( [string length "abcd"] + 0.0 )', '1.25')
|
|
check('20.0/5.0', '4.0')
|
|
check('"0x03" > "2"', '1')
|
|
check('[string length "a\xbd\u20ac"]', '3')
|
|
check(r'[string length "a\xbd\u20ac"]', '3')
|
|
check('"abc"', 'abc')
|
|
check('"a\xbd\u20ac"', 'a\xbd\u20ac')
|
|
check(r'"a\xbd\u20ac"', 'a\xbd\u20ac')
|
|
check(r'"a\0b"', 'a\x00b')
|
|
if tcl_version >= (8, 5): # bignum was added in Tcl 8.5
|
|
check('2**64', str(2**64))
|
|
|
|
def test_exprdouble(self):
|
|
tcl = self.interp
|
|
tcl.call('set', 'a', 3)
|
|
tcl.call('set', 'b', 6)
|
|
def check(expr, expected):
|
|
result = tcl.exprdouble(expr)
|
|
self.assertEqual(result, expected)
|
|
self.assertIsInstance(result, float)
|
|
|
|
self.assertRaises(TypeError, tcl.exprdouble)
|
|
self.assertRaises(TypeError, tcl.exprdouble, '8.2', '+6')
|
|
self.assertRaises(TypeError, tcl.exprdouble, b'8.2 + 6')
|
|
self.assertRaises(TclError, tcl.exprdouble, 'spam')
|
|
check('', 0.0)
|
|
check('8.2 + 6', 14.2)
|
|
check('3.1 + $a', 6.1)
|
|
check('2 + "$a.$b"', 5.6)
|
|
check('4*[llength "6 2"]', 8.0)
|
|
check('{word one} < "word $a"', 0.0)
|
|
check('4*2 < 7', 0.0)
|
|
check('hypot($a, 4)', 5.0)
|
|
check('5 / 4', 1.0)
|
|
check('5 / 4.0', 1.25)
|
|
check('5 / ( [string length "abcd"] + 0.0 )', 1.25)
|
|
check('20.0/5.0', 4.0)
|
|
check('"0x03" > "2"', 1.0)
|
|
check('[string length "a\xbd\u20ac"]', 3.0)
|
|
check(r'[string length "a\xbd\u20ac"]', 3.0)
|
|
self.assertRaises(TclError, tcl.exprdouble, '"abc"')
|
|
if tcl_version >= (8, 5): # bignum was added in Tcl 8.5
|
|
check('2**64', float(2**64))
|
|
|
|
def test_exprlong(self):
|
|
tcl = self.interp
|
|
tcl.call('set', 'a', 3)
|
|
tcl.call('set', 'b', 6)
|
|
def check(expr, expected):
|
|
result = tcl.exprlong(expr)
|
|
self.assertEqual(result, expected)
|
|
self.assertIsInstance(result, int)
|
|
|
|
self.assertRaises(TypeError, tcl.exprlong)
|
|
self.assertRaises(TypeError, tcl.exprlong, '8.2', '+6')
|
|
self.assertRaises(TypeError, tcl.exprlong, b'8.2 + 6')
|
|
self.assertRaises(TclError, tcl.exprlong, 'spam')
|
|
check('', 0)
|
|
check('8.2 + 6', 14)
|
|
check('3.1 + $a', 6)
|
|
check('2 + "$a.$b"', 5)
|
|
check('4*[llength "6 2"]', 8)
|
|
check('{word one} < "word $a"', 0)
|
|
check('4*2 < 7', 0)
|
|
check('hypot($a, 4)', 5)
|
|
check('5 / 4', 1)
|
|
check('5 / 4.0', 1)
|
|
check('5 / ( [string length "abcd"] + 0.0 )', 1)
|
|
check('20.0/5.0', 4)
|
|
check('"0x03" > "2"', 1)
|
|
check('[string length "a\xbd\u20ac"]', 3)
|
|
check(r'[string length "a\xbd\u20ac"]', 3)
|
|
self.assertRaises(TclError, tcl.exprlong, '"abc"')
|
|
if tcl_version >= (8, 5): # bignum was added in Tcl 8.5
|
|
self.assertRaises(TclError, tcl.exprlong, '2**64')
|
|
|
|
def test_exprboolean(self):
|
|
tcl = self.interp
|
|
tcl.call('set', 'a', 3)
|
|
tcl.call('set', 'b', 6)
|
|
def check(expr, expected):
|
|
result = tcl.exprboolean(expr)
|
|
self.assertEqual(result, expected)
|
|
self.assertIsInstance(result, int)
|
|
self.assertNotIsInstance(result, bool)
|
|
|
|
self.assertRaises(TypeError, tcl.exprboolean)
|
|
self.assertRaises(TypeError, tcl.exprboolean, '8.2', '+6')
|
|
self.assertRaises(TypeError, tcl.exprboolean, b'8.2 + 6')
|
|
self.assertRaises(TclError, tcl.exprboolean, 'spam')
|
|
check('', False)
|
|
for value in ('0', 'false', 'no', 'off'):
|
|
check(value, False)
|
|
check('"%s"' % value, False)
|
|
check('{%s}' % value, False)
|
|
for value in ('1', 'true', 'yes', 'on'):
|
|
check(value, True)
|
|
check('"%s"' % value, True)
|
|
check('{%s}' % value, True)
|
|
check('8.2 + 6', True)
|
|
check('3.1 + $a', True)
|
|
check('2 + "$a.$b"', True)
|
|
check('4*[llength "6 2"]', True)
|
|
check('{word one} < "word $a"', False)
|
|
check('4*2 < 7', False)
|
|
check('hypot($a, 4)', True)
|
|
check('5 / 4', True)
|
|
check('5 / 4.0', True)
|
|
check('5 / ( [string length "abcd"] + 0.0 )', True)
|
|
check('20.0/5.0', True)
|
|
check('"0x03" > "2"', True)
|
|
check('[string length "a\xbd\u20ac"]', True)
|
|
check(r'[string length "a\xbd\u20ac"]', True)
|
|
self.assertRaises(TclError, tcl.exprboolean, '"abc"')
|
|
if tcl_version >= (8, 5): # bignum was added in Tcl 8.5
|
|
check('2**64', True)
|
|
|
|
@unittest.skipUnless(tcl_version >= (8, 5), 'requires Tcl version >= 8.5')
|
|
def test_booleans(self):
|
|
tcl = self.interp
|
|
def check(expr, expected):
|
|
result = tcl.call('expr', expr)
|
|
if tcl.wantobjects():
|
|
self.assertEqual(result, expected)
|
|
self.assertIsInstance(result, int)
|
|
else:
|
|
self.assertIn(result, (expr, str(int(expected))))
|
|
self.assertIsInstance(result, str)
|
|
check('true', True)
|
|
check('yes', True)
|
|
check('on', True)
|
|
check('false', False)
|
|
check('no', False)
|
|
check('off', False)
|
|
check('1 < 2', True)
|
|
check('1 > 2', False)
|
|
|
|
def test_expr_bignum(self):
|
|
tcl = self.interp
|
|
for i in self.get_integers():
|
|
result = tcl.call('expr', str(i))
|
|
if self.wantobjects:
|
|
self.assertEqual(result, i)
|
|
self.assertIsInstance(result, int)
|
|
else:
|
|
self.assertEqual(result, str(i))
|
|
self.assertIsInstance(result, str)
|
|
if get_tk_patchlevel() < (8, 5): # bignum was added in Tcl 8.5
|
|
self.assertRaises(TclError, tcl.call, 'expr', str(2**1000))
|
|
|
|
def test_passing_values(self):
|
|
def passValue(value):
|
|
return self.interp.call('set', '_', value)
|
|
|
|
self.assertEqual(passValue(True), True if self.wantobjects else '1')
|
|
self.assertEqual(passValue(False), False if self.wantobjects else '0')
|
|
self.assertEqual(passValue('string'), 'string')
|
|
self.assertEqual(passValue('string\u20ac'), 'string\u20ac')
|
|
self.assertEqual(passValue('string\U0001f4bb'), 'string\U0001f4bb')
|
|
self.assertEqual(passValue('str\x00ing'), 'str\x00ing')
|
|
self.assertEqual(passValue('str\x00ing\xbd'), 'str\x00ing\xbd')
|
|
self.assertEqual(passValue('str\x00ing\u20ac'), 'str\x00ing\u20ac')
|
|
self.assertEqual(passValue('str\x00ing\U0001f4bb'),
|
|
'str\x00ing\U0001f4bb')
|
|
if sys.platform != 'win32':
|
|
self.assertEqual(passValue('<\udce2\udc82\udcac>'),
|
|
'<\u20ac>')
|
|
self.assertEqual(passValue('<\udced\udca0\udcbd\udced\udcb2\udcbb>'),
|
|
'<\U0001f4bb>')
|
|
self.assertEqual(passValue(b'str\x00ing'),
|
|
b'str\x00ing' if self.wantobjects else 'str\x00ing')
|
|
self.assertEqual(passValue(b'str\xc0\x80ing'),
|
|
b'str\xc0\x80ing' if self.wantobjects else 'str\xc0\x80ing')
|
|
self.assertEqual(passValue(b'str\xbding'),
|
|
b'str\xbding' if self.wantobjects else 'str\xbding')
|
|
for i in self.get_integers():
|
|
self.assertEqual(passValue(i), i if self.wantobjects else str(i))
|
|
if tcl_version < (8, 5): # bignum was added in Tcl 8.5
|
|
self.assertEqual(passValue(2**1000), str(2**1000))
|
|
for f in (0.0, 1.0, -1.0, 1/3,
|
|
sys.float_info.min, sys.float_info.max,
|
|
-sys.float_info.min, -sys.float_info.max):
|
|
if self.wantobjects:
|
|
self.assertEqual(passValue(f), f)
|
|
else:
|
|
self.assertEqual(float(passValue(f)), f)
|
|
if self.wantobjects:
|
|
f = passValue(float('nan'))
|
|
self.assertNotEqual(f, f)
|
|
self.assertEqual(passValue(float('inf')), float('inf'))
|
|
self.assertEqual(passValue(-float('inf')), -float('inf'))
|
|
else:
|
|
self.assertEqual(float(passValue(float('inf'))), float('inf'))
|
|
self.assertEqual(float(passValue(-float('inf'))), -float('inf'))
|
|
# XXX NaN representation can be not parsable by float()
|
|
self.assertEqual(passValue((1, '2', (3.4,))),
|
|
(1, '2', (3.4,)) if self.wantobjects else '1 2 3.4')
|
|
self.assertEqual(passValue(['a', ['b', 'c']]),
|
|
('a', ('b', 'c')) if self.wantobjects else 'a {b c}')
|
|
|
|
def test_user_command(self):
|
|
result = None
|
|
def testfunc(arg):
|
|
nonlocal result
|
|
result = arg
|
|
return arg
|
|
self.interp.createcommand('testfunc', testfunc)
|
|
self.addCleanup(self.interp.tk.deletecommand, 'testfunc')
|
|
def check(value, expected=None, *, eq=self.assertEqual):
|
|
if expected is None:
|
|
expected = value
|
|
nonlocal result
|
|
result = None
|
|
r = self.interp.call('testfunc', value)
|
|
self.assertIsInstance(result, str)
|
|
eq(result, expected)
|
|
self.assertIsInstance(r, str)
|
|
eq(r, expected)
|
|
def float_eq(actual, expected):
|
|
self.assertAlmostEqual(float(actual), expected,
|
|
delta=abs(expected) * 1e-10)
|
|
|
|
check(True, '1')
|
|
check(False, '0')
|
|
check('string')
|
|
check('string\xbd')
|
|
check('string\u20ac')
|
|
check('string\U0001f4bb')
|
|
if sys.platform != 'win32':
|
|
check('<\udce2\udc82\udcac>', '<\u20ac>')
|
|
check('<\udced\udca0\udcbd\udced\udcb2\udcbb>', '<\U0001f4bb>')
|
|
check('')
|
|
check(b'string', 'string')
|
|
check(b'string\xe2\x82\xac', 'string\xe2\x82\xac')
|
|
check(b'string\xbd', 'string\xbd')
|
|
check(b'', '')
|
|
check('str\x00ing')
|
|
check('str\x00ing\xbd')
|
|
check('str\x00ing\u20ac')
|
|
check(b'str\x00ing', 'str\x00ing')
|
|
check(b'str\xc0\x80ing', 'str\xc0\x80ing')
|
|
check(b'str\xc0\x80ing\xe2\x82\xac', 'str\xc0\x80ing\xe2\x82\xac')
|
|
for i in self.get_integers():
|
|
check(i, str(i))
|
|
if tcl_version < (8, 5): # bignum was added in Tcl 8.5
|
|
check(2**1000, str(2**1000))
|
|
for f in (0.0, 1.0, -1.0):
|
|
check(f, repr(f))
|
|
for f in (1/3.0, sys.float_info.min, sys.float_info.max,
|
|
-sys.float_info.min, -sys.float_info.max):
|
|
check(f, eq=float_eq)
|
|
check(float('inf'), eq=float_eq)
|
|
check(-float('inf'), eq=float_eq)
|
|
# XXX NaN representation can be not parsable by float()
|
|
check((), '')
|
|
check((1, (2,), (3, 4), '5 6', ()), '1 2 {3 4} {5 6} {}')
|
|
check([1, [2,], [3, 4], '5 6', []], '1 2 {3 4} {5 6} {}')
|
|
|
|
def test_splitlist(self):
|
|
splitlist = self.interp.tk.splitlist
|
|
call = self.interp.tk.call
|
|
self.assertRaises(TypeError, splitlist)
|
|
self.assertRaises(TypeError, splitlist, 'a', 'b')
|
|
self.assertRaises(TypeError, splitlist, 2)
|
|
testcases = [
|
|
('2', ('2',)),
|
|
('', ()),
|
|
('{}', ('',)),
|
|
('""', ('',)),
|
|
('a\n b\t\r c\n ', ('a', 'b', 'c')),
|
|
(b'a\n b\t\r c\n ', ('a', 'b', 'c')),
|
|
('a \u20ac', ('a', '\u20ac')),
|
|
('a \U0001f4bb', ('a', '\U0001f4bb')),
|
|
(b'a \xe2\x82\xac', ('a', '\u20ac')),
|
|
(b'a \xf0\x9f\x92\xbb', ('a', '\U0001f4bb')),
|
|
(b'a \xed\xa0\xbd\xed\xb2\xbb', ('a', '\U0001f4bb')),
|
|
(b'a\xc0\x80b c\xc0\x80d', ('a\x00b', 'c\x00d')),
|
|
('a {b c}', ('a', 'b c')),
|
|
(r'a b\ c', ('a', 'b c')),
|
|
(('a', 'b c'), ('a', 'b c')),
|
|
('a 2', ('a', '2')),
|
|
(('a', 2), ('a', 2)),
|
|
('a 3.4', ('a', '3.4')),
|
|
(('a', 3.4), ('a', 3.4)),
|
|
((), ()),
|
|
([], ()),
|
|
(['a', ['b', 'c']], ('a', ['b', 'c'])),
|
|
(call('list', 1, '2', (3.4,)),
|
|
(1, '2', (3.4,)) if self.wantobjects else
|
|
('1', '2', '3.4')),
|
|
]
|
|
tk_patchlevel = get_tk_patchlevel()
|
|
if tcl_version >= (8, 5):
|
|
if not self.wantobjects or tk_patchlevel < (8, 5, 5):
|
|
# Before 8.5.5 dicts were converted to lists through string
|
|
expected = ('12', '\u20ac', '\xe2\x82\xac', '3.4')
|
|
else:
|
|
expected = (12, '\u20ac', b'\xe2\x82\xac', (3.4,))
|
|
testcases += [
|
|
(call('dict', 'create', 12, '\u20ac', b'\xe2\x82\xac', (3.4,)),
|
|
expected),
|
|
]
|
|
dbg_info = ('want objects? %s, Tcl version: %s, Tk patchlevel: %s'
|
|
% (self.wantobjects, tcl_version, tk_patchlevel))
|
|
for arg, res in testcases:
|
|
self.assertEqual(splitlist(arg), res,
|
|
'arg=%a, %s' % (arg, dbg_info))
|
|
self.assertRaises(TclError, splitlist, '{')
|
|
|
|
def test_splitdict(self):
|
|
splitdict = tkinter._splitdict
|
|
tcl = self.interp.tk
|
|
|
|
arg = '-a {1 2 3} -something foo status {}'
|
|
self.assertEqual(splitdict(tcl, arg, False),
|
|
{'-a': '1 2 3', '-something': 'foo', 'status': ''})
|
|
self.assertEqual(splitdict(tcl, arg),
|
|
{'a': '1 2 3', 'something': 'foo', 'status': ''})
|
|
|
|
arg = ('-a', (1, 2, 3), '-something', 'foo', 'status', '{}')
|
|
self.assertEqual(splitdict(tcl, arg, False),
|
|
{'-a': (1, 2, 3), '-something': 'foo', 'status': '{}'})
|
|
self.assertEqual(splitdict(tcl, arg),
|
|
{'a': (1, 2, 3), 'something': 'foo', 'status': '{}'})
|
|
|
|
self.assertRaises(RuntimeError, splitdict, tcl, '-a b -c ')
|
|
self.assertRaises(RuntimeError, splitdict, tcl, ('-a', 'b', '-c'))
|
|
|
|
arg = tcl.call('list',
|
|
'-a', (1, 2, 3), '-something', 'foo', 'status', ())
|
|
self.assertEqual(splitdict(tcl, arg),
|
|
{'a': (1, 2, 3) if self.wantobjects else '1 2 3',
|
|
'something': 'foo', 'status': ''})
|
|
|
|
if tcl_version >= (8, 5):
|
|
arg = tcl.call('dict', 'create',
|
|
'-a', (1, 2, 3), '-something', 'foo', 'status', ())
|
|
if not self.wantobjects or get_tk_patchlevel() < (8, 5, 5):
|
|
# Before 8.5.5 dicts were converted to lists through string
|
|
expected = {'a': '1 2 3', 'something': 'foo', 'status': ''}
|
|
else:
|
|
expected = {'a': (1, 2, 3), 'something': 'foo', 'status': ''}
|
|
self.assertEqual(splitdict(tcl, arg), expected)
|
|
|
|
def test_join(self):
|
|
join = tkinter._join
|
|
tcl = self.interp.tk
|
|
def unpack(s):
|
|
return tcl.call('lindex', s, 0)
|
|
def check(value):
|
|
self.assertEqual(unpack(join([value])), value)
|
|
self.assertEqual(unpack(join([value, 0])), value)
|
|
self.assertEqual(unpack(unpack(join([[value]]))), value)
|
|
self.assertEqual(unpack(unpack(join([[value, 0]]))), value)
|
|
self.assertEqual(unpack(unpack(join([[value], 0]))), value)
|
|
self.assertEqual(unpack(unpack(join([[value, 0], 0]))), value)
|
|
check('')
|
|
check('spam')
|
|
check('sp am')
|
|
check('sp\tam')
|
|
check('sp\nam')
|
|
check(' \t\n')
|
|
check('{spam}')
|
|
check('{sp am}')
|
|
check('"spam"')
|
|
check('"sp am"')
|
|
check('{"spam"}')
|
|
check('"{spam}"')
|
|
check('sp\\am')
|
|
check('"sp\\am"')
|
|
check('"{}" "{}"')
|
|
check('"\\')
|
|
check('"{')
|
|
check('"}')
|
|
check('\n\\')
|
|
check('\n{')
|
|
check('\n}')
|
|
check('\\\n')
|
|
check('{\n')
|
|
check('}\n')
|
|
|
|
@support.cpython_only
|
|
def test_new_tcl_obj(self):
|
|
support.check_disallow_instantiation(self, _tkinter.Tcl_Obj)
|
|
support.check_disallow_instantiation(self, _tkinter.TkttType)
|
|
support.check_disallow_instantiation(self, _tkinter.TkappType)
|
|
|
|
class BigmemTclTest(unittest.TestCase):
|
|
|
|
def setUp(self):
|
|
self.interp = Tcl()
|
|
|
|
@support.cpython_only
|
|
@unittest.skipUnless(INT_MAX < PY_SSIZE_T_MAX, "needs UINT_MAX < SIZE_MAX")
|
|
@support.bigmemtest(size=INT_MAX + 1, memuse=5, dry_run=False)
|
|
def test_huge_string_call(self, size):
|
|
value = ' ' * size
|
|
self.assertRaises(OverflowError, self.interp.call, 'string', 'index', value, 0)
|
|
|
|
@support.cpython_only
|
|
@unittest.skipUnless(INT_MAX < PY_SSIZE_T_MAX, "needs UINT_MAX < SIZE_MAX")
|
|
@support.bigmemtest(size=INT_MAX + 1, memuse=2, dry_run=False)
|
|
def test_huge_string_builtins(self, size):
|
|
tk = self.interp.tk
|
|
value = '1' + ' ' * size
|
|
self.assertRaises(OverflowError, tk.getint, value)
|
|
self.assertRaises(OverflowError, tk.getdouble, value)
|
|
self.assertRaises(OverflowError, tk.getboolean, value)
|
|
self.assertRaises(OverflowError, tk.eval, value)
|
|
self.assertRaises(OverflowError, tk.evalfile, value)
|
|
self.assertRaises(OverflowError, tk.record, value)
|
|
self.assertRaises(OverflowError, tk.adderrorinfo, value)
|
|
self.assertRaises(OverflowError, tk.setvar, value, 'x', 'a')
|
|
self.assertRaises(OverflowError, tk.setvar, 'x', value, 'a')
|
|
self.assertRaises(OverflowError, tk.unsetvar, value)
|
|
self.assertRaises(OverflowError, tk.unsetvar, 'x', value)
|
|
self.assertRaises(OverflowError, tk.adderrorinfo, value)
|
|
self.assertRaises(OverflowError, tk.exprstring, value)
|
|
self.assertRaises(OverflowError, tk.exprlong, value)
|
|
self.assertRaises(OverflowError, tk.exprboolean, value)
|
|
self.assertRaises(OverflowError, tk.splitlist, value)
|
|
self.assertRaises(OverflowError, tk.split, value)
|
|
self.assertRaises(OverflowError, tk.createcommand, value, max)
|
|
self.assertRaises(OverflowError, tk.deletecommand, value)
|
|
|
|
@support.cpython_only
|
|
@unittest.skipUnless(INT_MAX < PY_SSIZE_T_MAX, "needs UINT_MAX < SIZE_MAX")
|
|
@support.bigmemtest(size=INT_MAX + 1, memuse=6, dry_run=False)
|
|
def test_huge_string_builtins2(self, size):
|
|
# These commands require larger memory for possible error messages
|
|
tk = self.interp.tk
|
|
value = '1' + ' ' * size
|
|
self.assertRaises(OverflowError, tk.evalfile, value)
|
|
self.assertRaises(OverflowError, tk.unsetvar, value)
|
|
self.assertRaises(OverflowError, tk.unsetvar, 'x', value)
|
|
|
|
|
|
def setUpModule():
|
|
if support.verbose:
|
|
tcl = Tcl()
|
|
print('patchlevel =', tcl.call('info', 'patchlevel'))
|
|
|
|
|
|
if __name__ == "__main__":
|
|
unittest.main()
|