summaryrefslogtreecommitdiffstats
path: root/tests/clock.test
diff options
context:
space:
mode:
authorgahr <gahr@gahr.ch>2016-02-23 16:31:18 (GMT)
committergahr <gahr@gahr.ch>2016-02-23 16:31:18 (GMT)
commite644c2cde0ad8530628e57c4dba5797fc5ff3b85 (patch)
treed1d7688693a4d47297d51538354f9ea9b606dad6 /tests/clock.test
parent03dd6c13603af9d6792030412f52d942fc2eaefd (diff)
downloadtcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.zip
tcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.tar.gz
tcl-e644c2cde0ad8530628e57c4dba5797fc5ff3b85.tar.bz2
Make sure that adding 0 weekdays doesn't result in going back in time
Diffstat (limited to 'tests/clock.test')
-rw-r--r--tests/clock.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/clock.test b/tests/clock.test
index fc7992d..0b26213 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -35237,7 +35237,12 @@ test clock-30.28 {clock add weekdays starting on Sunday} {
set f1 [clock add $t 1 weekday]
set x1 [clock format $f1 -format {%Y-%m-%d}]
} {2013-11-25}
-test clock-30.29 {clock add weekdays systematic} -body {
+test clock-30.29 {clock add 0 weekdays starting on a weekend} {
+ set t [clock scan {2016-02-27}] ;# Saturday
+ set f1 [clock add $t 0 weekdays]
+ set x1 [clock format $f1 -format {%Y-%m-%d}]
+} {2016-02-27}
+test clock-30.30 {clock add weekdays systematic} -body {
set n [clock seconds]
set d [clock format $n -format %u]
for {set i 1} {$i < 100} {incr i} {