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
|
use Test::More "no_plan";
BEGIN {use_ok(Perl6::Slurp)};
my $desc;
sub TEST { $desc = $_[0] };
TEST "can't slurp in void context";
eval{;slurp $0;1}
? ok 0, $desc
: like $@,
qr/void context/,
$desc;
TEST "shouldn't be able to slurp non-existent file";
eval{slurp "non-existent file"}
? ok 0, $desc
: like $@,
qr/^Can't open 'non-existent file'/,
$desc;
TEST "shouldn't be able to slurp failed pipe";
if ($^O ne 'MSWin32') {
eval{slurp "-|", "non-existent_prog"}
? ok 0, $desc
: like $@,
qr/^Can't open '-|non-existent_prog'/,
$desc;
}
TEST "shouldn't be able to read from unreadable filehandle";
open *FILE, ">-";
slurp(\*FILE)
? ok 0, $desc
: ok 1, $desc;
|
