summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/clock.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/clock.test b/tests/clock.test
index 3a43017..a0b2a6a 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -18708,25 +18708,25 @@ test clock-6.10 {input of seconds - overflow} {
} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
foreach sign {{} -} {
- test clock-6.10a {input of seconds - overflow, bug [1f40aa83c5]} {
+ test clock-6.10a$sign {input of seconds - overflow, bug [1f40aa83c5]} {
list [catch {clock scan ${sign}27670116110564327423 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
- test clock-6.10b {input of seconds - overflow, bug [1f40aa83c5]} {
+ test clock-6.10b$sign {input of seconds - overflow, bug [1f40aa83c5]} {
list [catch {clock scan ${sign}27670116110564327424 -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
- test clock-6.10c {input of seconds - no overflow, bug [1f40aa83c5]} {
+ test clock-6.10c$sign {input of seconds - no overflow, bug [1f40aa83c5]} {
list [catch {clock scan ${sign}[string repeat 9 18] -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} [list 0 ${sign}[string repeat 9 18] {}]
- test clock-6.10d {input of seconds - overflow, bug [1f40aa83c5]} {
+ test clock-6.10d$sign {input of seconds - overflow, bug [1f40aa83c5]} {
list [catch {clock scan ${sign}[string repeat 9 19] -format %s -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
# both fololowing freescan test don't generate overflow error,
# since it is a free scan, thus the token is simply not recognized further in yacc lexer,
# therefore we get parse error (can be surely changed latter):
- test clock-6.10e {input of seconds - overflow (but since freescan parse error, but not boom), bug [1f40aa83c5]} -body {
+ test clock-6.10e$sign {input of seconds - overflow (but since freescan parse error, but not boom), bug [1f40aa83c5]} -body {
list [catch {clock scan ${sign}27670116110564327423 -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} -match glob -result {1 {unable to convert date-time string "*": syntax error *} {TCL VALUE DATE PARSE}}
- test clock-6.10f {input of seconds - overflow (but since freescan parse error, but not boom), bug [1f40aa83c5]} -body {
+ test clock-6.10f$sign {input of seconds - overflow (but since freescan parse error, but not boom), bug [1f40aa83c5]} -body {
list [catch {clock scan ${sign}27670116110564327424 -gmt true} result opt] $result [dict getd $opt -errorcode ""]
} -match glob -result {1 {unable to convert date-time string "*": syntax error *} {TCL VALUE DATE PARSE}}
}; unset sign
@@ -18844,7 +18844,7 @@ test clock-6.21.0.1 {Stardate 0.1 - 1.9 (test negative clock value -> positive S
test clock-6.21.0.2 {Stardate 10000.1 - 10002.9 (test negative clock value -> positive Stardate)} {
_testStarDates [clock scan "Stardate 10000.1" -f %Q -g 1] 3 0.1
} {}
-test clock-6.21.0.2 {Stardate 80000.1 - 80002.9 (test positive clock value)} {
+test clock-6.21.0.3 {Stardate 80000.1 - 80002.9 (test positive clock value)} {
_testStarDates [clock scan "Stardate 80001.1" -f %Q -g 1] 3 0.1
} {}
test clock-6.21.1 {Stardate} {
@@ -18911,7 +18911,7 @@ test clock-6.22.16 {Greedy match} {
test clock-6.22.17 {Greedy match} {
clock format [clock scan "111213120" -format "%y%m%d%H%M%S" -gmt 1] -locale en -gmt 1
} {Tue Dec 13 01:02:00 GMT 2011}
-test clock-6.22.17 {Greedy match (space wins as date-time separator)} {
+test clock-6.22.17.1 {Greedy match (space wins as date-time separator)} {
clock format [clock scan "1112 13120" -format "%y%m%d %H%M%S" -gmt 1] -locale en -gmt 1
} {Sun Jan 02 13:12:00 GMT 2011}
test clock-6.22.18 {Greedy match (second space wins as date-time separator)} {