new subtree for tcl/tk

1 files changed, 0 insertions, 43 deletions

diff --git a/tcl8.6/tests/dcall.test b/tcl8.6/tests/dcall.test
deleted file mode 100644
index 41dd777..0000000
--- a/tcl8.6/tests/dcall.test
+++ /dev/null
@@ -1,43 +0,0 @@
-# Commands covered:  none
-#
-# This file contains a collection of tests for Tcl_CallWhenDeleted.
-# Sourcing this file into Tcl runs the tests and generates output for
-# errors.  No output means no errors were found.
-#
-# Copyright (c) 1993 The Regents of the University of California.
-# Copyright (c) 1994 Sun Microsystems, Inc.
-# Copyright (c) 1998-1999 by Scriptics Corporation.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-package require tcltest 2
-namespace import ::tcltest::*
-
-::tcltest::loadTestedCommands
-catch [list package require -exact Tcltest [info patchlevel]]
-
-testConstraint testdcall [llength [info commands testdcall]]
-
-test dcall-1.1 {deletion callbacks} testdcall {
-    lsort -increasing [testdcall 1 2 3]
-} {1 2 3}
-test dcall-1.2 {deletion callbacks} testdcall {
-    testdcall
-} {}
-test dcall-1.3 {deletion callbacks} testdcall {
-    lsort -increasing [testdcall 20 21 22 -22]
-} {20 21}
-test dcall-1.4 {deletion callbacks} testdcall {
-    lsort -increasing [testdcall 20 21 22 -20]
-} {21 22}
-test dcall-1.5 {deletion callbacks} testdcall {
-    lsort -increasing [testdcall 20 21 22 -21]
-} {20 22}
-test dcall-1.6 {deletion callbacks} testdcall {
-    lsort -increasing [testdcall 20 21 22 -21 -22 -20]
-} {}
-
-# cleanup
-cleanupTests
-return