From 76b86596cb7edb28d4277ad60de37066b5cda319 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 20 Aug 2004 08:03:46 +0000
Subject: D'oh!  Fix [Bug 1012331]

---
 ChangeLog         | 5 +++++
 tests/canvas.test | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12