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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
use 5.010;
use Data::Show with => 'Legacy';
use Test::More eval{require Data::Dump} ? 'no_plan' : (skip_all => 'This test requires Data::Dump');
my $STDERR;
close STDERR;
open *STDERR, '>', \$STDERR or die $!;
my %foo = (foo => 1, food => 2, fool => 3, foop => 4, foon => [5..10]);
my @bar = qw<b a r>;
my $baz = 'baz';
my $ref = \@bar;
sub sq;
show(%foo);
show $/;
show @bar;
show (
@bar,
$baz,
);
show $baz;
show $ref;
show @bar[do{1..2;}];
show 2*3;
show 'a+b';
show 100 * sq length $baz;
show $foo{q[;{{{]};
do {
show 'foo' =~ m/;\{\/\{/
};
show $/{Answer};
my $str = 'foo';
$str =~ m/(?<bar>\w+)/;
show $+{bar};
my @expected = <DATA>;
my @got = split "(?<=\n)", $STDERR;
for my $n (0..$#expected) {
if ($expected[$n] =~ m{\A \s* \{ }xms) {
is_deeply(eval($got[$n]), eval($expected[$n]) => ": $expected[$n]");
}
else {
is $got[$n], $expected[$n] => ": $expected[$n]";
}
}
sub sq {
my ($n) = @_;
return $n * $n;
}
__DATA__
===( %foo )==================================[ 'show_legacy.t', line 14 ]===
( foo => 1, food => 2, fool => 3, foon => [5 .. 10], foop => 4 )
===( $/ )====================================[ 'show_legacy.t', line 15 ]===
"\n"
===( @bar )==================================[ 'show_legacy.t', line 16 ]===
("b", "a", "r")
===( @bar, $baz, )=========================[ 'show_legacy.t', line 17 ]===
("b", "a", "r", "baz")
===( $baz )==================================[ 'show_legacy.t', line 21 ]===
"baz"
===( $ref )==================================[ 'show_legacy.t', line 22 ]===
["b", "a", "r"]
===( @bar[do{1..2;}] )=======================[ 'show_legacy.t', line 23 ]===
("a", "r")
===( 2*3 )===================================[ 'show_legacy.t', line 24 ]===
6
===( 'a+b' )=================================[ 'show_legacy.t', line 25 ]===
"a+b"
===( 100 * sq length $baz )==================[ 'show_legacy.t', line 26 ]===
900
===( $foo{q[;{{{]} )=========================[ 'show_legacy.t', line 27 ]===
undef
===( 'foo' =~ m/;\{\/\{/ )==================[ 'show_legacy.t', line 29 ]===
()
===( $/{Answer} )============================[ 'show_legacy.t', line 31 ]===
undef
===( $+{bar} )===============================[ 'show_legacy.t', line 35 ]===
"foo"
|
