diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /tests/bell.test | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
Diffstat (limited to 'tests/bell.test')
| -rw-r--r-- | tests/bell.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/bell.test b/tests/bell.test index 2f5efee..935ce8f 100644 --- a/tests/bell.test +++ b/tests/bell.test @@ -12,19 +12,19 @@ tcltest::loadTestedCommands test bell-1.1 {bell command} -body { bell a -} -returnCodes {error} -result {bad option "a": must be -displayof or -nice} +} -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} +} -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"} +} -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?"} +} -returnCodes error -result {wrong # args: should be "bell ?-displayof window? ?-nice?"} test bell-1.5 {bell command} -body { bell -nice -nice -nice @@ -36,7 +36,7 @@ test bell-1.6 {bell command} -body { test bell-1.7 {bell command} -body { bell -nice -displayof . -nice -} -returnCodes {error} -result {wrong # args: should be "bell ?-displayof window? ?-nice?"} +} -returnCodes error -result {wrong # args: should be "bell ?-displayof window? ?-nice?"} test bell-1.8 {bell command} -body { puts "Bell should ring now ..." |
