3 # This file is part of Acme::Tie::Eleet.
4 # Copyright (c) 2001-2007 Jerome Quelin, all rights reserved.
6 # This program is free software; you can redistribute it and/or modify
7 # it under the same terms as Perl itself.
15 #-----------------------------------#
17 #-----------------------------------#
21 # use POSIX qw(tmpnam);
24 # BEGIN { plan tests => 6 };
25 BEGIN { plan tests => 3 };
28 require Acme::Tie::Eleet;
34 # my $file = tmpnam();
47 #------------------------------#
49 #------------------------------#
51 # # No translitteration.
52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>0;
56 # open IN, "<$file" or die "Unable to open temporary file: $!";
58 # ok($line, qr/^eleet/);
60 # # Random translitteration.
61 # open OUT, ">$file" or die "Unable to create temporary file: $!";
62 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>50;
65 # open IN, "<$file" or die "Unable to open temporary file: $!";
67 # ok($line, qr/^[e3][l1|][e3][e3][t7+]/);
69 # # Full translitteration.
70 # open OUT, ">$file" or die "Unable to create temporary file: $!";
71 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>100;
74 # open IN, "<$file" or die "Unable to open temporary file: $!";
76 # ok($line, qr/^3[1|]33[7+]/);
81 #------------------------------#
83 #------------------------------#
85 # No translitteration.
86 tie $line, 'Acme::Tie::Eleet', @opts, letters=>0;
88 ok($line, qr/^eleet/);
91 # Random translitteration.
92 tie $line, 'Acme::Tie::Eleet', @opts, letters=>50;
94 ok($line, qr/^[e3][l1|][e3][e3][t7+]/);
97 # Full translitteration.
98 tie $line, 'Acme::Tie::Eleet', @opts, letters=>100;
100 ok($line, qr/^3[1|]33[7+]/);