diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-20 12:08:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-20 12:08:58 (GMT) |
| commit | cc2747afa84298fa9e583a491f772524708e24a7 (patch) | |
| tree | 50f306ecd5b415664ad232dff212ecb73cfa0fb3 | |
| parent | d103b73dba8c6256ba258c2f9be6245dfd334a99 (diff) | |
| download | tcl-cc2747afa84298fa9e583a491f772524708e24a7.zip tcl-cc2747afa84298fa9e583a491f772524708e24a7.tar.gz tcl-cc2747afa84298fa9e583a491f772524708e24a7.tar.bz2 | |
Add longIs64bit constraint to lseq-4.4 (because this isn't expected to work on 32-bit platforms). Remove some unused constraints.
| -rw-r--r-- | tests/compExpr-old.test | 3 | ||||
| -rw-r--r-- | tests/execute.test | 1 | ||||
| -rw-r--r-- | tests/expr-old.test | 1 | ||||
| -rw-r--r-- | tests/expr.test | 1 | ||||
| -rw-r--r-- | tests/lseq.test | 3 |
5 files changed, 2 insertions, 7 deletions
diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test index 5f705c3..ec7eda1 100644 --- a/tests/compExpr-old.test +++ b/tests/compExpr-old.test @@ -78,9 +78,6 @@ proc testIEEE {} { } testConstraint ieeeFloatingPoint [testIEEE] -testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] -testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] - # procedures used below proc put_hello_char {c} { diff --git a/tests/execute.test b/tests/execute.test index 6d8ce99..90af21c 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -34,7 +34,6 @@ testConstraint testobj [expr { && [llength [info commands teststringobj]] }] -testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] testConstraint testexprlongobj [llength [info commands testexprlongobj]] diff --git a/tests/expr-old.test b/tests/expr-old.test index 7344e08..7274851 100644 --- a/tests/expr-old.test +++ b/tests/expr-old.test @@ -25,7 +25,6 @@ testConstraint testexprlong [llength [info commands testexprlong]] testConstraint testexprdouble [llength [info commands testexprdouble]] testConstraint testexprstring [llength [info commands testexprstring]] testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] -testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] # Big test for correct ordering of data in [expr] diff --git a/tests/expr.test b/tests/expr.test index a20aee1..15eff76 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -21,7 +21,6 @@ if {"::tcltest" ni [namespace children]} { # type is a 64 bit number on this machine. testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] -testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] testConstraint wideIs64bit [expr {wide(0x8000000000000000) < 0}] # Big test for correct ordering of data in [expr] diff --git a/tests/lseq.test b/tests/lseq.test index 3f68da4..a280069 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -17,6 +17,7 @@ if {"::tcltest" ni [namespace children]} { testConstraint arithSeriesDouble 1 testConstraint arithSeriesShimmer 1 testConstraint arithSeriesShimmerOk 1 +testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] ## Arg errors test lseq-1.1 {error cases} -body { @@ -482,7 +483,7 @@ test lseq-4.3 {TIP examples} { # # Ticket 9933cc4d88697f05976accebd31c1e3ba6efe9c6 - lseq corner case -test lseq-4.4 {lseq corner case} -body { +test lseq-4.4 {lseq corner case} -constraints longIs64bit -body { set tcmd { set res {} set s [catch {lindex [lseq 10 100] 0} e] |