diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-05-10 12:29:59 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-05-10 12:29:59 (GMT) |
| commit | b0cef09790ace51d01d8e0aa6ad9bea27c745cb4 (patch) | |
| tree | 1e7ceaadb60c8e22afab0cfcc916f72e15ff8280 /tests | |
| parent | efee121d8db22043e295d65a80ec3486ee0ac6fb (diff) | |
| download | tcl-b0cef09790ace51d01d8e0aa6ad9bea27c745cb4.zip tcl-b0cef09790ace51d01d8e0aa6ad9bea27c745cb4.tar.gz tcl-b0cef09790ace51d01d8e0aa6ad9bea27c745cb4.tar.bz2 | |
Fixed wrong args message (e.g. "clock format ..." instead of "::tcl::clock::format") if failed through compiled ensemble execution.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/clock.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/clock.test b/tests/clock.test index 9e86c97..214d4cb 100644 --- a/tests/clock.test +++ b/tests/clock.test @@ -257,6 +257,10 @@ test clock-1.0 "clock format - wrong # args" { list [catch {clock format} msg] $msg $::errorCode } {1 {wrong # args: should be "clock format clockval|-now ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"} {CLOCK wrongNumArgs}} +test clock-1.0.1 "clock format - wrong # args (compiled ensemble with invalid syntax)" { + list [catch {clock format 0 -too-few-options-4-test} msg] $msg $::errorCode +} {1 {wrong # args: should be "clock format clockval|-now ?-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 } {1 {expected integer but got "foo"}} |