diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2009-01-13 01:46:05 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-01-13 01:46:05 (GMT) |
| commit | 4a96ce86821a373b23644857f6b01261d1fd6c1c (patch) | |
| tree | 2bb2e17fa91b47afa565195e5553ba50edf99aa9 /tests/canvPs.test | |
| parent | 19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d (diff) | |
| download | tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.zip tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.tar.gz tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.tar.bz2 | |
Tk tests that create images need to be independent of the interpreter environment.
Diffstat (limited to 'tests/canvPs.test')
| -rw-r--r-- | tests/canvPs.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/canvPs.test b/tests/canvPs.test index 7b566e5..1ef967a 100644 --- a/tests/canvPs.test +++ b/tests/canvPs.test @@ -6,12 +6,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvPs.test,v 1.13 2008/08/07 23:05:15 aniap Exp $ +# RCS: @(#) $Id: canvPs.test,v 1.14 2009/01/13 01:46:06 patthoyts Exp $ package require tcltest 2.2 namespace import ::tcltest::* eval tcltest::configure $argv tcltest::loadTestedCommands +imageInit # canvas used in 1.* and 2.* test cases canvas .c -width 400 -height 300 -bd 2 -relief sunken @@ -157,6 +158,7 @@ test canvPs-3.1 {test ps generation with an embedded window} -constraints { file exists $bar } -cleanup { destroy .c + imageCleanup removeFile bar.ps } -result {1} test canvPs-3.2 {test ps generation with an embedded window not mapped} -setup { @@ -186,6 +188,11 @@ test canvPs-4.1 {test ps generation with single-point uncolored poly, bug 734498 # cleanup unset -nocomplain foo bar +imageFinish deleteWindows cleanupTests return + +# Local variables: +# mode: tcl +# End:
\ No newline at end of file |