File: is_bidi.t

package info (click to toggle)
libtext-bidi-perl 2.15-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 4,268 kB
  • sloc: ansic: 3,500; perl: 1,080; makefile: 25
file content (9 lines) | stat: -rw-r--r-- 256 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use charnames ":full";
use Test::More tests => 3;
use Text::Bidi qw(is_bidi);

ok is_bidi("\N{HEBREW LETTER AYIN}"), "hebrew is bidi";
ok is_bidi("\N{ARABIC LETTER AIN}"), "arabic is bidi";
ok ! is_bidi("A"), "latin is not bidi";