File: subtleties.t

package info (click to toggle)
libio-all-perl 0.33-3.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 460 kB
  • ctags: 292
  • sloc: perl: 2,092; makefile: 46
file content (27 lines) | stat: -rw-r--r-- 442 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
use lib 't', 'lib';
use strict;
use warnings;
use Test::More tests => 7;
use IO::All;

my $data = join '', <DATA>;
my $io = io('t/output/subtleties1') < $data;
is("$io", 't/output/subtleties1');

ok($io->close);
ok(not $io->close);

my $data2 = $io->slurp;
$data2 .= $$io;
$data2 << $io;
is($data2, $data x 3);
ok(not $io->close);

my $io2 = io(io(io('xxx')));
ok(ref $io2);
ok($io2->isa('IO::All'));
# is("$io2", 'xxx');

__DATA__
test
data