diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/registry.test | 10 |
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} |