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/imgPhoto.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/imgPhoto.test')
-rw-r--r-- | tests/imgPhoto.test | 9 |
1 files changed, 8 insertions, 1 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] |