diff options
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 { |