From e108f0116e3154bacd641f8f85529512a2b9046f Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Tue, 9 Feb 2016 21:37:33 +0000
Subject: -selectfgstipple tag configuration option: tests

---
 tests/textTag.test | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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]
-- 
cgit v0.12