Blame t/tags.t

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}');