home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tk8.0 / tests / bugs.tcl < prev    next >
Encoding:
Text File  |  1997-08-15  |  823 b   |  31 lines  |  [TEXT/ALFA]
  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. # SCCS: @(#) bugs.tcl 1.1 96/07/25 15:49:45
  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.