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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# !perl
#$Id: 03_list.t 1213 2008-02-09 23:40:34Z jimk $
# 03_list.t - test what happens when passing list to say
use strict;
use warnings;
use Test::More tests => 11;
use lib ( qq{./t/lib} );
BEGIN {
use_ok('Perl6::Say');
use_ok('Carp');
use_ok('Perl6::Say::Auxiliary', qw| _validate capture_say $capture_fail_message |);
};
SKIP: {
skip $capture_fail_message,
8 if $capture_fail_message;
my (@list, $say_sub, $msg);
$say_sub = sub { say @list; };
$msg = q{correctly printed to STDOUT as default print filehandle};
@list = ( 'Hello', ' ', 'World' );
capture_say( {
data => \@list,
pred => 1,
eval => $say_sub,
msg => $msg,
} );
@list = ( 'Hello', ' ', 'World', "\n" );
capture_say( {
data => \@list,
pred => 2,
eval => $say_sub,
msg => $msg,
} );
@list = ( 'Hello', ' ', 'World', "\n", 'Again!', "\n" );
capture_say( {
data => \@list,
pred => 3,
eval => $say_sub,
msg => $msg,
} );
@list = ( );
capture_say( {
data => \@list,
pred => 1,
eval => $say_sub,
msg => $msg,
} );
$say_sub = sub { say STDOUT @list; };
$msg = q{correctly printed to STDOUT as explicitly named print filehandle};
@list = ( 'Hello', ' ', 'World' );
capture_say( {
data => \@list,
pred => 1,
eval => $say_sub,
msg => $msg,
} );
@list = ( 'Hello', ' ', 'World', "\n" );
capture_say( {
data => \@list,
pred => 2,
eval => $say_sub,
msg => $msg,
} );
@list = ( 'Hello', ' ', 'World', "\n", 'Again!', "\n" );
capture_say( {
data => \@list,
pred => 3,
eval => $say_sub,
msg => $msg,
} );
@list = ( );
capture_say( {
data => \@list,
pred => 1,
eval => $say_sub,
msg => $msg,
} );
}
|
