From 352415b3eeb5738425e2d810b643462214def91a Mon Sep 17 00:00:00 2001 From: fvogel Date: Tue, 27 Aug 2019 15:43:22 +0000 Subject: Remove tests/bugs.tcl: the test cases in that file do no longer make Tk crash (for a long time). --- tests/bugs.tcl | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 tests/bugs.tcl 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 "" -} {} - - - - - - - - - - - - - -- cgit v0.12