6 #-----------------------------------#
8 #-----------------------------------#
12 # use POSIX qw(tmpnam);
15 # BEGIN { plan tests => 6 };
16 BEGIN { plan tests => 3 };
19 require Acme::Tie::Eleet;
25 # my $file = tmpnam();
38 #------------------------------#
40 #------------------------------#
43 # open OUT, ">$file" or die "Unable to create temporary file: $!";
44 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>0;
47 # open IN, "<$file" or die "Unable to open temporary file: $!";
49 # ok($line, qr/^sthg/);
52 # open OUT, ">$file" or die "Unable to create temporary file: $!";
53 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>1;
56 # open IN, "<$file" or die "Unable to open temporary file: $!";
58 # ok($line, qr/^haxor/);
60 # # Word replacement with an anonymous array.
61 # open OUT, ">$file" or die "Unable to create temporary file: $!";
62 # tie *OUT, 'Acme::Tie::Eleet', *OUT, @opts, words=>1;
65 # open IN, "<$file" or die "Unable to open temporary file: $!";
67 # ok($line, qr/^(kewl|kool)/);
72 #------------------------------#
74 #------------------------------#
77 tie $line, 'Acme::Tie::Eleet', @opts, words=>0;
83 tie $line, 'Acme::Tie::Eleet', @opts, words=>1;
85 ok($line, qr/^haxor/);
88 # Word replacement with an anonymous array.
89 tie $line, 'Acme::Tie::Eleet', @opts, words=>1;
91 ok($line, qr/^(kewl|kool)/);