summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-10-16 21:20:03 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-10-16 21:20:03 (GMT)
commit1d96da7c532192b76e47d17e4e72a11d7adaa3c2 (patch)
tree5f7a2af4c9192c5e1853e679b5880ee6c739a95c /tests/text.test
parent3da23be2cedeef3e4349ee110f183ed9dca40486 (diff)
downloadtk-1d96da7c532192b76e47d17e4e72a11d7adaa3c2.zip
tk-1d96da7c532192b76e47d17e4e72a11d7adaa3c2.tar.gz
tk-1d96da7c532192b76e47d17e4e72a11d7adaa3c2.tar.bz2
Fix tests expected results for backwards search. All tests do pass at this point.
Diffstat (limited to 'tests/text.test')
-rw-r--r--tests/text.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/text.test b/tests/text.test
index 58c0400..6155802 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -5991,7 +5991,7 @@ test text-22.239 {TextSearchCmd, exact backwards search for the empty string} -b
} -cleanup {
destroy .t
unset -nocomplain res C
-} -result {2.5 0}
+} -result {2.4 0}
test text-22.240 {TextSearchCmd, exact backwards search all empty strings} -body {
text .t
set res [.t search -count C -backwards -all "" 1.0]
@@ -6003,12 +6003,12 @@ test text-22.240 {TextSearchCmd, exact backwards search all empty strings} -body
test text-22.241 {TextSearchCmd, exact backwards search all empty strings} -body {
text .t
.t insert end "Searching for the\nempty string!"
- set res [.t search -count C -backwards -all "" 2.5 2.8]
+ set res [.t search -count C -backwards -all "" 2.5 2.0]
lappend res $C
} -cleanup {
destroy .t
unset -nocomplain res C
-} -result {2.5 2.6 2.7 {0 0 0}}
+} -result {2.4 2.3 2.2 2.1 2.0 {0 0 0 0 0}}
test text-22.242 {TextSearchCmd, exact backwards search all empty strings, with overlap} -body {
text .t
set res [.t search -count C -backwards -all -overlap "" 1.0]
@@ -6020,12 +6020,12 @@ test text-22.242 {TextSearchCmd, exact backwards search all empty strings, with
test text-22.243 {TextSearchCmd, exact backwards search all empty strings, with overlap} -body {
text .t
.t insert end "Searching for the\nempty string!"
- set res [.t search -count C -backwards -all -overlap "" 2.5 2.8]
+ set res [.t search -count C -backwards -all -overlap "" 2.5 2.0]
lappend res $C
} -cleanup {
destroy .t
unset -nocomplain res C
-} -result {2.5 2.6 2.7 {0 0 0}}
+} -result {2.4 2.3 2.2 2.1 2.0 {0 0 0 0 0}}
test text-22.244 {TextSearchCmd, regexp backwards search for the empty string} -body {
text .t
set res [.t search -count C -backwards -regexp "" 1.0]
@@ -6085,7 +6085,7 @@ test text-22.250 {TextSearchCmd, backwards search all matching at start of line}
lappend res [.t search -backwards -all a end] ; # used to hang
} -cleanup {
destroy .t
-} -result {1.1 1.0}
+} -result {1.1 1.0 1.0}
test text-23.1 {TkTextGetTabs procedure} -setup {
text .t -highlightthickness 0 -bd 0 -relief flat -padx 0 -width 100