diff options
-rw-r--r-- | library/clock.tcl | 6 | ||||
-rw-r--r-- | library/init.tcl | 4 | ||||
-rw-r--r-- | tests/clock.test | 2 |
3 files changed, 4 insertions, 8 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 9d41b80..ee84b83 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -1230,8 +1230,8 @@ proc ::tcl::clock::scan { args } { default { return -code error \ -errorcode [list CLOCK badOption $flag] \ - "bad option \"$flag\",\ - must be -base, -format, -gmt, -locale or -timezone" + "bad option \"$flag\":\ + must be -base, -format, -gmt, -locale, or -timezone" } } } @@ -4277,7 +4277,7 @@ proc ::tcl::clock::add { clockval args } { } default { throw [list CLOCK badOption $a] \ - "bad option \"$a\",\ + "bad option \"$a\":\ must be -gmt, -locale or -timezone" } } diff --git a/library/init.tcl b/library/init.tcl index cffe951..6ef0ac1 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -15,10 +15,6 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# This test intentionally written in pre-7.5 Tcl -if {[info commands package] == ""} { - error "version mismatch: library\nscripts expect Tcl version 7.5b1 or later but the loaded version is\nonly [info patchlevel]" -} package require -exact tcl 8.7a6 # Compute the auto path to use in this interpreter. diff --git a/tests/clock.test b/tests/clock.test index 7bcc002..189b83a 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -35634,7 +35634,7 @@ test clock-34.8 {clock scan tests} { } {Oct 23,1992 15:00 GMT} test clock-34.9 {clock scan tests} { list [catch {clock scan "Jan 12" -bad arg} msg] $msg -} {1 {bad option "-bad", must be -base, -format, -gmt, -locale or -timezone}} +} {1 {bad option "-bad": must be -base, -format, -gmt, -locale, or -timezone}} # The following two two tests test the two year date policy test clock-34.10 {clock scan tests} { set time [clock scan "1/1/71" -gmt true] |