summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/clock.test16
-rw-r--r--tests/zipfs.test2
2 files changed, 15 insertions, 3 deletions
diff --git a/tests/clock.test b/tests/clock.test
index b7226db..a94f854 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -6,8 +6,8 @@
# built-in commands. Sourcing this file into Tcl runs the tests and
# generates output for errors. No output means no errors were found.
#
-# Copyright © 2004 by Kevin B. Kenny. All rights reserved.
-# Copyright © 2015 by Sergey G. Brester aka sebres.
+# Copyright © 2004 Kevin B. Kenny. All rights reserved.
+# Copyright © 2015 Sergey G. Brester aka sebres.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -18694,6 +18694,18 @@ test clock-6.10a {input of seconds - overflow, bug [1f40aa83c5]} knownBug {
list [catch {clock scan 27670116110564327423 -format %s -gmt true} result] $result $::errorCode
} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
+test clock-6.10b {input of seconds - overflow ??, bug [1f40aa83c5]} knownBug {
+ clock scan 27670116110564327423 -gmt true
+} 89170590268800
+
+test clock-6.10c {input of seconds - overflow, bug [1f40aa83c5]} {
+ list [catch {clock scan 27670116110564327424 -format %s -gmt true} result] $result $::errorCode
+} {1 {integer value too large to represent} {CLOCK dateTooLarge}}
+
+test clock-6.10d {input of seconds - overflow ??, bug [1f40aa83c5]} knownBug {
+ clock scan 27670116110564327424 -gmt true
+} -90247104115200
+
test clock-6.11 {input of seconds - two values} {
clock scan {1 2} -format {%s %s} -gmt true
} 2
diff --git a/tests/zipfs.test b/tests/zipfs.test
index be4ba19..124a43f 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -1450,7 +1450,7 @@ namespace eval test_ns_zipfs {
testzipfsglob basic-type-d-f $basicMounts [list -type {d f} $defMountPt/*] [zipfspathsmt $defMountPt test testdir]
testzipfsglob basic-type-l $basicMounts [list -type l $defMountPt/*] {}
foreach type {b c l p s} {
- testzipfsglob basic-type-$type $basicMounts [list -type $type $defMountPt/*] {}
+ testzipfsglob basic-type-1-$type $basicMounts [list -type $type $defMountPt/*] {}
testzipfsglob basic-type-f-$type $basicMounts [list -type [list f $type] $defMountPt/*] [zipfspathsmt $defMountPt test]
testzipfsglob basic-type-d-$type $basicMounts [list -type [list d $type] $defMountPt/*] [zipfspathsmt $defMountPt testdir]
}