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 /tests/lseq.test | |
| 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.
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 3 |
1 files changed, 2 insertions, 1 deletions
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] |