diff options
| author | msofer <msofer@noemail.net> | 2006-10-23 22:49:24 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2006-10-23 22:49:24 (GMT) |
| commit | 8950ca1910e38773aa57dedee7369baad5d278ba (patch) | |
| tree | 5b48faeb4f251c92945b7f4621754d51b85e3817 /tests/clock.test | |
| parent | b2ae76a6c7a17748e2b89b1f952da7f38f8976ae (diff) | |
| download | tcl-8950ca1910e38773aa57dedee7369baad5d278ba.zip tcl-8950ca1910e38773aa57dedee7369baad5d278ba.tar.gz tcl-8950ca1910e38773aa57dedee7369baad5d278ba.tar.bz2 | |
* library/clock.tcl (format, scan): corrected wrong # args
* tests/clock.test (3.1, 34.1): messages to make use of the
new rewrite capabilities of [info level]
* generic/tcl.h: Lets TEOV update the iPtr->objc/objv
* generic/tclBasic.c: fields, except when the (new) flag bit
* generic/tclInt.h: TCL_EVAL_NOREWRITE is present. This
* generic/tclNamesp.c: causes [info level] to know and use
* generic/tclProc.c: ensemble rewrites [Bug 1577492]
* tests/namespace.test:
***POTENTIAL INCOMPATIBILITY***
The return value from [info level 0] on interp alias calls is
changed: previously returned the target command (including curried
values), now returns the source - what was actually called.
FossilOrigin-Name: db2a3f31b390f3aa535dbbaae83fcf5233114fbc
Diffstat (limited to 'tests/clock.test')
| -rw-r--r-- | tests/clock.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/clock.test b/tests/clock.test index 3eb6ed0..c1b9965 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.68 2006/10/01 20:59:01 kennykb Exp $ +# RCS: @(#) $Id: clock.test,v 1.69 2006/10/23 22:49:25 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -252,7 +252,7 @@ proc ::testClock::registry { cmd path key } { test clock-1.0 "clock format - wrong # args" { list [catch {clock format} msg] $msg $::errorCode -} {1 {wrong # args: should be "::tcl::clock::format clockval ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"} {CLOCK wrongNumArgs}} +} {1 {wrong # args: should be "clock format clockval ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"} {CLOCK wrongNumArgs}} test clock-1.1 "clock format - bad time" { list [catch {clock format foo} msg] $msg @@ -35523,7 +35523,7 @@ test clock-33.11a {clock test, millis align with micros} { # clock scan test clock-34.1 {clock scan tests} { list [catch {clock scan} msg] $msg -} {1 {wrong # args: should be "::tcl::clock::scan string ?-base seconds? ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"}} +} {1 {wrong # args: should be "clock scan string ?-base seconds? ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"}} test clock-34.2 {clock scan tests} { list [catch {clock scan "bad-string"} msg] $msg } {1 {unable to convert date-time string "bad-string"}} |