summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/canvas.test3
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 49c6b46..c75f934 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-20 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * tests/canvas.test (canvas-17.1): Report the result of the test
+ so that it can be compared. [Bug 1012331]
+
2004-08-19 Jeff Hobbs <jeffh@ActiveState.com>
* win/tkWinDialog.c (Tk_MessageBoxObjCmd): Inherit the icon from
diff --git a/tests/canvas.test b/tests/canvas.test
index 84f18b3..49c69e1 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.20 2004/08/19 14:41:52 dkf Exp $
+# RCS: @(#) $Id: canvas.test,v 1.21 2004/08/20 08:03:46 dkf Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -484,6 +484,7 @@ test canvas-17.1 {default smooth method handling} {
.c itemconfigure $id -smooth $smoother
lappend result [.c itemcget $id -smooth]
}
+ set result
} {0 true true true raw raw true}
destroy .c