diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-11-03 23:00:17 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-11-03 23:00:17 (GMT) |
| commit | 255377e6f84e88f6ac12761c636205f757e9cae1 (patch) | |
| tree | c728110270c864eb5dd5c70abc97ab38894c2db8 /library/clock.tcl | |
| parent | 67f304de025068d52dc6ca3e327c5ba7ca8c010a (diff) | |
| download | tcl-255377e6f84e88f6ac12761c636205f757e9cae1.zip tcl-255377e6f84e88f6ac12761c636205f757e9cae1.tar.gz tcl-255377e6f84e88f6ac12761c636205f757e9cae1.tar.bz2 | |
remove knownBugs from clock tests by fixing them
Diffstat (limited to 'library/clock.tcl')
| -rw-r--r-- | library/clock.tcl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 0f91cca..d65723b 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: clock.tcl,v 1.10 2004/10/26 02:08:38 kennykb Exp $ +# RCS: @(#) $Id: clock.tcl,v 1.11 2004/11/03 23:00:22 kennykb Exp $ # #---------------------------------------------------------------------- @@ -1275,7 +1275,14 @@ proc ::tcl::clock::FreeScan { string base timezone locale } { set date [GetJulianDayFromEraYearMonthDay $date[set date {}]] if { $parseTime ne {} } { dict set date secondOfDay $parseTime + } elseif { [llength $parseWeekday] != 0 + || [llength $parseOrdinalMonth] != 0 + || ( [llength $parseRel] != 0 + && ( [lindex $parseRel 0] != 0 + || [lindex $parseRel 1] != 0 ) ) } { + dict set date secondOfDay 0 } + dict set date localSeconds \ [expr { -210866803200 + ( 86400 * wide([dict get $date julianDay]) ) @@ -1284,7 +1291,6 @@ proc ::tcl::clock::FreeScan { string base timezone locale } { set date [ConvertLocalToUTC $date[set date {}]] set seconds [dict get $date seconds] - # Do relative times if { [llength $parseRel] > 0 } { @@ -1292,7 +1298,7 @@ proc ::tcl::clock::FreeScan { string base timezone locale } { set seconds [add $seconds \ $relMonth months $relDay days $relSecond seconds \ -timezone $timezone -locale $locale] - } + } # Do relative weekday |