summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordonal.k.fellows@manchester.ac.uk <dkf>2004-06-15 21:06:39 (GMT)
committerdonal.k.fellows@manchester.ac.uk <dkf>2004-06-15 21:06:39 (GMT)
commit8c688c6afa87bdf3a033fdf1731db05a97596c56 (patch)
tree59e6bc355a9f6a827ec7e7fee1dec6dab1526c7a
parent2ae181bb4eb57d820d32c91de7dfb7774a5e0f2b (diff)
downloadtk-8c688c6afa87bdf3a033fdf1731db05a97596c56.zip
tk-8c688c6afa87bdf3a033fdf1731db05a97596c56.tar.gz
tk-8c688c6afa87bdf3a033fdf1731db05a97596c56.tar.bz2
Fixed tests which mandated (minor) brokenness.
-rw-r--r--ChangeLog3
-rw-r--r--tests/canvas.test8
2 files changed, 7 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 5af5f72..f26d5c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2004-06-15 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+ * tests/canvas.test: Updated tests affected by the change to
+ ScrollFractions, which is now clean about result generation.
+
* generic/tkCanvas.c: Make tag search subsystem use symbolic names
for type flags for easier maintenance.
(FIRST_CANVAS_ITEM_MATCHING,FOR_EVERY_CANVAS_ITEM_MATCHING):
diff --git a/tests/canvas.test b/tests/canvas.test
index 3a7daff..efa6b16 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-2000 Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.18 2004/05/23 17:34:48 dkf Exp $
+# RCS: @(#) $Id: canvas.test,v 1.19 2004/06/15 21:06:40 dkf Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -93,7 +93,7 @@ test canvas-2.3 {CanvasWidgetCmd, xview option} {
.c xview scroll 2 units
update
lappend x [.c xview]
-} {{0 0.3} {0.4 0.7}}
+} {{0.0 0.3} {0.4 0.7}}
test canvas-2.4 {CanvasWidgetCmd, xview option} {nonPortable} {
# This test gives slightly different results on platforms such
# as NetBSD. I don't know why...
@@ -119,7 +119,7 @@ test canvas-3.1 {CanvasWidgetCmd, yview option} {
.c yview scroll 3 units
update
lappend x [.c yview]
-} {{0 0.5} {0.1875 0.6875}}
+} {{0.0 0.5} {0.1875 0.6875}}
test canvas-3.2 {CanvasWidgetCmd, yview option} {
.c configure -xscrollincrement 40 -yscrollincrement 0
.c yview moveto 0
@@ -128,7 +128,7 @@ test canvas-3.2 {CanvasWidgetCmd, yview option} {
.c yview scroll 2 units
update
lappend x [.c yview]
-} {{0 0.5} {0.1 0.6}}
+} {{0.0 0.5} {0.1 0.6}}
test canvas-4.1 {ButtonEventProc procedure} {
deleteWindows