diff options
| author | dkf <dkf@noemail.net> | 2002-07-11 13:01:29 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-07-11 13:01:29 (GMT) |
| commit | 2d0a3e5e834358702526085d5704c14a5be3bc0d (patch) | |
| tree | ac5057d3f4c8afd6359cb1fba7d39b9bd23a9fe7 /tests/visual_bb.test | |
| parent | 8e3e50424c84d09dd34fe24a9ec0c578099b8ab7 (diff) | |
| download | tk-2d0a3e5e834358702526085d5704c14a5be3bc0d.zip tk-2d0a3e5e834358702526085d5704c14a5be3bc0d.tar.gz tk-2d0a3e5e834358702526085d5704c14a5be3bc0d.tar.bz2 | |
tests/visual_vv.test: Removed some dependence on [exec]ed utilities
generic/tkImgPhoto.c: Allowed photo image buffer allocation to fail more
tests/imgPhoto.test: gracefully in some cicumstances. The remaining ones
require API changes before they can fail nicely.
FossilOrigin-Name: 55680eebda678567dd3ed23f90b73014266c01e8
Diffstat (limited to 'tests/visual_bb.test')
| -rw-r--r-- | tests/visual_bb.test | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/tests/visual_bb.test b/tests/visual_bb.test index 0b26a12..a113e3e 100644 --- a/tests/visual_bb.test +++ b/tests/visual_bb.test @@ -6,7 +6,7 @@ # at the window to make sure it appears as expected. Individual tests # are kept in separate ".tcl" files in this directory. # -# RCS: @(#) $Id: visual_bb.test,v 1.3 1999/12/14 06:53:15 hobbs Exp $ +# RCS: @(#) $Id: visual_bb.test,v 1.4 2002/07/11 13:01:31 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -31,15 +31,11 @@ proc runTest {file} { # The following procedure is invoked to print the contents of a canvas: -proc lpr c { - exec rm -f tmp.ps - $c postscript -file tmp.ps - exec lpr tmp.ps - exec rm -f tmp.ps +proc lpr {c args} { + exec lpr <<[eval [list $c postscript] $args] } test 1.1 "running visual tests" {userInteraction} { - #------------------------------------------------------- # The code below create the main window, consisting of a # menu bar and a message explaining the basic operation |