1print "1..3\n";
2
3use Data::Dump qw(dump);
4
5$a = 42;
6@a = (\$a);
7
8$d = dump($a, $a, \$a, \\$a, "$a", $a+0, \@a);
9
10print "$d;\n";
11
12print "not " unless $d eq q(do {
13  my $a = 42;
14  ($a, $a, \\$a, \\\\$a, 42, 42, [\\$a]);
15});
16print "ok 1\n";
17
18$d = dump(\\$a, \$a, $a, \@a);
19print "$d;\n";
20
21print "not " unless $d eq q(do {
22  my $a = \\\\42;
23  ($a, $$a, $$$a, [$$a]);
24});
25print "ok 2\n";
26
27# not really a scalar test, but anyway
28$a = [];
29$d = dump(\$a, $a);
30
31print "$d;\n";
32print "not " unless $d eq q(do {
33  my $a = \[];
34  ($a, $$a);
35});
36print "ok 3\n";
37