Commit b3cdb5b1 authored by Torsten Schönfeld's avatar Torsten Schönfeld

Fix a test failure in t/CairoFont.t

parent 3f1fbbc9
......@@ -62,10 +62,13 @@ my $ctm = Cairo::Matrix->init_identity;
my $font = Cairo::ScaledFont->create ($face, $matrix, $ctm, $options);
isa_ok ($font, 'Cairo::ScaledFont');
isa_ok ($font->extents, 'HASH');
isa_ok ($font->glyph_extents ({ index => 1, x => 2, y => 3 }), 'HASH');
SKIP: {
skip 'scaled font tests', 10
unless $font->status eq 'success';
isa_ok ($font->extents, 'HASH');
isa_ok ($font->glyph_extents ({ index => 1, x => 2, y => 3 }), 'HASH');
skip 'new stuff', 8
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
......@@ -92,6 +95,8 @@ SKIP: {
my $text = 'æſðđŋ';
my ($status, $glyphs, $clusters, $flags) =
$font->text_to_glyphs (5, 10, $text);
skip 'show_text_glyphs', 1
unless $status eq 'success';
$cr->show_text_glyphs ($text, $glyphs, $clusters, $flags);
is ($cr->status, 'success');
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment