diff options
| author | nijtmans <nijtmans> | 2008-12-12 00:09:37 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-12-12 00:09:37 (GMT) |
| commit | 3f909f2ee775076c14b45580c9547c369524ac42 (patch) | |
| tree | e59ddae166470723e42e90450559f77303457f15 /tests/textTag.test | |
| parent | b7903758175d813d8c358619a9a2abfc62bff168 (diff) | |
| download | tk-3f909f2ee775076c14b45580c9547c369524ac42.zip tk-3f909f2ee775076c14b45580c9547c369524ac42.tar.gz tk-3f909f2ee775076c14b45580c9547c369524ac42.tar.bz2 | |
Make error message from Tk_GetRelief the
same as for Tk_GetReliefFromObj
Adapt test cases for changed error message
Diffstat (limited to 'tests/textTag.test')
| -rw-r--r-- | tests/textTag.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/textTag.test b/tests/textTag.test index bbda6e4..94c6dbf 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textTag.test,v 1.14 2008/08/28 08:52:06 aniap Exp $ +# RCS: @(#) $Id: textTag.test,v 1.15 2008/12/12 00:09:38 nijtmans Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -215,7 +215,7 @@ test textTag-1.23 {configuration options} -constraints { .t tag configure x -relief stupid } -cleanup { .t tag configure x -relief [lindex [.t tag configure x -relief] 3] -} -returnCodes error -result {bad relief type "stupid": must be flat, groove, raised, ridge, solid, or sunken} +} -returnCodes error -result {bad relief "stupid": must be flat, groove, raised, ridge, solid, or sunken} test textTag-1.24 {tag configuration options} -constraints { haveCourier12 } -body { |