summaryrefslogtreecommitdiffstats
path: root/tests/canvText.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/canvText.test')
-rw-r--r--tests/canvText.test74
1 files changed, 38 insertions, 36 deletions
diff --git a/tests/canvText.test b/tests/canvText.test
index d685c45..5b08df7 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -11,6 +11,8 @@ namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
+testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
+
# Canvas used in 1.* - 17.* tests
canvas .c -width 400 -height 300 -bd 2 -relief sunken
pack .c
@@ -24,7 +26,7 @@ test canvText-1.1 {configuration options: good value for "anchor"} -body {
} -result {nw nw}
test canvasText-1.2 {configuration options: bad value for "anchor"} -body {
.c itemconfigure test -anchor xyz
-} -returnCodes error -result {bad anchor position "xyz": must be n, ne, e, se, s, sw, w, nw, or center}
+} -returnCodes error -result {bad anchor "xyz": must be n, ne, e, se, s, sw, w, nw, or center}
test canvText-1.3 {configuration options: good value for "fill"} -body {
.c itemconfigure test -fill #ff0000
list [lindex [.c itemconfigure test -fill] 4] [.c itemcget test -fill]
@@ -42,7 +44,7 @@ test canvText-1.6 {configuration options: good value for "font"} -body {
} -result {{Times 40} {Times 40}}
test canvasText-1.7 {configuration options: bad value for "font"} -body {
.c itemconfigure test -font {}
-} -returnCodes error -result {font "" doesn't exist}
+} -returnCodes error -result {font "" does not exist}
test canvText-1.8 {configuration options: good value for "justify"} -body {
.c itemconfigure test -justify left
list [lindex [.c itemconfigure test -justify] 4] [.c itemcget test -justify]
@@ -95,22 +97,22 @@ test canvasText-1.19 {configuration options: bounding of "angle"} -body {
test canvText-2.1 {CreateText procedure: args} -body {
.c create text
-} -returnCodes {error} -result {wrong # args: should be ".c create text coords ?arg ...?"}
+} -returnCodes error -result {wrong # args: should be ".c create text coords ?arg ...?"}
test canvText-2.2 {CreateText procedure: args} -body {
.c create text xyz 0
} -cleanup {
.c delete all
-} -returnCodes {error} -result {expected screen distance but got "xyz"}
+} -returnCodes error -result {expected screen distance but got "xyz"}
test canvText-2.3 {CreateText procedure: args} -body {
.c create text 0 xyz
} -cleanup {
.c delete all
-} -returnCodes {error} -result {expected screen distance but got "xyz"}
+} -returnCodes error -result {expected screen distance but got "xyz"}
test canvText-2.4 {CreateText procedure: args} -body {
.c create text 0 0 -xyz xyz
} -cleanup {
.c delete all
-} -returnCodes {error} -result {unknown option "-xyz"}
+} -returnCodes error -result {unknown option "-xyz"}
test canvText-2.5 {CreateText procedure} -body {
.c create text 0 0 -tags x
.c coords x
@@ -133,14 +135,14 @@ test canvText-3.2 {TextCoords procedure} -setup {
.c coords test xyz 0
} -cleanup {
.c delete test
-} -returnCodes {error} -result {expected screen distance but got "xyz"}
+} -returnCodes error -result {expected screen distance but got "xyz"}
test canvText-3.3 {TextCoords procedure} -setup {
.c create text 20 20 -tag test
} -body {
.c coords test 0 xyz
} -cleanup {
.c delete test
-} -returnCodes {error} -result {expected screen distance but got "xyz"}
+} -returnCodes error -result {expected screen distance but got "xyz"}
test canvText-3.4 {TextCoords procedure} -setup {
.c create text 20 20 -tag test
} -body {
@@ -159,14 +161,14 @@ test canvText-3.5 {TextCoords procedure} -setup {
.c coords test 10
} -cleanup {
.c delete test
-} -returnCodes {error} -result {wrong # coordinates: expected 2, got 1}
+} -returnCodes error -result {wrong # coordinates: expected 2, got 1}
test canvText-3.6 {TextCoords procedure} -setup {
.c create text 20 20 -tag test
} -body {
.c coords test 10 10 10
} -cleanup {
.c delete test
-} -returnCodes {error} -result {wrong # coordinates: expected 0 or 2, got 3}
+} -returnCodes error -result {wrong # coordinates: expected 0 or 2, got 3}
test canvText-4.1 {ConfigureText procedure} -setup {
@@ -175,7 +177,7 @@ test canvText-4.1 {ConfigureText procedure} -setup {
.c itemconfig test -fill xyz
} -cleanup {
.c delete test
-} -returnCodes {error} -result {unknown color name "xyz"}
+} -returnCodes error -result {unknown color name "xyz"}
test canvText-4.2 {ConfigureText procedure} -setup {
.c create text 20 20 -tag test
} -body {
@@ -260,7 +262,7 @@ test canvText-5.1 {ConfigureText procedure: adjust cursor} -body {
} -result {}
-test canvText-6.1 {ComputeTextBbox procedure} -constraints fonts -setup {
+test canvText-6.1 {ComputeTextBbox procedure} -constraints {fonts failsOnXQuarz} -setup {
.c delete test
} -body {
set font "-adobe-times-medium-r-normal--*-200-*-*-*-*-*-*"
@@ -312,7 +314,7 @@ test canvText-6.4 {ComputeTextBbox procedure} -constraints fonts -setup {
} -cleanup {
.c delete test
} -result 1
-test canvText-6.5 {ComputeTextBbox procedure} -constraints fonts -setup {
+test canvText-6.5 {ComputeTextBbox procedure} -constraints {fonts failsOnXQuarz} -setup {
.c delete test
} -body {
set font "-adobe-times-medium-r-normal--*-200-*-*-*-*-*-*"
@@ -364,7 +366,7 @@ test canvText-6.8 {ComputeTextBbox procedure} -constraints fonts -setup {
} -cleanup {
.c delete test
} -result 1
-test canvText-6.9 {ComputeTextBbox procedure} -constraints fonts -setup {
+test canvText-6.9 {ComputeTextBbox procedure} -constraints {fonts failsOnXQuarz} -setup {
.c delete test
} -body {
set font "-adobe-times-medium-r-normal--*-200-*-*-*-*-*-*"
@@ -636,7 +638,7 @@ test canvText-9.8 {TextInsert procedure: selectFirst > selectLast: deselect} -bo
.c select to test 8
.c dchars test 3 10
.c index test sel.first
-} -returnCodes {error} -result {selection isn't in item}
+} -returnCodes error -result {selection isn't in item}
test canvText-9.9 {TextInsert procedure: selectFirst <= selectLast} -body {
.c itemconfig test -text "abcdefghijk"
.c select from test 4
@@ -766,7 +768,7 @@ test canvText-14.2 {GetTextIndex procedure: select error} -setup {
.c index test sel.first
} -cleanup {
.c delete test
-} -returnCodes {error} -result {selection isn't in item}
+} -returnCodes error -result {selection isn't in item}
test canvText-14.3 {GetTextIndex procedure: select error} -setup {
.c create text 0 0 -tag test
focus .c
@@ -776,7 +778,7 @@ test canvText-14.3 {GetTextIndex procedure: select error} -setup {
.c index test sel.last
} -cleanup {
.c delete test
-} -returnCodes {error} -result {selection isn't in item}
+} -returnCodes error -result {selection isn't in item}
test canvText-14.4 {GetTextIndex procedure: select error} -setup {
.c create text 0 0 -tag test
focus .c
@@ -786,7 +788,7 @@ test canvText-14.4 {GetTextIndex procedure: select error} -setup {
.c index test sel.
} -cleanup {
.c delete test
-} -returnCodes {error} -result {bad index "sel."}
+} -returnCodes error -result {bad index "sel."}
test canvText-14.5 {GetTextIndex procedure: bad int or unknown index} -setup {
.c create text 0 0 -tag test
focus .c
@@ -795,7 +797,7 @@ test canvText-14.5 {GetTextIndex procedure: bad int or unknown index} -setup {
.c index test xyz
} -cleanup {
.c delete test
-} -returnCodes {error} -result {bad index "xyz"}
+} -returnCodes error -result {bad index "xyz"}
test canvText-14.6 {select clear errors} -setup {
.c create text 0 0 -tag test
} -body {
@@ -906,20 +908,20 @@ test canvText-19.1 {patch 1006286, leading space caused wrap under Win32} -setup
set s1 { Yeah-ah-ah-ah-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-oh-Yow}
set s2 { Yeah ah ah ah oh oh oh oh oh oh oh oh oh oh oh oh oh oh oh oh Yow}
$c create text 21 18 \
- -font $f \
- -text $s1 \
- -fill white \
- -width 922 \
- -anchor nw \
- -tags tbox1
+ -font $f \
+ -text $s1 \
+ -fill white \
+ -width 922 \
+ -anchor nw \
+ -tags tbox1
$c create rect {*}[$c bbox tbox1] -outline red
$c create text 21 160 \
- -font $f \
- -text $s2 \
- -fill white \
- -width 922 \
- -anchor nw \
- -tags tbox2
+ -font $f \
+ -text $s2 \
+ -fill white \
+ -width 922 \
+ -anchor nw \
+ -tags tbox2
$c create rect {*}[$c bbox tbox2] -outline red
after 500 "set done 1" ; vwait done
set results [list]
@@ -931,7 +933,7 @@ test canvText-19.1 {patch 1006286, leading space caused wrap under Win32} -setup
lappend results [selection get]
array set metrics [font metrics $f]
set x [expr {21 + [font measure $f " "] \
- + ([font measure {Arial 28 bold} "Y"] / 2)}]
+ + ([font measure {Arial 28 bold} "Y"] / 2)}]
set y1 [expr {18 + ($metrics(-linespace) / 2)}]
set y2 [expr {160 + ($metrics(-linespace) / 2)}]
lappend results [$c index tbox1 @$x,$y1]
@@ -948,10 +950,10 @@ test canvText-20.1 {angled text bounding box} -setup {
list $b $a $d $c
}
proc almosteq {b1 b2} {
- # check whether the two boxes are equal, with 1 unit tolerance on each x y w h
- lassign $b1 a b c d
- lassign $b2 e f g h
- expr {($e-$a)<=1 && ($f-$b)<=1 && ($g-$c)<=1 && ($h-$d)<=1}
+ # check whether the two boxes are equal, with 1 unit tolerance on each x y w h
+ lassign $b1 a b c d
+ lassign $b2 e f g h
+ expr {($e-$a)<=1 && ($f-$b)<=1 && ($g-$c)<=1 && ($h-$d)<=1}
}
} -body {
.c create text 2 2 -tag t -anchor center -text 0 -font {TkDefaultFont 24}
generated by cgit v0.12 at 2025-12-05 03:34:10 (GMT)