diff options
Diffstat (limited to 'tests/bell.test')
-rw-r--r-- | tests/bell.test | 57 |
1 files changed, 25 insertions, 32 deletions
diff --git a/tests/bell.test b/tests/bell.test index 4f7df97..16fea0f 100644 --- a/tests/bell.test +++ b/tests/bell.test @@ -5,40 +5,32 @@ # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. -package require tcltest 2.2 -namespace import ::tcltest::* +package require tcltest 2.1 eval tcltest::configure $argv tcltest::loadTestedCommands -test bell-1.1 {bell command} -body { - bell a -} -returnCodes {error} -result {bad option "a": must be -displayof or -nice} - -test bell-1.2 {bell command} -body { - bell a b -} -returnCodes {error} -result {bad option "a": must be -displayof or -nice} - -test bell-1.3 {bell command} -body { - bell -displayof gorp -} -returnCodes {error} -result {bad window path name "gorp"} - -test bell-1.4 {bell command} -body { - bell -nice -displayof -} -returnCodes {error} -result {wrong # args: should be "bell ?-displayof window? ?-nice?"} - -test bell-1.5 {bell command} -body { - bell -nice -nice -nice -} -returnCodes {ok} -result {} ;#keep -result {} and -retutnCodes {ok} for clarity? - -test bell-1.6 {bell command} -body { - bell -displayof . -nice -} -returnCodes {ok} -result {} - -test bell-1.7 {bell command} -body { - bell -nice -displayof . -nice -} -returnCodes {error} -result {wrong # args: should be "bell ?-displayof window? ?-nice?"} - -test bell-1.8 {bell command} -body { +test bell-1.1 {bell command} { + list [catch {bell a} msg] $msg +} {1 {bad option "a": must be -displayof or -nice}} +test bell-1.2 {bell command} { + list [catch {bell a b} msg] $msg +} {1 {bad option "a": must be -displayof or -nice}} +test bell-1.3 {bell command} { + list [catch {bell -displayof gorp} msg] $msg +} {1 {bad window path name "gorp"}} +test bell-1.4 {bell command} { + list [catch {bell -nice -displayof} msg] $msg +} {1 {wrong # args: should be "bell ?-displayof window? ?-nice?"}} +test bell-1.5 {bell command} { + list [catch {bell -nice -nice -nice} msg] $msg +} {0 {}} +test bell-1.6 {bell command} { + list [catch {bell -displayof . -nice} msg] $msg +} {0 {}} +test bell-1.7 {bell command} { + list [catch {bell -nice -displayof . -nice} msg] $msg +} {1 {wrong # args: should be "bell ?-displayof window? ?-nice?"}} +test bell-1.8 {bell command} { puts "Bell should ring now ..." flush stdout after 200 @@ -47,7 +39,8 @@ test bell-1.8 {bell command} -body { bell -nice after 200 bell -} -result {} +} {} +# cleanup cleanupTests return |