diff options
author | hershey <hershey> | 1999-03-26 19:13:55 (GMT) |
---|---|---|
committer | hershey <hershey> | 1999-03-26 19:13:55 (GMT) |
commit | 9d149e9f9c0413c54b3603bb0fa8ae9ec1bc1400 (patch) | |
tree | 6d7d9e2238e6ca76a24c3814027e90ef2a6eab81 /tests/dcall.test | |
parent | fa6f2749955e5569e001f5edbbc741b67eaab668 (diff) | |
download | tcl-9d149e9f9c0413c54b3603bb0fa8ae9ec1bc1400.zip tcl-9d149e9f9c0413c54b3603bb0fa8ae9ec1bc1400.tar.gz tcl-9d149e9f9c0413c54b3603bb0fa8ae9ec1bc1400.tar.bz2 |
-now all test files that skip tests by returning early (which ideally
they shouldn't do) call ::tcltest::cleanupTests before returning.
-the defs.tcl file has one new constraint: userInteraction, used by
tests that require user interaction. The next putback will include
an updated version of the "visual" test file to use this mechanism.
Diffstat (limited to 'tests/dcall.test')
-rw-r--r-- | tests/dcall.test | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/dcall.test b/tests/dcall.test index b555ea4..d1bfd52 100644 --- a/tests/dcall.test +++ b/tests/dcall.test @@ -11,18 +11,19 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: dcall.test,v 1.1.2.5 1999/03/24 02:49:03 hershey Exp $ +# RCS: @(#) $Id: dcall.test,v 1.1.2.6 1999/03/26 19:13:57 hershey Exp $ + +if {[lsearch [namespace children] ::tcltest] == -1} { + source [file join [pwd] [file dirname [info script]] defs.tcl] +} if {[info commands testdcall] == {}} { puts "This application hasn't been compiled with the \"testdcall\"" puts "command, so I can't test Tcl_CallWhenDeleted." + ::tcltest::cleanupTests return } -if {[lsearch [namespace children] ::tcltest] == -1} { - source [file join [pwd] [file dirname [info script]] defs.tcl] -} - test dcall-1.1 {deletion callbacks} { lsort -increasing [testdcall 1 2 3] } {1 2 3} |