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: bugs.tcl,v 1.3 1999/04/16 01:51:34 stanton Exp $
12
13if {[info procs test] != "test"} {
14    source defs
15}
16
17test 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
27test 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
44