diff options
author | sebres <sebres@users.sourceforge.net> | 2018-08-23 10:26:03 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2018-08-23 10:26:03 (GMT) |
commit | 820a737a2f302b54ee7af88484cbfd694ec65804 (patch) | |
tree | 79b995a7a1ca36362bc68e54d3f7bc6a9ea34b63 /library/tcltest | |
parent | c2d61d8dbcee801a9eef8c388816573f3da4a92a (diff) | |
download | tcl-820a737a2f302b54ee7af88484cbfd694ec65804.zip tcl-820a737a2f302b54ee7af88484cbfd694ec65804.tar.gz tcl-820a737a2f302b54ee7af88484cbfd694ec65804.tar.bz2 |
code review, skip slow test winpipe-8.2 executed args from injectList particularly (normally winpipe-8.3 covers the same but jointly), to enable use parameter `-constraints slowTest`, added new test with randomly generated potentially dangerous args
Diffstat (limited to 'library/tcltest')
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 8e43859..936acaa 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -1243,6 +1243,10 @@ proc tcltest::DefineConstraintInitializers {} { ConstraintInitializer interactive \ {expr {[info exists ::tcl_interactive] && $::tcl_interactive}} + # Skip slow tests (to enable slow tests add parameter `-constraints slowTest`) + + ConstraintInitializer slowTest {format 0} + # Some tests can only be run if the installation came from a CD # image instead of a web image. Some tests must be skipped if you # are running as root on Unix. Other tests can only be run if you |