|
Packit |
5d935b |
#! /usr/bin/perl
|
|
Packit |
5d935b |
use strict;
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
use Test::Simple tests => 6;
|
|
Packit |
5d935b |
use Font::TTF::OTTags qw( %tttags %ttnames %iso639 readtagsfile);
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($tttags{'SCRIPT'}{'Cypriot Syllabary'} eq 'cprt', 'tttags{SCRIPT}');
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($ttnames{'LANGUAGE'}{'AFK '} eq 'Afrikaans', 'ttnames{LANGUAGE}');
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($ttnames{'LANGUAGE'}{'DHV '} eq 'Divehi (Dhivehi, Maldivian) (deprecated)' && $ttnames{'LANGUAGE'}{'DIV '} eq 'Divehi (Dhivehi, Maldivian)', 'ttnames{LANGUAGE} Dhivehi');
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($ttnames{'FEATURE'}{'cv01'} eq 'Character Variants 01', 'ttnames{FEATURE}');
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($iso639{'atv'} eq 'ALT ', 'iso639{atv}');
|
|
Packit |
5d935b |
|
|
Packit |
5d935b |
ok($iso639{'ALT '}->[0] eq 'atv' && $iso639{'ALT '}->[1] eq 'alt', 'iso639{ALT}');
|