summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-07-11 13:01:30 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-07-11 13:01:30 (GMT)
commit654d69ee7dc6bb0c286f977985f0d43152f11e86 (patch)
treeac5057d3f4c8afd6359cb1fba7d39b9bd23a9fe7 /tests
parent4bc635795e9bf0335e5993887963504e2dd4eba3 (diff)
downloadtk-654d69ee7dc6bb0c286f977985f0d43152f11e86.zip
tk-654d69ee7dc6bb0c286f977985f0d43152f11e86.tar.gz
tk-654d69ee7dc6bb0c286f977985f0d43152f11e86.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.
Diffstat (limited to 'tests')
-rw-r--r--tests/imgPhoto.test9
-rw-r--r--tests/visual_bb.test10
2 files changed, 11 insertions, 8 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index 04c813d..c69360c 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -9,7 +9,7 @@
#
# Author: Paul Mackerras (paulus@cs.anu.edu.au)
#
-# RCS: @(#) $Id: imgPhoto.test,v 1.10 2002/06/14 13:35:49 dkf Exp $
+# RCS: @(#) $Id: imgPhoto.test,v 1.11 2002/07/11 13:01:30 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -654,6 +654,13 @@ hciva9/Ovbv37+BzBgEEADs=
set result
} 1
+test imgPhoto-15.1 {photo images can fail to allocate memory gracefully} \
+ {nonPortable} {
+ # This is not portable to very large machines with more around
+ # 3GB of free memory available...
+ list [catch {image create photo -width 32000 -height 32000} msg] $msg
+} {1 {not enough free memory for image buffer}}
+
destroy .c
eval image delete [image names]
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