Merge 8.7. Use more TCL_UNUSED()

1 files changed, 3 insertions, 3 deletions

diff --git a/tests/clock.test b/tests/clock.test
index f530911..ed8c749 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -308,14 +308,14 @@ test clock-0.2 "initial: loading of format/locale does not overwrite interp stat
 
 # Test some of the basics of [clock format]
 
-set syntax "clock format clockval|-now ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"
+set syntax "clockval|-now ?-format string? ?-gmt boolean? ?-locale LOCALE? ?-timezone ZONE?"
 test clock-1.0 "clock format - wrong # args" {
     list [catch {clock format} msg] $msg $::errorCode
-} [subst {1 {wrong # args: should be "$syntax"} {CLOCK wrongNumArgs}}]
+} [subst {1 {wrong # args: should be "clock format $syntax"} {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
-} [subst {1 {wrong # args: should be "$syntax"} {CLOCK wrongNumArgs}}]
+} [subst {1 {wrong # args: should be "::tcl::clock::format $syntax"} {CLOCK wrongNumArgs}}]
 
 test clock-1.1 "clock format - bad time" {
     list [catch {clock format foo} msg] $msg