1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More tests => 8;
use IO::All;
use IO_All_Test;
my $outfile = 't/out.pm';
ok(not -f $outfile);
my $input = io('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, 'lib/IO/All.pm');
ok($output->unlink);
|
