6 #-----------------------------------#
8 #-----------------------------------#
12 # use POSIX qw(tmpnam);
15 # BEGIN { plan tests => 4 };
16 BEGIN { plan tests => 2 };
19 require Acme::Tie::Eleet;
25 # my $file = tmpnam();
38 #------------------------------#
40 #------------------------------#
42 # # Beginning of sentence.
43 # open OUT, ">$file" or die "Unable to create temporary file: $!";
44 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, add_before=>100;
47 # open IN, "<$file" or die "Unable to open temporary file: $!";
49 # ok($line, qr/^(?!eleet)/);
52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, add_after=>100;
56 # open IN, "<$file" or die "Unable to open temporary file: $!";
58 # ok($line, qr/(?!eleet$)/);
63 #------------------------------#
65 #------------------------------#
67 # Beginning of sentence.
68 tie $line, 'Acme::Tie::Eleet', @opts, add_before=>100;
70 ok($line, qr/^(?!eleet)/);
74 tie $line, 'Acme::Tie::Eleet', @opts, add_after=>100;
76 ok($line, qr/(?!eleet$)/);