summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-11-15 16:41:40 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-11-15 16:41:40 (GMT)
commit3e3cbca74cb86cb694a6a95e849daaabcda74a31 (patch)
tree3d2e22bd79674e96cc7102056307c51a894b7451 /tests
parentde7a13a1ea31d6c10dabac82980991548cfac45a (diff)
downloadtcl-3e3cbca74cb86cb694a6a95e849daaabcda74a31.zip
tcl-3e3cbca74cb86cb694a6a95e849daaabcda74a31.tar.gz
tcl-3e3cbca74cb86cb694a6a95e849daaabcda74a31.tar.bz2
Bugs 926106 and 1353840
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdAH.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index cbd8947..6b0e053 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdAH.test,v 1.30.2.4 2004/04/06 08:47:01 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.30.2.5 2005/11/15 16:41:41 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1437,6 +1437,18 @@ test cmdAH-24.11 {Tcl_FileObjCmd: mtime touch with non-ascii chars} winOnly {
removeFile touch.me
rename waitForEvenSecondForFAT {}
+test cmdAH-24.12 {Tcl_FileObjCmd: mtime and daylight savings} {
+ set name [file join [temporaryDirectory] clockchange]
+
+ file delete -force $name
+ close [open $name w]
+ set time [clock scan "21:00:00 October 30 2004 GMT"]
+ file mtime $name $time
+ set newmtime [file mtime $name]
+ file delete $name
+ expr {$newmtime == $time ? 1 : "$newmtime != $time"}
+} {1}
+
# owned
test cmdAH-25.1 {Tcl_FileObjCmd: owned} {