t/15-words.t

   1 #!perl
   2 #
   3 # This file is part of Acme::Tie::Eleet.
   4 # Copyright (c) 2001-2007 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 #
  12 # Words replacement.
  13 #
  14
  15 #-----------------------------------#
  16 #          Initialization.          #
  17 #-----------------------------------#
  18
  19 # Modules we rely on.
  20 use Test;
  21 # use POSIX qw(tmpnam);
  22
  23 # Initialization.
  24 # BEGIN { plan tests => 6 };
  25 BEGIN { plan tests => 3 };
  26
  27 # Our stuff.
  28 require Acme::Tie::Eleet;
  29 # untie *STDIN;
  30 # untie *STDOUT;
  31 # untie *STDERR;
  32
  33 # Vars.
  34 # my $file = tmpnam();
  35 my $line;
  36 my @opts =
  37     ( letters    => 0,
  38       spacer     => 0,
  39       case_mixer => 0,
  40       words      => 0,
  41       add_before => 0,
  42       add_after  => 0,
  43       extra_sent => 0
  44 );
  45
  46
  47 #------------------------------#
  48 #          TIEHANDLE.          #
  49 #------------------------------#
  50
  51 # # No replacement.
  52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>0;
  54 # print OUT "sthg";
  55 # untie *OUT;
  56 # open IN, "<$file" or die "Unable to open temporary file: $!";
  57 # $line = <IN>;
  58 # ok($line, qr/^sthg/);
  59
  60 # # Word replacement.
  61 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  62 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>1;
  63 # print OUT "hacker";
  64 # untie *OUT;
  65 # open IN, "<$file" or die "Unable to open temporary file: $!";
  66 # $line = <IN>;
  67 # ok($line, qr/^haxor/);
  68
  69 # # Word replacement with an anonymous array.
  70 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  71 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>1;
  72 # print OUT "cool";
  73 # untie *OUT;
  74 # open IN, "<$file" or die "Unable to open temporary file: $!";
  75 # $line = <IN>;
  76 # ok($line, qr/^(kewl|kool)/);
  77
  78 # unlink $file;
  79
  80
  81 #------------------------------#
  82 #          TIESCALAR.          #
  83 #------------------------------#
  84
  85 # No replacement.
  86 tie $line, 'Acme::Tie::Eleet', @opts, words=>0;
  87 $line = "sthg";
  88 ok($line, qr/^sthg/);
  89 untie $line;
  90
  91 # Word replacement.
  92 tie $line, 'Acme::Tie::Eleet', @opts, words=>1;
  93 $line = "hacker";
  94 ok($line, qr/^haxor/);
  95 untie $line;
  96
  97 # Word replacement with an anonymous array.
  98 tie $line, 'Acme::Tie::Eleet', @opts, words=>1;
  99 $line = "cool";
 100 ok($line, qr/^(kewl|kool)/);
 101 untie $line;