1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict; use warnings;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use Test::More tests => 8;
use IO::All;
use IO_All_Test;
my $outfile = "$t/out.pm";
ok(not -f $outfile);
my $input = io(defined($ENV{ADTTMP}) ? '/usr/share/perl5/IO/All.pm' : 'lib/IO/All.pm')->open;
ok(ref $input);
my $output = io($outfile)->open('>');
ok(ref $output);
my $buffer;
$input->buffer($buffer);
$output->buffer($buffer);
ok(defined $buffer);
$output->write while $input->read;
ok(not length($buffer));
ok($output->close);
test_matching_files($outfile, defined($ENV{ADTTMP}) ? '/usr/share/perl5/IO/All.pm' : 'lib/IO/All.pm');
ok($output->unlink);
del_output_dir();
|
