diff options
author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-15 21:06:39 (GMT) |
---|---|---|
committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-15 21:06:39 (GMT) |
commit | 8c688c6afa87bdf3a033fdf1731db05a97596c56 (patch) | |
tree | 59e6bc355a9f6a827ec7e7fee1dec6dab1526c7a | |
parent | 2ae181bb4eb57d820d32c91de7dfb7774a5e0f2b (diff) | |
download | tk-8c688c6afa87bdf3a033fdf1731db05a97596c56.zip tk-8c688c6afa87bdf3a033fdf1731db05a97596c56.tar.gz tk-8c688c6afa87bdf3a033fdf1731db05a97596c56.tar.bz2 |
Fixed tests which mandated (minor) brokenness.
-rw-r--r-- | ChangeLog | 3 | ||||
-rw-r--r-- | tests/canvas.test | 8 |
2 files changed, 7 insertions, 4 deletions
@@ -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 |