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