summaryrefslogtreecommitdiffstats
path: root/tests/textTag.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/textTag.test')
-rw-r--r--tests/textTag.test24
1 files changed, 1 insertions, 23 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index f8d7033..88081d0 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -273,34 +273,12 @@ test textTag-1.25d {configuration options} -body {
.t tag configure x -selectbackground [lindex [.t tag configure x -selectbackground] 3]
} -returnCodes error -result {unknown color name "non-existent"}
test textTag-1.25e {tag configuration options} -body {
- .t tag configure x -selectbgstipple gray50
- .t tag cget x -selectbgstipple
-} -cleanup {
- .t tag configure x -selectbgstipple [lindex [.t tag configure x -selectbgstipple] 3]
-} -result {gray50}
-test textTag-1.25f {configuration options} -body {
- .t tag configure x -selectbgstipple badStipple
-} -cleanup {
- .t tag configure x -selectbgstipple [lindex [.t tag configure x -selectbgstipple] 3]
-} -returnCodes error -result {bitmap "badStipple" not defined}
-test textTag-1.25g {tag configuration options} -body {
- .t tag configure x -selectfgstipple gray50
- .t tag cget x -selectfgstipple
-} -cleanup {
- .t tag configure x -selectfgstipple [lindex [.t tag configure x -selectfgstipple] 3]
-} -result {gray50}
-test textTag-1.25h {configuration options} -body {
- .t tag configure x -selectfgstipple badStipple
-} -cleanup {
- .t tag configure x -selectfgstipple [lindex [.t tag configure x -selectfgstipple] 3]
-} -returnCodes error -result {bitmap "badStipple" not defined}
-test textTag-1.25i {tag configuration options} -body {
.t tag configure x -selectforeground #012345
.t tag cget x -selectforeground
} -cleanup {
.t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]
} -result {#012345}
-test textTag-1.25j {configuration options} -body {
+test textTag-1.25f {configuration options} -body {
.t tag configure x -selectforeground non-existent
} -cleanup {
.t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]