diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-08-27 15:43:22 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-08-27 15:43:22 (GMT) |
| commit | 352415b3eeb5738425e2d810b643462214def91a (patch) | |
| tree | 7bc91090847ac218058653bed90f43f73f7b7526 | |
| parent | e5845ff546364f25ae5975f00bf7e2756f4d692d (diff) | |
| download | tk-352415b3eeb5738425e2d810b643462214def91a.zip tk-352415b3eeb5738425e2d810b643462214def91a.tar.gz tk-352415b3eeb5738425e2d810b643462214def91a.tar.bz2 | |
Remove tests/bugs.tcl: the test cases in that file do no longer make Tk crash (for a long time).
| -rw-r--r-- | tests/bugs.tcl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/tests/bugs.tcl b/tests/bugs.tcl deleted file mode 100644 index 55e5f84..0000000 --- a/tests/bugs.tcl +++ /dev/null @@ -1,41 +0,0 @@ -# This file is a Tcl script to test out various known bugs that will -# cause Tk to crash. This file ends with .tcl instead of .test to make -# sure it isn't run when you type "source all". We currently are not -# shipping this file with the rest of the source release. -# -# Copyright (c) 1996 Sun Microsystems, Inc. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. - -if {[info procs test] != "test"} { - source defs -} - -test crash-1.0 {imgPhoto} { - image create photo p1 - image create photo p2 - catch {image create photo p2 -file bogus} - p1 copy p2 - label .l -image p1 - destroy .l - set foo "" -} {} - -test crash-1.1 {color} { - . configure -bg rgb:345 - set foo "" -} {} - - - - - - - - - - - - - |