tk/tests/bugs.tcl

   1 # This file is a Tcl script to test out various known bugs that will
   2 # cause Tk to crash.  This file ends with .tcl instead of .test to make
   3 # sure it isn't run when you type "source all".  We currently are not
   4 # shipping this file with the rest of the source release.
   5 #
   6 # Copyright (c) 1996 Sun Microsystems, Inc.
   7 #
   8 # See the file "license.terms" for information on usage and redistribution
   9 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10 #
  11 # RCS: @(#) $Id$
  12
  13 if {[info procs test] != "test"} {
  14     source defs
  15 }
  16
  17 test crash-1.0 {imgPhoto} {
  18     image create photo p1
  19     image create photo p2
  20     catch {image create photo p2 -file bogus}
  21     p1 copy p2
  22     label .l -image p1
  23     destroy .l
  24     set foo ""
  25 } {}
  26
  27 test crash-1.1 {color} {
  28     . configure -bg rgb:345
  29     set foo ""
  30 } {}
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43