diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-10-28 17:44:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-10-28 17:44:38 (GMT) |
| commit | c6809cbce555f56fd88713fb23268419af120d54 (patch) | |
| tree | 972e11ab081e24201e5cde984e8e84395f1efa60 /tests | |
| parent | b88117d1876391881d90f05ad4bfabf9b05ade97 (diff) | |
| download | tk-c6809cbce555f56fd88713fb23268419af120d54.zip tk-c6809cbce555f56fd88713fb23268419af120d54.tar.gz tk-c6809cbce555f56fd88713fb23268419af120d54.tar.bz2 | |
* win/tkWinTest.c: Revise [testclipboard] to form that
* tests/winClipboard.test: handles encodings. [Bug 2191960]
* tests/constraints.tcl: [tcltest::bytestring] no longer used.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/constraints.tcl | 1 | ||||
| -rw-r--r-- | tests/winClipboard.test | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/tests/constraints.tcl b/tests/constraints.tcl index 03e3547..0750d7a 100644 --- a/tests/constraints.tcl +++ b/tests/constraints.tcl @@ -242,7 +242,6 @@ namespace import -force tcltest::removeDirectory namespace import -force tcltest::interpreter namespace import -force tcltest::testsDirectory namespace import -force tcltest::cleanupTests -namespace import -force tcltest::bytestring deleteWindows wm geometry . {} diff --git a/tests/winClipboard.test b/tests/winClipboard.test index 13f0349..90810f3 100644 --- a/tests/winClipboard.test +++ b/tests/winClipboard.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winClipboard.test,v 1.15 2008/08/18 16:09:10 aniap Exp $ +# RCS: @(#) $Id: winClipboard.test,v 1.16 2008/10/28 17:44:38 dgp Exp $ package require tcltest 2.2 eval tcltest::configure $argv @@ -71,7 +71,7 @@ test winClipboard-1.5 {TkSelGetSelection & TkWinClipboardRender} -constraints { list [selection get -selection CLIPBOARD] [testclipboard] } -cleanup { clipboard clear -} -result [list "line 1\u00c7\nline 2" [bytestring "line 1\u00c7\r\nline 2"]] +} -result [list "line 1\u00c7\nline 2" "line 1\u00c7\r\nline 2"] test winClipboard-2.1 {TkSelUpdateClipboard reentrancy problem} -constraints { |