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
|
use Smart::Comments;
use Test::More 'no_plan';
close *STDERR;
my $STDERR = q{};
open *STDERR, '>', \$STDERR;
my $scalar = 'scalar value';
my @array = (1..3);
my %hash = ('a'..'d');
### $scalar
### @array;
### %hash
my $expected = <<"END_MESSAGES";
#\## \$scalar: 'scalar value'
#\## \@array: [
#\## 1,
#\## 2,
#\## 3
#\## ]
#\## \%hash: {
#\## a => 'b',
#\## c => 'd'
#\## }
END_MESSAGES
is $STDERR, $expected => 'Simple variables work';
close *STDERR;
$STDERR = q{};
open *STDERR, '>', \$STDERR;
### scalars: $scalar
### arrays: @array
### and hashes too: %hash
my $expected2 = <<"END_MESSAGES";
#\## scalars: 'scalar value'
#\## arrays: [
#\## 1,
#\## 2,
#\## 3
#\## ]
#\## and hashes too: {
#\## a => 'b',
#\## c => 'd'
#\## }
END_MESSAGES
is $STDERR, $expected2 => 'Labelled variables work';
|
