1use strict; 2use warnings; 3use Test::More; 4use Prima::sys::Test; 5use Prima::Application; 6 7my $w = Prima::DeviceBitmap-> create( type => dbt::Pixmap, width => 132, height => 32); 8 9SKIP: { 10 $w->font->vector(1); 11 my $z = $w->text_shape(123, skip_if_simple => 1); 12 skip("no vector fonts", 2) unless $z; 13 $z = $w->text_shape("A\x{924}\x{627}\x{5d0}\x{c27}", polyfont => 1); 14 skip("cannot polyfont", 2) unless $z->fonts; 15 16 ok( 1, "got polyfont"); 17 my %f = map { $_ => 1 } @{$z->fonts}; 18 delete $f{0}; 19 skip("no such font", 1) unless keys %f; 20} 21 22done_testing; 23