Mark 4 "clock" testcases with "knownBug". Ticket [1f40aa83c5] describes the details.

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/clock.test b/tests/clock.test
index 2a3557c..4420534 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -18682,11 +18682,11 @@ test clock-6.8 {input of seconds} {
     clock scan {9223372036854775807} -format %s -gmt true
 } 9223372036854775807
 
-test clock-6.9 {input of seconds - overflow} {
+test clock-6.9 {input of seconds - overflow} knownBug {
     list [catch {clock scan -9223372036854775809 -format %s -gmt true} result] $result $::errorCode
 } {1 {integer value too large to represent} {CLOCK dateTooLarge}}
 
-test clock-6.10 {input of seconds - overflow} {
+test clock-6.10 {input of seconds - overflow} knownBug {
     list [catch {clock scan 9223372036854775808 -format %s -gmt true} result] $result $::errorCode
 } {1 {integer value too large to represent} {CLOCK dateTooLarge}}
 
@@ -36243,11 +36243,11 @@ test clock-34.16 {clock scan, ISO 8601 point in time format} {
     set time [clock scan "19921023T235959" -gmt true]
     clock format $time -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Oct 23, 1992 23:59:59"
-test clock-34.16.1a {clock scan, ISO 8601 T literal optional (YYYYMMDDhhmmss)} {
+test clock-34.16.1a {clock scan, ISO 8601 T literal optional (YYYYMMDDhhmmss)} knownBug {
     set time [clock scan "19921023235959" -gmt true]
     clock format $time -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Oct 23, 1992 23:59:59"
-test clock-34.16.1b {clock scan, ISO 8601 T literal optional (YYYYMMDDhhmm)} {
+test clock-34.16.1b {clock scan, ISO 8601 T literal optional (YYYYMMDDhhmm)} knownBug {
     set time [clock scan "199210232359" -gmt true]
     clock format $time -format {%b %d, %Y %H:%M:%S} -gmt true
 } "Oct 23, 1992 23:59:00"