diff options
author | fvogel <fvogelnew1@free.fr> | 2016-02-09 21:42:17 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-02-09 21:42:17 (GMT) |
commit | a2f7d5ff11fca87060c1bb7bda5034e7ef6ce529 (patch) | |
tree | 3e5ab22a8571cd3fcb16037aad4687757f80e74a | |
parent | f2c83432d562ac26c807364d38ee02de96e145a2 (diff) | |
download | tk-a2f7d5ff11fca87060c1bb7bda5034e7ef6ce529.zip tk-a2f7d5ff11fca87060c1bb7bda5034e7ef6ce529.tar.gz tk-a2f7d5ff11fca87060c1bb7bda5034e7ef6ce529.tar.bz2 |
-underlinefg tag configuration option: tests
-rw-r--r-- | tests/textTag.test | 18 |
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 { |