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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
use Test::More "no_plan";
BEGIN {use_ok(Perl6::Slurp)};
my $desc;
sub TEST { $desc = $_[0] };
open FH, '>data' or exit;
print FH map "data $_\n", 1..20;
close FH;
open FH, 'data' or exit;
my $pos = tell *FH;
my $data = do { local $/; <FH> };
seek *FH, 0, 0;
my @data = <FH>;
close FH;
TEST "scalar slurp from 'data' in main";
$str = slurp 'data';
is $str, $data, $desc;
TEST "list slurp from 'data' in main";
@str = slurp 'data';
is_deeply \@str, \@data, $desc;
for my $mode (qw( < +< )) {
TEST "scalar slurp from '${mode}data' in main";
$str = slurp "${mode}data";
is $str, $data, $desc;
TEST "scalar slurp from '$mode data' in main";
$str = slurp "$mode data";
is $str, $data, $desc;
TEST "scalar slurp from '$mode', 'data' in main";
$str = slurp $mode, 'data';
is $str, $data, $desc;
TEST "list slurp from '${mode}data' in main";
@str = slurp "${mode}data";
is_deeply \@str, \@data, $desc;
TEST "list slurp from '$mode data' in main";
@str = slurp "$mode data";
is_deeply \@str, \@data, $desc;
TEST "list slurp from '$mode', 'data' in main";
@str = slurp $mode, 'data';
is_deeply \@str, \@data, $desc;
}
TEST "scalar slurp from \$_ in main";
for ('data') {
$str = slurp;
is $str, $data, $desc;
}
local $/;
@ARGV = qw(data data);
TEST "scalar slurp from ARGV in main";
$str = slurp;
is $str, $data.$data, $desc;
unlink 'data';
|
