summaryrefslogtreecommitdiffstats
path: root/tests/lseq.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-09-29 06:45:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-09-29 06:45:20 (GMT)
commiteea655f8511157d811dc0b7be61de559c52ab81a (patch)
tree89b3d8bc62f25665a6703969c149c329ca08f930 /tests/lseq.test
parentf67437d6f3387995beea7486af82b8da4f04a163 (diff)
downloadtcl-eea655f8511157d811dc0b7be61de559c52ab81a.zip
tcl-eea655f8511157d811dc0b7be61de559c52ab81a.tar.gz
tcl-eea655f8511157d811dc0b7be61de559c52ab81a.tar.bz2
Remove "unknown" constraint, since it now works
Diffstat (limited to 'tests/lseq.test')
-rw-r--r--tests/lseq.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/lseq.test b/tests/lseq.test
index 48adfa0..45e3cd3 100644
--- a/tests/lseq.test
+++ b/tests/lseq.test
@@ -65,7 +65,7 @@ test lseq-1.10 {integer lseq with step} {
lseq 1 to 10 by 2
} {1 3 5 7 9}
-test lseq-1.11 {error case: increasing wrong step direction} knownBug {
+test lseq-1.11 {error case: increasing wrong step direction} {
lseq 1 to 10 by -2
} {}
@@ -113,7 +113,7 @@ test lseq-1.19 {too many arguments extra numeric value} -body {
lseq 12 to 24 by 2 7
} -returnCodes 1 -result {wrong # args: should be "lseq n ??op? n ??by? n??"}
-test lseq-1.20 {bug: wrong length computed} knownBug {
+test lseq-1.20 {bug: wrong length computed} {
lseq 1 to 10 -1
} {}
@@ -128,11 +128,11 @@ test lseq-1.22 {n n by -n} {
#
# Short-hand use cases
#
-test lseq-2.2 {step magnitude} knownBug {
+test lseq-2.2 {step magnitude} {
lseq 10 1 2 ;# this is an empty case since step has wrong sign
} {}
-test lseq-2.3 {step wrong sign} {arithSeriesDouble knownBug} {
+test lseq-2.3 {step wrong sign} arithSeriesDouble {
lseq 25. 5. 5 ;# ditto - empty list
} {}
@@ -166,7 +166,7 @@ test lseq-2.10 {integer lseq with step} {
lseq 1 10 2
} {1 3 5 7 9}
-test lseq-2.11 {error case: increasing wrong step direction} knownBug {
+test lseq-2.11 {error case: increasing wrong step direction} {
lseq 1 10 -2
} {}
@@ -196,7 +196,7 @@ test lseq-2.17 {large numbers} arithSeriesDouble {
# Covered: {10 1 2 } {1 10 2} {1 10 -2} {1 1 1} {1 1 1} {-5 17 3}
# Missing: {- - +} {- - -} {- + -} {+ - -} {- - +} {+ + -}
-test lseq-2.18 {signs} knownBug {
+test lseq-2.18 {signs} {
list [lseq -10 -1 2] \
[lseq -10 -1 -1] \
[lseq -10 1 -3] \
@@ -390,7 +390,7 @@ test lseq-3.28 {lreverse bug in ArithSeries} {} {
list $r $rr [string equal $r [lreverse $rr]]
} {{-5 -2 1 4 7 10 13 16} {16 13 10 7 4 1 -2 -5} 1}
-test lseq-3.29 {edge case: negative count} knownBug {
+test lseq-3.29 {edge case: negative count} {
lseq -15
} {}
@@ -425,7 +425,7 @@ test lseq-4.2 {start expressions} {
## lseq 1 to 10 by -2
## # -> lseq: invalid step = -2 with a = 1 and b = 10
-test lseq-4.3 {TIP examples} knownBug {
+test lseq-4.3 {TIP examples} {
set examples {# Examples from TIP-629
# --- Begin ---
lseq 10 .. 1