archie/tk3.6/tests/text.test

1150 lines
37 KiB
Plaintext
Raw Normal View History

2024-05-27 16:13:40 +02:00
# This file is a Tcl script to test out Tk's text widget. The test
# file "btree.test" contains additional tests focussed on the B-tree
# facilities in particular. This file is organized in the standard
# fashion for Tcl tests.
#
# Copyright (c) 1992-1993 The Regents of the University of California.
# All rights reserved.
#
# Permission is hereby granted, without written agreement and without
# license or royalty fees, to use, copy, modify, and distribute this
# software and its documentation for any purpose, provided that the
# above copyright notice and the following two paragraphs appear in
# all copies of this software.
#
# IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
# DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
# OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
# CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
# AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
# ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
# PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
#
# $Header: /user6/ouster/wish/tests/RCS/text.test,v 1.13 93/11/01 14:52:02 ouster Exp $ (Berkeley)
if {[string compare test [info procs test]] == 1} then \
{source defs}
catch {destroy .t}
if [catch {text .t \
-font -adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1 \
-width 80 -height 24}] {
puts "The font needed by the text tests isn't available, so I'm"
puts "going to skip these tests."
return
}
pack append . .t {top expand fill}
.t debug on
wm geometry . {}
# The statements below reset the main window; it's needed if the window
# manager is mwm to make mwm forget about a previous minimum size setting.
wm withdraw .
wm minsize . 1 1
wm positionfrom . user
wm deiconify .
proc setup {} {
.t delete 1.0 end
foreach i [.t tag names] {
if {$i != "sel"} {
.t tag delete $i
}
}
.t insert 1.0 "Text for first line\nSecond line\n\nLast line of info"
.t tag add x 1.1
.t tag add x 1.5 1.13
.t tag add x 2.2 2.6
.t tag add y 1.5
}
setup
foreach i [.t mark names] {
if {($i != "insert") && ($i != "current")} {
.t mark unset $i
}
}
test text-1.1 {"compare" option} {
list [.t compare 1.1 < 1.2] [.t compare 1.1 < 1.1] [.t compare 1.1 < 1.0]
} {1 0 0}
test text-1.2 {"compare" option} {
list [.t compare 1.1 <= 1.2] [.t compare 1.1 <= 1.1] [.t compare 1.1 <= 1.0]
} {1 1 0}
test text-1.3 {"compare" option} {
list [.t compare 1.1 == 1.2] [.t compare 1.1 == 1.1] [.t compare 1.1 == 1.0]
} {0 1 0}
test text-1.4 {"compare" option} {
list [.t compare 1.1 >= 1.2] [.t compare 1.1 >= 1.1] [.t compare 1.1 >= 1.0]
} {0 1 1}
test text-1.5 {"compare" option} {
list [.t compare 1.1 > 1.2] [.t compare 1.1 > 1.1] [.t compare 1.1 > 1.0]
} {0 0 1}
test text-1.6 {"compare" option} {
list [.t compare 1.1 != 1.2] [.t compare 1.1 != 1.1] [.t compare 1.1 != 1.0]
} {1 0 1}
test text-1.7 {"compare" option} {
list [.t compare 1.3 < 2.3] [.t compare 1.3 == 2.3] [.t compare 1.1 > 2.3]
} {1 0 0}
test text-1.8 {"compare" option} {
list [.t compare 2.1 < 2.3] [.t compare 2.1 == 2.3] [.t compare 2.1 > 2.3]
} {1 0 0}
test text-1.9 {"compare" option} {
list [.t compare 2.3 < 2.3] [.t compare 2.3 == 2.3] [.t compare 2.3 > 2.3]
} {0 1 0}
test text-1.10 {"compare" option} {
list [.t compare 2.5 < 2.3] [.t compare 2.5 == 2.3] [.t compare 2.5 > 2.3]
} {0 0 1}
test text-1.11 {"compare" option} {
list [.t compare 3.0 < 2.3] [.t compare 3.0 == 2.3] [.t compare 3.0 > 2.3]
} {0 0 1}
test text-1.12 {"compare" option} {
list [catch {.t compare} msg] $msg
} {1 {wrong # args: should be ".t compare index1 op index2"}}
test text-1.13 {"compare" option} {
list [catch {.t compare 1 2} msg] $msg
} {1 {wrong # args: should be ".t compare index1 op index2"}}
test text-1.14 {"compare" option} {
list [catch {.t compare 1 2 3 4} msg] $msg
} {1 {wrong # args: should be ".t compare index1 op index2"}}
test text-1.15 {"compare" option} {
list [catch {.t compare foo < 1.2} msg] $msg
} {1 {bad text index "foo"}}
test text-1.16 {"compare" option} {
list [catch {.t compare 1.2 < foo} msg] $msg
} {1 {bad text index "foo"}}
test text-1.17 {"compare" option} {
list [catch {.t compare 1.0 a 1.2} msg] $msg
} {1 {bad comparison operator "a": must be <, <=, ==, >=, >, or !=}}
test text-1.18 {"compare" option} {
list [catch {.t compare 1.0 <a 1.2} msg] $msg
} {1 {bad comparison operator "<a": must be <, <=, ==, >=, >, or !=}}
test text-1.19 {"compare" option} {
list [catch {.t compare 1.0 <=x 1.2} msg] $msg
} {1 {bad comparison operator "<=x": must be <, <=, ==, >=, >, or !=}}
test text-1.20 {"compare" option} {
list [catch {.t compare 1.0 >=x 1.2} msg] $msg
} {1 {bad comparison operator ">=x": must be <, <=, ==, >=, >, or !=}}
test text-1.21 {"compare" option} {
list [catch {.t compare 1.0 >a 1.2} msg] $msg
} {1 {bad comparison operator ">a": must be <, <=, ==, >=, >, or !=}}
test text-1.22 {"compare" option} {
list [catch {.t compare 1.0 !x 1.2} msg] $msg
} {1 {bad comparison operator "!x": must be <, <=, ==, >=, >, or !=}}
test text-1.23 {"compare" option} {
list [catch {.t compare 1.0 === 1.2} msg] $msg
} {1 {bad comparison operator "===": must be <, <=, ==, >=, >, or !=}}
setup
.t mark set m1 1.2
.t mark set m2 2.4
update
test text-2.1 {"index" option, "@" notation} {
.t index @1,1
} {1.0}
test text-2.2 {"index" option, "@" notation} {
.t index @133,8
} {1.18}
test text-2.3 {"index" option, "@" notation} {
.t index @136,8
} {1.19}
test text-2.4 {"index" option, "@" notation} {
.t index @5,19
} {2.0}
test text-2.5 {"index" option, "@" notation} {
.t index @69,46
} {4.9}
test text-2.6 {"index" option, "@" notation} {
.t index @10,100
} {4.17}
test text-2.7 {"index" option, "@" notation} {
list [catch {.t index "@"} msg] $msg
} {1 {bad text index "@"}}
test text-2.8 {"index" option, "@" notation} {
list [catch {.t index "@a"} msg] $msg
} {1 {bad text index "@a"}}
test text-2.9 {"index" option, "@" notation} {
list [catch {.t index "@1x"} msg] $msg
} {1 {bad text index "@1x"}}
test text-2.10 {"index" option, "@" notation} {
list [catch {.t index "@1."} msg] $msg
} {1 {bad text index "@1."}}
test text-2.11 {"index" option, "@" notation} {
list [catch {.t index "@1.a"} msg] $msg
} {1 {bad text index "@1.a"}}
test text-3.1 {"index" option, line.char notation} {
.t index 1.1
} {1.1}
test text-3.2 {"index" option, line.char notation} {
.t index 2.end
} {2.11}
test text-3.3 {"index" option, line.char notation} {
.t index 3.end
} {3.0}
test text-3.4 {"index" option, line.char notation} {
.t index -1.-2
} {-1.-2}
test text-3.5 {"index" option, line.char notation} {
list [catch {.t index -a} msg] $msg
} {1 {bad text index "-a"}}
test text-3.6 {"index" option, line.char notation} {
list [catch {.t index 1.} msg] $msg
} {1 {bad text index "1."}}
test text-3.7 {"index" option, line.char notation} {
list [catch {.t index 1.e} msg] $msg
} {1 {bad text index "1.e"}}
test text-3.8 {"index" option, line.char notation} {
list [catch {.t index 1.enda} msg] $msg
} {1 {bad text index "1.enda"}}
test text-3.9 {"index" option, line.char notation} {
list [catch {.t index 400.end} msg] $msg
} {1 {bad text index "400.end": no such line in text}}
test text-3.10 {"index" option, line.char notation} {
list [catch {.t index 1.x} msg] $msg
} {1 {bad text index "1.x"}}
test text-4.1 {"index" option, miscellaneous bases} {
.t index end
} {4.17}
test text-4.2 {"index" option, miscellaneous bases} {
.t index m1
} {1.2}
test text-4.3 {"index" option, miscellaneous bases} {
.t index m2
} {2.4}
test text-4.4 {"index" option, miscellaneous bases} {
.t index x.first
} {1.1}
test text-4.5 {"index" option, miscellaneous bases} {
.t index x.last
} {2.6}
test text-4.6 {"index" option, miscellaneous bases} {
.t index y.first
} {1.5}
test text-4.7 {"index" option, miscellaneous bases} {
.t index y.last
} {1.6}
test text-4.8 {"index" option, miscellaneous bases} {
list [catch {.t index x.f} msg] $msg
} {1 {bad text index "x.f"}}
test text-4.9 {"index" option, miscellaneous bases} {
list [catch {.t index x.firstl} msg] $msg
} {1 {bad text index "x.firstl"}}
test text-4.10 {"index" option, miscellaneous bases} {
list [catch {.t index x.las} msg] $msg
} {1 {bad text index "x.las"}}
test text-4.11 {"index" option, miscellaneous bases} {
list [catch {.t index x.last1} msg] $msg
} {1 {bad text index "x.last1"}}
test text-4.12 {"index" option, miscellaneous bases} {
.t tag remove sel 0.0 end
list [catch {.t index sel.first} msg] $msg
} {1 {text doesn't contain any characters tagged with "sel"}}
test text-5.1 {"index" option with +/- modifiers} {
.t index 1.1+1c
} 1.2
test text-5.2 {"index" option with +/- modifiers} {
.t index @0,0+1c
} 1.1
test text-5.3 {"index" option with +/- modifiers} {
.t index 1.end+1c
} 2.0
test text-5.4 {"index" option with +/- modifiers} {
.t index m1+1c
} 1.3
test text-5.5 {"index" option with +/- modifiers} {
.t index "m1 +1c"
} 1.3
test text-5.6 {"index" option with +/- modifiers} {
.t index "m1-1c"
} 1.1
test text-5.7 {"index" option with +/- modifiers} {
list [catch {.t index "m1 x"} msg] $msg
} {1 {bad text index "m1 x"}}
test text-5.8 {"index" option with +/- modifiers} {
.t index "m1 + 1 c"
} 1.3
test text-5.9 {"index" option with +/- modifiers} {
list [catch {.t index "m1+x"} msg] $msg
} {1 {bad text index "m1+x"}}
test text-5.10 {"index" option with +/- modifiers} {
list [catch {.t index "m1+22gorps"} msg] $msg
} {1 {bad text index "m1+22gorps"}}
test text-5.11 {"index" option with +/- modifiers} {
.t index "1.2+1c"
} 1.3
test text-5.12 {"index" option with +/- modifiers} {
.t index "1.2+3c"
} 1.5
test text-5.13 {"index" option with +/- modifiers} {
.t index "1.2+17c"
} 1.19
test text-5.14 {"index" option with +/- modifiers} {
.t index "1.2+18c"
} 2.0
test text-5.15 {"index" option with +/- modifiers} {
.t index "1.2+20c"
} 2.2
test text-5.16 {"index" option with +/- modifiers} {
.t index "1.2+100c"
} 4.17
test text-5.17 {"index" option with +/- modifiers} {
.t index "2.4-1c"
} 2.3
test text-5.18 {"index" option with +/- modifiers} {
.t index "2.4-4c"
} 2.0
test text-5.19 {"index" option with +/- modifiers} {
.t index "2.4-5c"
} 1.19
test text-5.20 {"index" option with +/- modifiers} {
.t index "2.4-10c"
} 1.14
test text-5.21 {"index" option with +/- modifiers} {
.t index "2.4-100c"
} 1.0
test text-5.22 {"index" option with +/- modifiers} {
.t index "2.4 - 100 chars"
} 1.0
test text-5.23 {"index" option with +/- modifiers} {
list [catch {.t index "2.4 - 100 charsx"} msg] $msg
} {1 {bad text index "2.4 - 100 charsx"}}
test text-5.24 {"index" option with +/- modifiers} {
.t index "1.3+1l"
} 2.3
test text-5.25 {"index" option with +/- modifiers} {
.t index "1.3+2l"
} 3.0
test text-5.26 {"index" option with +/- modifiers} {
.t index "1.3+3li"
} 4.3
test text-5.27 {"index" option with +/- modifiers} {
.t index "1.3+4lines"
} 4.3
test text-5.28 {"index" option with +/- modifiers} {
.t index "3.2 - 1 lines"
} 2.2
test text-5.29 {"index" option with +/- modifiers} {
.t index "3.2 - 2 lines"
} 1.2
test text-5.30 {"index" option with +/- modifiers} {
.t index "3.2 - 3 lines"
} 1.2
test text-5.31 {"index" option with +/- modifiers} {
.t index "3.-2 - 1 lines"
} 2.0
test text-5.32 {"index" option with +/- modifiers} {
list [catch {.t index "3.-2 - 1 linesx"} msg] $msg
} {1 {bad text index "3.-2 - 1 linesx"}}
setup
.t insert end "\n#\$foo.bar! first_l60t _ "
test text-6.1 {"index" option with start/end modifiers} {
.t index "2.3 lines"
} 2.0
test text-6.2 {"index" option with start/end modifiers} {
.t index "2.0 linestart"
} 2.0
test text-6.3 {"index" option with start/end modifiers} {
.t index "2.-4 linestart"
} 2.0
test text-6.4 {"index" option with start/end modifiers} {
.t index "2.30 linestart"
} 3.0
test text-6.5 {"index" option with start/end modifiers} {
.t index "10.0 linestart"
} 5.0
test text-6.6 {"index" option with start/end modifiers} {
.t index "10.0 lineend"
} 5.24
test text-6.7 {"index" option with start/end modifiers} {
.t index "3.5 linee"
} 4.17
test text-6.8 {"index" option with start/end modifiers} {
.t index "2.4 lineend"
} 2.11
test text-6.9 {"index" option with start/end modifiers} {
.t index "0.0 lineend"
} 1.19
test text-6.10 {"index" option with start/end modifiers} {
list [catch {.t index "2.2 line"} msg] $msg
} {1 {bad text index "2.2 line"}}
test text-6.11 {"index" option with start/end modifiers} {
.t index "1.0 wordstart"
} 1.0
test text-6.12 {"index" option with start/end modifiers} {
.t index "1.1 wordstart"
} 1.0
test text-6.13 {"index" option with start/end modifiers} {
.t index "1.3 wordstart"
} 1.0
test text-6.14 {"index" option with start/end modifiers} {
.t index "1.4 words"
} 1.4
test text-6.15 {"index" option with start/end modifiers} {
.t index "1.5 wordstart"
} 1.5
test text-6.16 {"index" option with start/end modifiers} {
.t index "1.19 wordstart"
} 1.19
test text-6.17 {"index" option with start/end modifiers} {
.t index "5.3 wordstart"
} 5.2
test text-6.18 {"index" option with start/end modifiers} {
.t index "5.20 wordstart"
} 5.11
test text-6.19 {"index" option with start/end modifiers} {
.t index "5.0 wordend"
} 5.1
test text-6.20 {"index" option with start/end modifiers} {
.t index "5.1 wordend"
} 5.2
test text-6.21 {"index" option with start/end modifiers} {
.t index "5.2 wordend"
} 5.5
test text-6.22 {"index" option with start/end modifiers} {
.t index "5.4 wordend"
} 5.5
test text-6.23 {"index" option with start/end modifiers} {
.t index "5.5 wordend"
} 5.6
test text-6.24 {"index" option with start/end modifiers} {
.t index "5.11 wordend"
} 5.21
test text-6.25 {"index" option with start/end modifiers} {
.t index "5.100 wordend"
} 5.24
test text-6.26 {"index" option with start/end modifiers} {
list [catch {.t index "2.2 word"} msg] $msg
} {1 {bad text index "2.2 word"}}
test text-6.27 {"index" option with start/end modifiers} {
.t index "1.2 wordend+1line wordend"
} 2.6
test text-6.28 {"index" option with start/end modifiers} {
.t index "2.1 wordend-1 line wordend"
} 1.8
test text-6.29 {"index" option with start/end modifiers} {
.t index "2.3 wordend + 1 char wordend"
} 2.11
setup
test text-7.1 {RoundIndex procedure} {
.t index -1.4+0c
} 1.0
test text-7.2 {RoundIndex procedure} {
.t index 100.2+0c
} 4.17
test text-7.3 {RoundIndex procedure} {
.t index 2.-3+0c
} 2.0
test text-7.4 {RoundIndex procedure} {
.t index 2.100+0c
} 3.0
test text-7.5 {RoundIndex procedure} {
.t index 4.100+0c
} 4.17
test text-8.1 {"tag" option} {
list [catch {.t tag} msg] $msg
} {1 {wrong # args: should be ".t tag option ?arg arg ...?"}}
test text-8.2 {"tag" option} {
list [catch {.t tag gorp} msg] $msg
} {1 {bad tag option "gorp": must be add, bind, configure, delete, lower, names, nextrange, raise, ranges, or remove}}
test text-8.3 {"tag" option} {
list [catch {.t tag n} msg] $msg
} {1 {bad tag option "n": must be add, bind, configure, delete, lower, names, nextrange, raise, ranges, or remove}}
test text-8.4 {"tag" option} {
list [catch {.t tag r} msg] $msg
} {1 {bad tag option "r": must be add, bind, configure, delete, lower, names, nextrange, raise, ranges, or remove}}
test text-8.5 {"tag" option} {
list [catch {.t tag ra} msg] $msg
} {1 {bad tag option "ra": must be add, bind, configure, delete, lower, names, nextrange, raise, ranges, or remove}}
setup
test text-9.1 {"tag add" option} {
.t tag add x1 2.0
.t tag ranges x1
} {2.0 2.1}
test text-9.2 {"tag add" option} {
.t tag a x2 2.0 2.3
.t tag ranges x2
} {2.0 2.3}
test text-9.3 {"tag add" option} {
.t tag remove sel 0.0 end
.t tag add sel 2.0 2.3
selection get
} {Sec}
test text-9.4 {"tag add" option} {
list [catch {.t tag add} msg] $msg
} {1 {wrong # args: should be ".t tag add tagName index1 ?index2?"}}
test text-9.5 {"tag add" option} {
list [catch {.t tag add a b c d} msg] $msg
} {1 {wrong # args: should be ".t tag add tagName index1 ?index2?"}}
test text-9.6 {"tag add" option} {
list [catch {.t tag add a #xgorp} msg] $msg
} {1 {bad text index "#xgorp"}}
test text-9.7 {"tag add" option} {
list [catch {.t tag add a 1.0 #xgorp} msg] $msg
} {1 {bad text index "#xgorp"}}
setup
test text-10.1 {"tag configure" option} {
.t tag configure test -foreground white
lindex [.t tag c test -foreground] 4
} {white}
test text-10.2 {"tag configure" option} {
llength [.t tag configure test]
} {8}
test text-10.3 {"tag configure" option} {
list [catch {.t tag configure test -gorp} msg] $msg
} {1 {unknown option "-gorp"}}
test text-10.4 {"tag configure" option} {
list [catch {.t tag configure test -gorp blue} msg] $msg
} {1 {unknown option "-gorp"}}
test text-10.5 {"tag configure" option} {
list [catch {.t tag configure} msg] $msg
} {1 {wrong # args: should be ".t tag configure tagName ?option? ?value? ?option value ...?"}}
test text-10.6 {"tag configure" option} {
.t tag configure sel -foreground white
lindex [.t configure -selectforeground] 4
} {white}
test text-10.7 {"tag configure" option} {
.t tag configure sel -foreground black
lindex [.t configure -selectforeground] 4
} {black}
test text-10.8 {"tag configure" option} {
.t tag configure sel -borderwidth 8
lindex [.t configure -selectborderwidth] 4
} {8}
test text-10.6 {"tag configure" option} {
.t tag configure sel -background white
lindex [.t configure -selectbackground] 4
} {white}
test text-10.7 {"tag configure" option} {
.t tag configure sel -background black
lindex [.t configure -selectbackground] 4
} {black}
setup
test text-11.1 {"tag delete" option} {
.t tag add t1 2.0 2.3
.t tag delete t1
.t tag names
} {sel x y}
test text-11.2 {"tag delete" option} {
.t tag d x y
.t tag names
} {sel}
test text-11.3 {"tag delete" option} {
list [catch {.t tag delete sel} msg] $msg
} {1 {can't delete selection tag}}
test text-11.4 {"tag delete" option} {
list [catch {.t tag delete} msg] $msg
} {1 {wrong # args: should be ".t tag delete tagName tagName ..."}}
test text-11.5 {"tag delete" option} {
list [catch {.t tag delete #gorp} msg] $msg
} {0 {}}
setup
.t tag add a 2.0
.t tag add b 2.1
.t tag lower b
test text-12.1 {"tag lower" option} {
.t tag names
} {b sel x y a}
.t tag l b a
test text-12.2 {"tag lower" option} {
.t tag names
} {sel x y b a}
.t tag lower b b
test text-12.3 {"tag lower" option} {
.t tag names
} {sel x y b a}
.t tag lower b y
test text-12.4 {"tag lower" option} {
.t tag names
} {sel x b y a}
test text-12.5 {"tag lower" option} {
list [catch {.t tag lower} msg] $msg
} {1 {wrong # args: should be ".t tag lower tagName ?belowThis?"}}
test text-12.6 {"tag lower" option} {
list [catch {.t tag lower a b c} msg] $msg
} {1 {wrong # args: should be ".t tag lower tagName ?belowThis?"}}
test text-12.7 {"tag lower" option} {
list [catch {.t tag lower #gorp} msg] $msg
} {1 {tag "#gorp" isn't defined in text widget}}
test text-12.8 {"tag lower" option} {
list [catch {.t tag lower a #gorp} msg] $msg
} {1 {tag "#gorp" isn't defined in text widget}}
setup
.t tag add a 2.0 2.3
.t tag add b 2.2
.t tag lower b
test text-13.1 {"tag names" option} {
.t tag na
} {b sel x y a}
test text-13.2 {"tag names" option} {
.t tag names 2.2
} {b x a}
test text-13.3 {"tag names" option} {
list [catch {.t tag names a b} msg] $msg
} {1 {wrong # args: should be ".t tag names ?index?"}}
test text-13.4 {"tag names" option} {
list [catch {.t tag names @gorp} msg] $msg
} {1 {bad text index "@gorp"}}
test text-13.5 {"tag names" option} {
list [catch {.t tag names 100000.0} msg] $msg
} {0 {}}
test text-13.6 {"tag names" option} {
list [catch {.t tag names 2.7} msg] $msg
} {0 {}}
setup
test text-14.1 {"tag nextrange" option} {
.t tag ne x 1.0
} {1.1 1.2}
test text-14.2 {"tag nextrange" option} {
.t tag nextrange x 1.1
} {1.1 1.2}
test text-14.3 {"tag nextrange" option} {
.t tag nextrange x 1.2
} {1.5 1.13}
test text-14.4 {"tag nextrange" option} {
.t tag nextrange x 1.6
} {2.2 2.6}
test text-14.5 {"tag nextrange" option} {
.t tag nextrange x 1.3 1.14
} {1.5 1.13}
test text-14.6 {"tag nextrange" option} {
.t tag nextrange x 1.3 1.13
} {1.5 1.13}
test text-14.7 {"tag nextrange" option} {
.t tag nextrange x 1.3 1.10
} {1.5 1.13}
test text-14.8 {"tag nextrange" option} {
.t tag nextrange x 1.3 1.6
} {1.5 1.13}
test text-14.9 {"tag nextrange" option} {
.t tag nextrange x 1.3 1.5
} {}
test text-14.10 {"tag nextrange" option} {
list [catch {.t tag nextrange} msg] $msg
} {1 {wrong # args: should be ".t tag nextrange tagName index1 ?index2?"}}
test text-14.11 {"tag nextrange" option} {
list [catch {.t tag nextrange a} msg] $msg
} {1 {wrong # args: should be ".t tag nextrange tagName index1 ?index2?"}}
test text-14.12 {"tag nextrange" option} {
list [catch {.t tag nextrange a b c d} msg] $msg
} {1 {wrong # args: should be ".t tag nextrange tagName index1 ?index2?"}}
test text-14.13 {"tag nextrange" option} {
list [catch {.t tag nextrange #gorp 1.0} msg] $msg
} {0 {}}
test text-14.14 {"tag nextrange" option} {
list [catch {.t tag nextrange x @bogus} msg] $msg
} {1 {bad text index "@bogus"}}
test text-14.15 {"tag nextrange" option} {
list [catch {.t tag nextrange x 1.0 @bogus} msg] $msg
} {1 {bad text index "@bogus"}}
setup
.t tag add a 2.0
.t tag add b 2.1
.t tag rai x
test text-15.1 {"tag raise" option} {
.t tag names
} {sel y a b x}
.t tag raise x y
test text-15.2 {"tag raise" option} {
.t tag names
} {sel y x a b}
.t tag raise x x
test text-15.3 {"tag raise" option} {
.t tag names
} {sel y x a b}
.t tag raise x a
test text-15.4 {"tag raise" option} {
.t tag names
} {sel y a x b}
test text-15.5 {"tag raise" option} {
list [catch {.t tag raise} msg] $msg
} {1 {wrong # args: should be ".t tag raise tagName ?aboveThis?"}}
test text-15.6 {"tag raise" option} {
list [catch {.t tag raise a b c} msg] $msg
} {1 {wrong # args: should be ".t tag raise tagName ?aboveThis?"}}
test text-15.7 {"tag raise" option} {
list [catch {.t tag raise #gorp} msg] $msg
} {1 {tag "#gorp" isn't defined in text widget}}
test text-15.8 {"tag raise" option} {
list [catch {.t tag raise a #gorp} msg] $msg
} {1 {tag "#gorp" isn't defined in text widget}}
setup
.t tag configure a -foreground black
test text-16.1 {"tag ranges" option} {
.t tag ran x
} {1.1 1.2 1.5 1.13 2.2 2.6}
test text-16.2 {"tag ranges" option} {
.t tag ranges y
} {1.5 1.6}
test text-16.3 {"tag ranges" option} {
.t tag ranges a
} {}
test text-16.4 {"tag ranges" option} {
.t tag ranges #gorp
} {}
test text-16.5 {"tag ranges" option} {
list [catch {.t tag ranges} msg] $msg
} {1 {wrong # args: should be ".t tag ranges tagName"}}
test text-16.6 {"tag ranges" option} {
list [catch {.t tag ranges a b} msg] $msg
} {1 {wrong # args: should be ".t tag ranges tagName"}}
setup
test text-17.1 {"tag remove" option} {
.t tag re x 2.3 2.7
.t tag ranges x
} {1.1 1.2 1.5 1.13 2.2 2.3}
test text-17.2 {"tag remove" option} {
list [catch {.t tag remove} msg] $msg
} {1 {wrong # args: should be ".t tag remove tagName index1 ?index2?"}}
setup
test text-18.1 {"tag bind" option} {
.t tag delete x
.t tag bind x <Enter> "going in"
.t tag bind x <Leave> "going out"
list [lsort [.t tag bind x]] [.t tag bind x <Enter>] [.t tag bind x <Leave>]
} {{<Enter> <Leave>} {going in} {going out}}
test text-18.2 {"tag bind" option} {
.t tag delete x
.t tag bind x <Enter> "command #1"
.t tag bind x <Enter> "+command #2"
.t tag bind x <Enter>
} {command #1; command #2}
test text-18.3 {"tag bind" option} {
.t tag delete x
.t tag bind x <Enter> "command #1"
.t tag bind x <Enter> {}
list [catch {.t tag bind x <Enter>} msg] $msg
} {1 {no binding exists for "<Enter>"}}
test text-18.4 {"tag bind" option} {
list [catch {.t tag bind} msg] $msg
} {1 {wrong # args: should be ".t tag bind tagName ?sequence? ?command?"}}
test text-18.5 {"tag bind" option} {
list [catch {.t tag bind a b c d} msg] $msg
} {1 {wrong # args: should be ".t tag bind tagName ?sequence? ?command?"}}
test text-18.6 {"tag bind" option} {
list [catch {.t tag bind x <badEvent> abcd} msg] $msg
} {1 {bad event type or keysym "badEvent"}}
test text-18.7 {"tag bind" option} {
.t tag delete x
list [catch {.t tag bind x <Configure> abcd} msg] $msg [.t tag bind x]
} {1 {requested illegal events; only key, button, motion, and enter/leave events may be used} {}}
setup
test text-19.1 {"debug" option} {
.t debug on
.t debug
} on
test text-19.2 {"debug" option} {
.t debug off
.t debug
} off
test text-19.3 {"debug" option} {
list [catch {.t debug a b} msg] $msg
} {1 {wrong # args: should be ".t debug ?on|off?"}}
test text-19.4 {"debug" option} {
list [catch {.t debug gorp} msg] $msg
} {1 {expected boolean value but got "gorp"}}
test text-20.1 {"delete" option} {
setup
.t delete 1.2
.t get 1.0 1.end
} {Tet for first line}
test text-20.2 {"delete" option} {
setup
.t delete 1.2 1.6
.t get 1.0 1.end
} {Teor first line}
test text-20.3 {"delete" option} {
list [catch {.t delete} msg] $msg
} {1 {wrong # args: should be ".t delete index1 ?index2?"}}
test text-20.4 {"delete" option} {
list [catch {.t delete a b c} msg] $msg
} {1 {wrong # args: should be ".t delete index1 ?index2?"}}
test text-20.5 {"delete" option} {
list [catch {.t delete @badIndex} msg] $msg
} {1 {bad text index "@badIndex"}}
test text-20.6 {"delete" option} {
list [catch {.t delete 1.2 @badIndex} msg] $msg
} {1 {bad text index "@badIndex"}}
test text-20.7 {"delete" option} {
setup
.t config -state disabled
list [catch {.t delete 1.2} msg] $msg
.t get 1.0 1.end
} {Text for first line}
.t config -state normal
setup
test text-21.1 {"get" option} {
.t get 1.3 1.5
} {t }
test text-21.2 {"get" option} {
.t get 1.8 2.4
} " first line\nSeco"
test text-21.3 {"get" option} {
.t get 1.5 4.4
} "for first line\nSecond line\n\nLast"
test text-21.4 {"get" option} {
.t get 2.0
} S
test text-21.5 {"get" option} {
.t get 1.0 2.0
} "Text for first line\n"
test text-21.6 {"get" option} {
list [catch {.t get} msg] $msg
} {1 {wrong # args: should be ".t get index1 ?index2?"}}
test text-21.7 {"get" option} {
list [catch {.t get a b c} msg] $msg
} {1 {wrong # args: should be ".t get index1 ?index2?"}}
test text-21.8 {"get" option} {
list [catch {.t get badMark} msg] $msg
} {1 {bad text index "badMark"}}
test text-21.8 {"get" option} {
list [catch {.t get 1.0 badMarkToo} msg] $msg
} {1 {bad text index "badMarkToo"}}
test text-22.1 {errors in "index" option} {
list [catch {.t index} msg] $msg
} {1 {wrong # args: should be ".t index index"}}
test text-22.2 {errors in "index" option} {
list [catch {.t index a b} msg] $msg
} {1 {wrong # args: should be ".t index index"}}
test text-22.3 {errors in "index" option} {
list [catch {.t index badMarkToo} msg] $msg
} {1 {bad text index "badMarkToo"}}
test text-23.1 {"insert" option} {
setup
.t insert 1.3 XYZ
.t get 1.0 1.end
} {TexXYZt for first line}
test text-23.2 {"insert" option} {
setup
.t insert 1.3 {}
.t get 1.0 1.end
} {Text for first line}
test text-23.3 {"insert" option} {
setup
.t configure -state disabled
.t insert 1.3 "Lots of text"
.t configure -state normal
.t get 1.0 1.end
} {Text for first line}
test text-23.4 {"insert" option} {
list [catch {.t insert a} msg] $msg
} {1 {wrong # args: should be ".t insert index chars ?chars ...?"}}
test text-23.5 {"insert" option} {
list [catch {.t insert a b c} msg] $msg
} {1 {wrong # args: should be ".t insert index chars ?chars ...?"}}
test text-23.6 {"insert" option} {
list [catch {.t insert @bogus foo} msg] $msg
} {1 {bad text index "@bogus"}}
setup
.t mark set mark1 1.3
.t mark set mark2 1.6
test text-24.1 {"mark" options} {
list [catch {.t mark} msg] $msg
} {1 {wrong # args: should be ".t mark option ?arg arg ...?"}}
test text-24.2 {"mark" options} {
list [catch {.t mark badOption} msg] $msg
} {1 {bad mark option "badOption": must be names, set, or unset}}
test text-24.3 {"mark" options} {
lsort [.t mark names]
} {current insert m1 m2 mark1 mark2}
test text-24.4 {"mark" options} {
list [catch {.t mark names a} msg] $msg
} {1 {wrong # args: should be ".t mark names"}}
test text-24.5 {"mark" options} {
.t index mark1
} 1.3
test text-24.6 {"mark" options} {
list [catch {.t mark set} msg] $msg
} {1 {wrong # args: should be ".t mark set markName index"}}
test text-24.7 {"mark" options} {
list [catch {.t mark set a b c} msg] $msg
} {1 {wrong # args: should be ".t mark set markName index"}}
test text-24.8 {"mark" options} {
list [catch {.t mark set a @bogus} msg] $msg
} {1 {bad text index "@bogus"}}
.t mark unset mark1 mark2
test text-24.9 {"mark" options} {
list [catch {.t index mark1} msg] $msg
} {1 {bad text index "mark1"}}
test text-24.10 {"mark" options} {
list [catch {.t index mark2} msg] $msg
} {1 {bad text index "mark2"}}
test text-24.11 {"mark" options} {
list [catch {.t mark unset bogus bogus m1} msg] $msg
} {0 {}}
test text-24.12 {"mark" options} {
list [catch {.t mark unset insert} msg] $msg
} {1 {can't delete "insert" mark}}
test text-24.13 {"mark" options} {
list [catch {.t mark unset current} msg] $msg
} {1 {can't delete "current" mark}}
.t delete 1.0 end
.t insert insert "Line 1"
for {set i 2} {$i <= 200} {incr i} {
.t insert insert "\nLine $i"
}
update
test text-25.1 {"yview" option} {
.t y 2
.t index @0,0
} {3.0}
test text-25.2 {"yview" option} {
.t yview 50
.t index @0,0
} {51.0}
test text-25.3 {"yview" option} {
.t yview 1.0
.t index @0,0
} {1.0}
test text-25.4 {"yview" option} {
.t yview 1000000
.t index @0,0
} {200.0}
test text-25.5 {"yview" option} {
.t yview 1.0
.t yview -pickplace 25.0
.t index @0,0
} {2.0}
test text-25.6 {"yview" option} {
.t yview 0.0
.t yview -pickplace 29.0
.t index @0,0
} {6.0}
test text-25.7 {"yview" option} {
.t yview 0.0
.t yview -pickplace 30.0
.t index @0,0
} {19.0}
test text-25.8 {"yview" option} {
.t yview 40.0
.t yview -pickplace 39.0
.t index @0,0
} {39.0}
test text-25.9 {"yview" option} {
.t yview 40.0
.t yview -pickplace 35.0
.t index @0,0
} {35.0}
test text-25.10 {"yview" option} {
.t yview 40.0
.t yview -pickplace 34.0
.t index @0,0
} {23.0}
test text-25.11 {"yview" option} {
.t yview -100
.t index @0,0
} {1.0}
test text-25.12 {"yview" option} {
list [catch {.t yview} msg] $msg
} {1 {wrong # args: should be ".t yview ?-pickplace? lineNum|index"}}
test text-25.13 {"yview" option} {
list [catch {.t yview 1.0 1.0} msg] $msg
} {1 {wrong # args: should be ".t yview ?-pickplace? lineNum|index"}}
test text-25.14 {"yview" option} {
list [catch {.t yview -pickplace 1.0 1.0} msg] $msg
} {1 {wrong # args: should be ".t yview ?-pickplace? lineNum|index"}}
test text-25.15 {"yview" option} {
list [catch {.t yview -poop 1.0} msg] $msg
} {1 {wrong # args: should be ".t yview ?-pickplace? lineNum|index"}}
test text-25.16 {"yview" option} {
list [catch {.t yview @bogus} msg] $msg
} {1 {bad text index "@bogus"}}
proc bizarre_scroll args {
.t2.t delete 5.0 end
}
test text-25.17 {"yview" option with bizarre scroll command} {
catch {destroy .t2}
toplevel .t2
text .t2.t -width 40 -height 4
.t2.t insert end "1\n2\n3\n4\n5\n6\n7\n8\n"
pack .t2.t
wm geometry .t2 +0+0
update
.t2.t configure -yscrollcommand bizarre_scroll
.t2.t yview 100
set result [.t2.t index @0,0]
update
lappend result [.t2.t index @0,0]
} {9.0 5.0}
catch {destroy .t2}
test text-26.1 {ambiguous options, other errors} {
list [catch {.t badOption} msg] $msg
} {1 {bad option "badOption": must be compare, configure, debug, delete, get, index, insert, mark, scan, tag, or yview}}
test text-26.2 {ambiguous options, other errors} {
list [catch {.t co} msg] $msg
} {1 {bad option "co": must be compare, configure, debug, delete, get, index, insert, mark, scan, tag, or yview}}
test text-26.3 {ambiguous options, other errors} {
list [catch {.t de} msg] $msg
} {1 {bad option "de": must be compare, configure, debug, delete, get, index, insert, mark, scan, tag, or yview}}
test text-26.4 {ambiguous options, other errors} {
list [catch {.t in} msg] $msg
} {1 {bad option "in": must be compare, configure, debug, delete, get, index, insert, mark, scan, tag, or yview}}
test text-26.4 {ambiguous options, other errors} {
list [catch {.t} msg] $msg
} {1 {wrong # args: should be ".t option ?arg arg ...?"}}
setup
.t tag remove sel 1.0 end
.t tag add sel 1.0 1.10
test text-27.1 {selection exporting} {
list [catch {selection get} msg] $msg
} {0 {Text for f}}
.t configure -exportselection off
test text-27.2 {selection exporting} {
list [catch {selection get} msg] $msg
} {1 {selection doesn't exist or form "STRING" not defined}}
.t tag add sel 2.0 2.end
test text-27.3 {selection exporting} {
list [catch {selection get} msg] $msg
} {1 {selection doesn't exist or form "STRING" not defined}}
.t configure -exportselection on
test text-27.4 {selection exporting} {
list [catch {selection get} msg] $msg
} {0 {Text for fSecond line}}
.t configure -exportselection off
.t tag remove sel 1.0 end
.t configure -exportselection on
test text-27.5 {selection exporting} {
list [catch {selection get} msg] $msg
} {1 {selection doesn't exist or form "STRING" not defined}}
.t tag add sel 1.0 1.10
.t tag remove sel 1.0 1.10
test text-27.6 {selection exporting} {
list [catch {selection get} msg] $msg
} {1 {selection doesn't exist or form "STRING" not defined}}
.t tag add sel 1.0 1.4
.t tag add sel 1.9 1.14
.t tag add sel 1.15 1.19
.t tag add sel 2.3 2.6
.t tag add sel 4.0 4.9
test text-27.7 {selection exporting} {
list [catch {selection get} msg] $msg
} {0 {TextfirstlineondLast line}}
.t tag remove sel 1.0 end
.t tag add sel 1.15 2.6
.t tag add sel 2.7 4.4
test text-27.8 {selection exporting} {
list [catch {selection get} msg] $msg
} {0 {line
Secondline
Last}}
entry .e
.e insert end "Some text"
.e select from 0
.e select to 4
test text-27.9 {losing the selection} {
.t tag ranges sel
} {}
destroy .e
test text-28.1 {copying from configs to sel tag} {
.t configure -selectbackground white
lindex [.t tag configure sel -background] 4
} {white}
test text-28.2 {copying from configs to sel tag} {
.t configure -selectbackground black
lindex [.t tag configure sel -background] 4
} {black}
test text-28.3 {copying from configs to sel tag} {
.t configure -selectforeground black
lindex [.t tag configure sel -foreground] 4
} {black}
test text-28.4 {copying from configs to sel tag} {
.t configure -selectforeground white
lindex [.t tag configure sel -foreground] 4
} {white}
test text-28.5 {copying from configs to sel tag} {
.t configure -selectborderwidth 3
lindex [.t tag configure sel -borderwidth] 4
} {3}
.t delete 1.0 end
.t config -width 20 -height 10
.t insert 1.0 "abcd efgh ijklmno pqrst uvwxyz 1234 56 7890\nLine 2\nLine 3"
update
after 200
wm geometry . [expr [winfo width .]+3]x[winfo height .]
update
after 200
.t config -wrap none
test text-29.1 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.20 2.0 2.6 3.0 3.6 3.6}
.t config -wrap char
test text-29.2 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.19 1.20 1.39 1.40 1.43 2.0}
.t config -wrap word
test text-29.3 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.17 1.18 1.38 1.39 1.43 2.0}
.t tag add sel 1.16
.t tag add sel 1.18
.t tag add sel 1.38
.t tag add sel 1.39
.t config -wrap none
test text-29.4 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.20 2.0 2.6 3.0 3.6 3.6}
.t config -wrap char
test text-29.5 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.19 1.20 1.39 1.40 1.43 2.0}
.t config -wrap word
test text-29.6 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.17 1.18 1.38 1.39 1.43 2.0}
.t tag remove sel 1.0 end
.t tag add sel 1.17
.t tag add sel 1.37
.t config -wrap none
test text-29.7 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.20 2.0 2.6 3.0 3.6 3.6}
.t config -wrap char
test text-29.8 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.19 1.20 1.39 1.40 1.43 2.0}
.t config -wrap word
test text-29.9 {-wrap option} {
list [.t index @500,8] [.t index @1,20] [.t index @500,20] \
[.t index @1,35] [.t index @500,35] [.t index @1,48]
} {1.17 1.18 1.38 1.39 1.43 2.0}
#destroy .t