From e63bab777eed65bb380173f6f4e62e2e802e5456 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 7 Jan 2015 20:30:13 +0000 Subject: Reduce font-related porting fragility of test. --- tests/canvText.test | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/canvText.test b/tests/canvText.test index 20a39b0..7eef938 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -485,8 +485,8 @@ test canvText-17.1 {TextToPostscript procedure} { .c itemconfig test -font $font -text "00000000" -width [expr 3*$ax] .c itemconfig test -anchor n -fill black set x [.c postscript] - set x [string range $x [string first "/Courier-Oblique" $x] end] -} "/Courier-Oblique findfont [font actual $font -size] scalefont ISOEncode setfont + set x [string range $x [string first "findfont " $x] end] +} "findfont [font actual $font -size] scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 100 200 \[ \[(000)\] -- cgit v0.12