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
|
#!perl -w
use strict;
use Test qw(plan ok);
plan tests => 38;
use Data::Dump qw(dump);
ok(dump(), "()");
ok(dump("abc"), qq("abc"));
ok(dump("1\n"), qq("1\\n"));
ok(dump(undef), "undef");
ok(dump(0), "0");
ok(dump(1234), "1234");
ok(dump(12345), "12345");
ok(dump(12345678), "12345678");
ok(dump(123456789012345), "123456789012345");
ok(dump(0.333), "0.333");
ok(dump(1/3), qr/^0\.3+\z/);
ok(dump(-33), "-33");
ok(dump(-1.5), "-1.5");
ok(dump("Inf"), qq("Inf"));
ok(dump("-Inf"), qq("-Inf"));
ok(dump("nan"), qq("nan"));
ok(dump("NaN"), qq("NaN"));
ok(dump("0123"), qq("0123"));
ok(dump(1..2), "(1, 2)");
ok(dump(1..3), "(1, 2, 3)");
ok(dump(1..4), "(1 .. 4)");
ok(dump(1..5,6,8,9), "(1 .. 6, 8, 9)");
ok(dump(1..5,4..8), "(1 .. 5, 4 .. 8)");
ok(dump([-2..2]), "[-2 .. 2]");
ok(dump(["a0" .. "z9"]), qq(["a0" .. "z9"]));
ok(dump(["x", 0, 1, 2, 3, "a", "b", "c", "d"]), qq(["x", 0 .. 3, "a" .. "d"]));
ok(dump({ a => 1, b => 2 }), "{ a => 1, b => 2 }");
ok(dump({ 1 => 1, 2 => 1, 10 => 1 }), "{ 1 => 1, 2 => 1, 10 => 1 }");
ok(dump({ 0.14 => 1, 1.8 => 1, -0.5 => 1 }), qq({ "-0.5" => 1, "0.14" => 1, "1.8" => 1 }));
ok(dump({ "1,1" => 1, "1,2" => 1 }), qq({ "1,1" => 1, "1,2" => 1 }));
ok(dump({ a => 1, aa => 2, aaa => join("", "a" .. "z", "a" .. "z")}) . "\n", <<EOT);
{
a => 1,
aa => 2,
aaa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
}
EOT
ok(dump({ a => 1, aa => 2, aaaaaaaaaaaaaa => join("", "a" .. "z", "a" .. "z")}) . "\n", <<EOT);
{
a => 1,
aa => 2,
aaaaaaaaaaaaaa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
}
EOT
ok(dump(bless {}, "foo"), "bless({}, \"foo\")");
ok(dump(bless [], "foo"), "bless([], \"foo\")");
my $sv = [];
ok(dump(bless \$sv, "foo"), "bless(do{\\(my \$o = [])}, \"foo\")");
ok(dump(bless { a => 1, aa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz", aaa => \$sv}, "foo") . "\n", <<'EOT');
bless({
a => 1,
aa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
aaa => bless(do{\(my $o = [])}, "foo"),
}, "foo")
EOT
# stranger stuff
ok(dump({ a => \&Data::Dump::dump, aa => do {require Symbol; Symbol::gensym()}}),
"do {\n require Symbol;\n { a => sub { ... }, aa => Symbol::gensym() };\n}");
ok(dump(bless{}, "foo=bar"), 'bless({}, "foo=bar")');
|
