File: 2-utf8.t

package info (click to toggle)
liblocale-hebrew-perl 1.05-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 332 kB
  • sloc: perl: 1,286; ansic: 661; makefile: 3
file content (11 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
 
# $File: //member/autrijus/Locale-Hebrew/t/2-utf8.t $ $Author: autrijus $
# $Revision: #1 $ $Change: 11166 $ $DateTime: 2004/09/17 21:16:27 $

use Test;
BEGIN { plan tests => 1 };
BEGIN { if ($] < 5.008001) { skip(1); exit } }

use utf8;
use Locale::Hebrew;

ok(hebrewflip('ך"הדף של התנ'), scalar reverse 'ך"הדף של התנ');