* generic/tclCompCmds.c: added a cast to silence a compiler

error on VC2005.
* library/clock.tcl: Restored unique-prefix matching of keywords
on the [clock] command. [Bug 1690041]
* tests/clock.test: Added rudimentary test cases for unique-prefix
matching of keywords.

1 files changed, 9 insertions, 1 deletions

diff --git a/tests/clock.test b/tests/clock.test
index f5f7d47..2006029 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -11,7 +11,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.test,v 1.73 2007/03/09 02:26:05 kennykb Exp $
+# RCS: @(#) $Id: clock.test,v 1.74 2007/04/15 18:59:34 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -284,6 +284,10 @@ test clock-1.6 "clock format - gmt + timezone" {
     list [catch {clock format 0 -timezone :GMT -gmt true} msg] $msg $::errorCode
 } {1 {cannot use -gmt and -timezone in same call} {CLOCK gmtWithTimezone}}
 
+test clock-1.7 "clock format - option abbreviations" {
+    clock format 0 -g true -f "%Y-%m-%d"
+} 1970-01-01
+
 # BEGIN testcases2
 
 # Test formatting of Gregorian year, month, day, all formats
@@ -36436,6 +36440,10 @@ test clock-56.3 {use of zoneinfo, version 2, Y2038 compliance} {*}{
     -result {2040-07-01 00:00:00 PDT}
 }
 
+test clock-57.1 {clock scan - abbreviated options} {
+    clock scan 1970-01-01 -f %Y-%m-%d -g true
+} 0
+
 # cleanup
 
 namespace delete ::testClock