diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/button.test | 8 | ||||
-rw-r--r-- | tests/menubut.test | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/tests/button.test b/tests/button.test index b30780d..fb1e5f3 100644 --- a/tests/button.test +++ b/tests/button.test @@ -3368,7 +3368,7 @@ test button-5.17 {ConfigureButton - -width option} -body { } -cleanup { destroy .b } -result {expected integer but got "1i" - (processing -width option) + (processing "-width" option) invoked from within ".b configure -width 1i"} test button-5.18 {ConfigureButton - -height option} -body { @@ -3384,7 +3384,7 @@ test button-5.19 {ConfigureButton - -height option} -body { } -cleanup { destroy .b } -result {expected integer but got "0.5c" - (processing -height option) + (processing "-height" option) invoked from within ".b configure -height 0.5c"} #ex 6.16 @@ -3401,7 +3401,7 @@ test button-5.21 {ConfigureButton - -width option} -body { } -cleanup { destroy .b } -result {expected screen distance but got "abc" - (processing -width option) + (processing "-width" option) invoked from within ".b configure -width abc"} test button-5.22 {ConfigureButton - -height option} -constraints { @@ -3428,7 +3428,7 @@ test button-5.23 {ConfigureButton - -height option} -constraints { destroy .b image delete image1 } -result {expected screen distance but got "0.5x" - (processing -height option) + (processing "-height" option) invoked from within ".b configure -height 0.5x"} #ex 6.18 diff --git a/tests/menubut.test b/tests/menubut.test index 21c0cf7..028341f 100644 --- a/tests/menubut.test +++ b/tests/menubut.test @@ -404,7 +404,7 @@ test menubutton-4.2 {ConfigureMenuButton procedure} -setup { } -cleanup { deleteWindows } -result {expected integer but got "1i" - (processing -width option) + (processing "-width" option) invoked from within ".mb1 configure -width 1i"} @@ -425,7 +425,7 @@ test menubutton-4.4 {ConfigureMenuButton procedure} -setup { } -cleanup { deleteWindows } -result {expected integer but got "0.5c" - (processing -height option) + (processing "-height" option) invoked from within ".mb1 configure -height 0.5c"} @@ -446,7 +446,7 @@ test menubutton-4.6 {ConfigureMenuButton procedure} -setup { } -cleanup { deleteWindows } -result {expected screen distance but got "abc" - (processing -width option) + (processing "-width" option) invoked from within ".mb1 configure -width abc"} @@ -477,7 +477,7 @@ test menubutton-4.8 {ConfigureMenuButton procedure} -constraints { deleteWindows imageCleanup } -result {expected screen distance but got "0.5x" - (processing -height option) + (processing "-height" option) invoked from within ".mb1 configure -height 0.5x"} |