summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-02-09 21:33:07 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-02-09 21:33:07 (GMT)
commitfe236b4cfe544d14e84df23e27d07f7efba752d5 (patch)
tree105e6c2bc8845a26a9cd52fc74ef192e7d63c257
parent28fda9f36ca5e2e5cb00e56da38cd13e8391f44d (diff)
downloadtk-fe236b4cfe544d14e84df23e27d07f7efba752d5.zip
tk-fe236b4cfe544d14e84df23e27d07f7efba752d5.tar.gz
tk-fe236b4cfe544d14e84df23e27d07f7efba752d5.tar.bz2
-selectbgstipple tag configuration option: tests
-rw-r--r--tests/textTag.test13
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index 8b5ac74..63081f3 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -240,12 +240,23 @@ test textTag-1.25b {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.25c {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.25d {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.25e {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.25d {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]