t/13-quotes.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 # Adding quotes.
  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 => 4 };
  25 BEGIN { plan tests => 2 };
  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 # # Beginning of sentence.
  52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, add_before=>100;
  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/^(?!eleet)/);
  59
  60 # # End of sentence.
  61 # open OUT, ">$file" or die "Unable to create temporary file: $!";
  62 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, add_after=>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/(?!eleet$)/);
  68
  69 # unlink $file;
  70
  71
  72 #------------------------------#
  73 #          TIESCALAR.          #
  74 #------------------------------#
  75
  76 # Beginning of sentence.
  77 tie $line, 'Acme::Tie::Eleet', @opts, add_before=>100;
  78 $line = "eleet";
  79 ok($line, qr/^(?!eleet)/);
  80 untie $line;
  81
  82 # End of sentence.
  83 tie $line, 'Acme::Tie::Eleet', @opts, add_after=>100;
  84 $line = "eleet";
  85 ok($line, qr/(?!eleet$)/);
  86 untie $line;