t/12-letters.t

   1 #-*-perl-*-
   2 #
   3 # Translitterations.
   4 #
   5
   6 #-----------------------------------#
   7 #          Initialization.          #
   8 #-----------------------------------#
   9
  10 # Modules we rely on.
  11 use Test;
  12 # use POSIX qw(tmpnam);
  13
  14 # Initialization.
  15 # BEGIN { plan tests => 6 };
  16 BEGIN { plan tests => 3 };
  17
  18 # Our stuff.
  19 require Acme::Tie::Eleet;
  20 # untie *STDIN;
  21 # untie *STDOUT;
  22 # untie *STDERR;
  23
  24 # Vars.
  25 # my $file = tmpnam();
  26 my $line;
  27 my @opts =
  28     ( letters    => 0,
  29       spacer     => 0,
  30       case_mixer => 0,
  31       words      => 0,
  32       add_before => 0,
  33       add_after  => 0,
  34       extra_sent => 0
  35 );
  36
  37
  38 #------------------------------#
  39 #          TIEHANDLE.          #
  40 #------------------------------#
  41
  42 # # No translitteration.
  43 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  44 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>0;
  45 # print OUT "eleet";
  46 # untie *OUT;
  47 # open IN, "<$file" or die "Unable to open temporary file: $!";
  48 # $line = <IN>;
  49 # ok($line, qr/^eleet/);
  50
  51 # # Random translitteration.
  52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>50;
  54 # print OUT "eleet";
  55 # untie *OUT;
  56 # open IN, "<$file" or die "Unable to open temporary file: $!";
  57 # $line = <IN>;
  58 # ok($line, qr/^[e3][l1|][e3][e3][t7+]/);
  59
  60 # # Full translitteration.
  61 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  62 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, letters=>100;
  63 # print OUT "eleet";
  64 # untie *OUT;
  65 # open IN, "<$file" or die "Unable to open temporary file: $!";
  66 # $line = <IN>;
  67 # ok($line, qr/^3[1|]33[7+]/);
  68
  69 # unlink $file;
  70
  71
  72 #------------------------------#
  73 #          TIESCALAR.          #
  74 #------------------------------#
  75
  76 # No translitteration.
  77 tie $line, 'Acme::Tie::Eleet', @opts, letters=>0;
  78 $line = "eleet";
  79 ok($line, qr/^eleet/);
  80 untie $line;
  81
  82 # Random translitteration.
  83 tie $line, 'Acme::Tie::Eleet', @opts, letters=>50;
  84 $line = "eleet";
  85 ok($line, qr/^[e3][l1|][e3][e3][t7+]/);
  86 untie $line;
  87
  88 # Full translitteration.
  89 tie $line, 'Acme::Tie::Eleet', @opts, letters=>100;
  90 $line = "eleet";
  91 ok($line, qr/^3[1|]33[7+]/);
  92 untie $line;