summaryrefslogtreecommitdiffstats
path: root/tests/bell.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-10-25 21:06:25 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-10-25 21:06:25 (GMT)
commit0d5336db012f45753abace489f18f0ca299c6961 (patch)
treeb1bf3280a9046df99226158978502eeb26f5b0a3 /tests/bell.test
parente97381a6d921de403516d5b761539a450f4af83c (diff)
parent1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff)
downloadtk-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.test10
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 ..."