summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
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 7173908..25db252 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.49 2004/10/31 23:59:49 dgp Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.50 2004/11/01 16:58:37 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1231,6 +1231,18 @@ test cmdAH-24.11 {Tcl_FileObjCmd: mtime touch with non-ascii chars} win {
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} {