diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-26 22:48:15 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-26 22:48:15 (GMT) |
| commit | f2e08d25dbc3a64b9197ac4477e972d6109cf11b (patch) | |
| tree | 63abc5a5806ea814bd92f9f8c797bbb5874d7d59 /tests/tcltests.tcl | |
| parent | 42a77f7b4b1e4f3699d71cd2cf9fe6de7e9e4d71 (diff) | |
| download | tcl-f2e08d25dbc3a64b9197ac4477e972d6109cf11b.zip tcl-f2e08d25dbc3a64b9197ac4477e972d6109cf11b.tar.gz tcl-f2e08d25dbc3a64b9197ac4477e972d6109cf11b.tar.bz2 | |
Add test constaints "debug", "purify", and "debugpurify"
Diffstat (limited to 'tests/tcltests.tcl')
| -rw-r--r-- | tests/tcltests.tcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl index 193ba0a..09c8b28 100644 --- a/tests/tcltests.tcl +++ b/tests/tcltests.tcl @@ -3,6 +3,16 @@ package require tcltest 2.5 namespace import ::tcltest::* testConstraint exec [llength [info commands exec]] +testConstraint debug [testdebug] +testConstraint purify [testpurify] +testConstraint debugpurify [ + expr { + ![stestConstraint memory] + && + [testConstraint debug] + && + [testConstraint purify] +}] testConstraint fcopy [llength [info commands fcopy]] testConstraint fileevent [llength [info commands fileevent]] testConstraint thread [ |