summaryrefslogtreecommitdiffstats
path: root/tests/textTag.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-02-09 21:37:33 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-02-09 21:37:33 (GMT)
commite108f0116e3154bacd641f8f85529512a2b9046f (patch)
tree2f62e87a123537201bd9b027fa133da711caf9df /tests/textTag.test
parent196fc0f4ea980dfeed790a1c2f5e4cae7077c0b4 (diff)
downloadtk-e108f0116e3154bacd641f8f85529512a2b9046f.zip
tk-e108f0116e3154bacd641f8f85529512a2b9046f.tar.gz
tk-e108f0116e3154bacd641f8f85529512a2b9046f.tar.bz2
-selectfgstipple tag configuration option: tests
Diffstat (limited to 'tests/textTag.test')
-rw-r--r--tests/textTag.test13
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index 63081f3..ede86fd 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -251,12 +251,23 @@ test textTag-1.25d {configuration options} -body {
.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 -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.25f {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.25g {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.25f {configuration options} -body {
+test textTag-1.25h {configuration options} -body {
.t tag configure x -selectforeground non-existent
} -cleanup {
.t tag configure x -selectforeground [lindex [.t tag configure x -selectforeground] 3]