summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-02-09 21:42:17 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-02-09 21:42:17 (GMT)
commit797f245ca2d4aafd6a0f7ad853cccd32a7942171 (patch)
tree3e5ab22a8571cd3fcb16037aad4687757f80e74a
parentecdc7dbb08227389f593c55a3b769a4e1ec9c8aa (diff)
downloadtk-797f245ca2d4aafd6a0f7ad853cccd32a7942171.zip
tk-797f245ca2d4aafd6a0f7ad853cccd32a7942171.tar.gz
tk-797f245ca2d4aafd6a0f7ad853cccd32a7942171.tar.bz2
-underlinefg tag configuration option: tests
-rw-r--r--tests/textTag.test18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index ede86fd..ae71a48 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -347,6 +347,17 @@ test textTag-1.35 {configuration options} -constraints {
} -cleanup {
.t tag configure x -underline [lindex [.t tag configure x -underline] 3]
} -returnCodes error -result {expected boolean value but got "stupid"}
+test textTag-1.36 {tag configuration options} -body {
+ .t tag configure x -underlinefg red
+ .t tag cget x -underlinefg
+} -cleanup {
+ .t tag configure x -underlinefg [lindex [.t tag configure x -underlinefg] 3]
+} -result {red}
+test textTag-1.37 {configuration options} -body {
+ .t tag configure x -underlinefg stupid
+} -cleanup {
+ .t tag configure x -underlinefg [lindex [.t tag configure x -underlinefg] 3]
+} -returnCodes error -result {unknown color name "stupid"}
test textTag-2.1 {TkTextTagCmd - "add" option} -constraints {
@@ -603,6 +614,13 @@ test textTag-5.4 {TkTextTagCmd - "configure" option} -constraints {
} -cleanup {
.t tag delete x
} -result {-underline {} {} {} yes}
+test textTag-5.4a {TkTextTagCmd - "configure" option} -body {
+ .t tag delete x
+ .t tag configure x -underlinefg lightgreen
+ .t tag configure x -underlinefg
+} -cleanup {
+ .t tag delete x
+} -result {-underlinefg {} {} {} lightgreen}
test textTag-5.5 {TkTextTagCmd - "configure" option} -constraints {
haveCourier12
} -body {