diff options
| author | sebres <sebres@users.sourceforge.net> | 2020-01-30 15:32:51 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2020-01-30 15:32:51 (GMT) |
| commit | f05d9af86d492cd0b158969b5190ccc651e91db4 (patch) | |
| tree | a6cb0bb0248ef5857e04284962dd102c28c0701e /library | |
| parent | 782689d5eb24cd73d2dfaef376d4412246ec6cfa (diff) | |
| download | tcl-f05d9af86d492cd0b158969b5190ccc651e91db4.zip tcl-f05d9af86d492cd0b158969b5190ccc651e91db4.tar.gz tcl-f05d9af86d492cd0b158969b5190ccc651e91db4.tar.bz2 | |
introduces new command and constraint testWithLimit (as include tests/internals.tcl) that can be used to test a code under restricted circumstances (e.g. limited address space)
Diffstat (limited to 'library')
| -rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index e0c925a..1394949 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -970,7 +970,7 @@ proc tcltest::testConstraint {constraint {value ""}} { return $testConstraints($constraint) } # Check for boolean values - if {[catch {expr {$value && $value}} msg]} { + if {[catch {expr {$value && 1}} msg]} { return -code error $msg } if {[limitConstraints] && ($constraint ni $Option(-constraints))} { |