6 #-----------------------------------#
8 #-----------------------------------#
12 # use POSIX qw(tmpnam);
15 # BEGIN { plan tests => 2 };
16 BEGIN { plan tests => 1 };
19 require Acme::Tie::Eleet;
25 # my $file = tmpnam();
38 #------------------------------#
40 #------------------------------#
42 # # Full extra sentences.
43 # open OUT, ">$file" or die "Unable to create temporary file: $!";
44 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, extra_sent=>100;
47 # open IN, "<$file" or die "Unable to open temporary file: $!";
49 # ok($line, qr/(?!eleet$)/);
53 #------------------------------#
55 #------------------------------#
57 # Full extra sentences.
58 tie $line, 'Acme::Tie::Eleet', @opts, extra_sent=>100;
60 ok($line, qr/(?!eleet$)/);