summaryrefslogtreecommitdiffstats
path: root/tests/canvas.test
diff options
context:
space:
mode:
authorpatthoyts@users.sourceforge.net <patthoyts>2009-01-13 01:46:05 (GMT)
committerpatthoyts@users.sourceforge.net <patthoyts>2009-01-13 01:46:05 (GMT)
commit2675c2e1db8d6901f19f69acc40b6640963abcc4 (patch)
tree2bb2e17fa91b47afa565195e5553ba50edf99aa9 /tests/canvas.test
parent311e284e3f778bf6b6b5713fa49dce9c36136e55 (diff)
downloadtk-2675c2e1db8d6901f19f69acc40b6640963abcc4.zip
tk-2675c2e1db8d6901f19f69acc40b6640963abcc4.tar.gz
tk-2675c2e1db8d6901f19f69acc40b6640963abcc4.tar.bz2
Tk tests that create images need to be independent of the interpreter environment.
Diffstat (limited to 'tests/canvas.test')
-rw-r--r--tests/canvas.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test
index 3128fa9..13108fb 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -7,11 +7,12 @@
# Copyright (c) 2008 Donal K. Fellows
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.28 2008/12/12 00:09:38 nijtmans Exp $
+# RCS: @(#) $Id: canvas.test,v 1.29 2009/01/13 01:46:06 patthoyts Exp $
package require tcltest 2.1
eval tcltest::configure $argv
tcltest::loadTestedCommands
+imageInit
# XXX - This test file is woefully incomplete. At present, only a few of the
# features are tested.
@@ -935,6 +936,7 @@ test canvas-19.11 {rchars method - errors} -setup {
} -returnCodes error -result {bad index "foo"}
# cleanup
+imageCleanup
cleanupTests
return