diff options
Diffstat (limited to 'Build/source/libs/teckit/TECkit-2.5.1/source/Perl/test.pl')
-rw-r--r-- | Build/source/libs/teckit/TECkit-2.5.1/source/Perl/test.pl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/Build/source/libs/teckit/TECkit-2.5.1/source/Perl/test.pl b/Build/source/libs/teckit/TECkit-2.5.1/source/Perl/test.pl new file mode 100644 index 00000000000..87bdaa8be87 --- /dev/null +++ b/Build/source/libs/teckit/TECkit-2.5.1/source/Perl/test.pl @@ -0,0 +1,33 @@ +use Test; +use Encode::TECkit; + +%tests = ( + 'silipa93.tec' => [ + ["D\"\xe2s i\xf9z ?\xab tHEstH", + "\x{00F0}i\x{0303}s i\x{02D0}z \x{0294}\x{0259} t\x{02B0}\x{025B}st\x{02B0}"], + ], + 'academy.tec' => [ + ["upkdu|Gm:", "\x{1000}\x{1005}\x{102F}\x{102D}\x{1000}\x{101B}\x{1039}\x{101D}\x{102C}\x{1038}"], + ], + ); + +foreach $k (keys %tests) +{ + $numtests++; + $numtests += scalar (@{$tests{$k}}) * 2; +} + +plan tests => $numtests; + +foreach $k (keys %tests) +{ + $enc = Encode::TECkit->new("../../test/$k"); + ok ($enc); + foreach $t (@{$tests{$k}}) + { + $str = $enc->decode($t->[0]); + ok ($str, $t->[1]); + $str = $enc->encode($t->[1]); + ok ($str, $t->[0]); + } +} |