* library/reg/pkgIndex.tcl: [TIP #362]: Fixed first round of

* tests/registry.test:          bugs resulting from the recent commits
* win/tclWinReg.c:              of changes in support of the referenced
                                TIP.

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/registry.test b/tests/registry.test
index 8a7c4d4..02866f3 100644
--- a/tests/registry.test
+++ b/tests/registry.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1997 by Sun Microsystems, Inc.  All rights reserved.
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
-# RCS: @(#) $Id: registry.test,v 1.25 2010/03/30 12:33:47 dkf Exp $
+# RCS: @(#) $Id: registry.test,v 1.26 2010/04/02 19:27:44 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -50,7 +50,7 @@ test registry-1.2 {argument parsing for registry command} {win reg} {
 } {1 {bad option "foo": must be broadcast, delete, get, keys, set, type, or values}}
 test registry-1.2a {argument parsing for registry command} {win reg} {
     list [catch {registry -33bit foo} msg] $msg
-} {1 {bad option "-33bit": must be broadcast, delete, get, keys, set, type, or values}}
+} {1 {bad mode "-33bit": must be -32bit or -64bit}}
 
 test registry-1.3 {argument parsing for registry command} {win reg} {
     list [catch {registry d} msg] $msg
@@ -662,13 +662,13 @@ test registry-11.3 {SetValue: failure} \
 
 test registry-12.1 {BroadcastValue} -constraints {win reg} -body {
     registry broadcast
-} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout millisecs?\""
+} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\""
 test registry-12.2 {BroadcastValue} -constraints {win reg} -body {
     registry broadcast "" -time
-} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout millisecs?\""
+} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\""
 test registry-12.3 {BroadcastValue} -constraints {win reg} -body {
     registry broadcast "" - 500
-} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout millisecs?\""
+} -returnCodes error -result "wrong # args: should be \"registry broadcast keyName ?-timeout milliseconds?\""
 test registry-12.4 {BroadcastValue} -constraints {win reg} -body {
     registry broadcast {Environment}
 } -result {1 0}