diff options
| author | dgp@users.sourceforge.net <dgp> | 2015-01-07 20:33:07 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2015-01-07 20:33:07 (GMT) |
| commit | 3cdca5246bfa1e7b8713e371c3d41bf7442f6082 (patch) | |
| tree | 0df68f0700c08bd8fc4da604e78a09ec02767a9c /tests | |
| parent | f350d713384dde06e35caad489d9e9d230ac193b (diff) | |
| parent | 335c06d31d0ebc5b014404788c294f41c85fb924 (diff) | |
| download | tk-3cdca5246bfa1e7b8713e371c3d41bf7442f6082.zip tk-3cdca5246bfa1e7b8713e371c3d41bf7442f6082.tar.gz tk-3cdca5246bfa1e7b8713e371c3d41bf7442f6082.tar.bz2 | |
Reduce font-related porting fragility of test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvText.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index 094bfa2..ff5e4b9 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -832,7 +832,7 @@ test canvText-16.1 {GetSelText procedure} -setup { test canvText-17.1 {TextToPostscript procedure} -setup { .c delete all - set result {/Courier-Oblique findfont [font actual $font -size] scalefont ISOEncode setfont + set result {findfont [font actual $font -size] scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 0 100 200 \[ \[(000)\] @@ -856,7 +856,7 @@ end .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] + set x [string range $x [string first "findfont " $x] end] expr {$x eq [subst $result] ? "ok" : $x} } -result ok |