1 #!./perl -- -*- mode: cperl; cperl-indent-level: 4 -*-
15 @prgs = split "########\n", <DATA>;
21 plan tests => scalar @prgs;
25 sub unctrl { print dumpvar::unctrl($_[0]), "\n" }
26 sub uniescape { print dumpvar::uniescape($_[0]), "\n" }
27 sub stringify { print dumpvar::stringify($_[0]), "\n" }
33 &main::dumpValue(\@params, -1);
38 sub new { my $class = shift; bless [ @_ ], $class }
42 sub new { my $class = shift; bless [ @_ ], $class }
44 use overload '""' => sub { "Bar<@{$_[0]}>" };
48 my $foo = Foo->new(1..5);
49 my $bar = Bar->new(1..5);
52 my($prog, $expected) = split(/\nEXPECT\n?/, $_);
53 # TODO: dumpvar::stringify() is controlled by a pile of package
54 # dumpvar variables: $printUndef, $unctrl, $quoteHighBit, $bareStringify,
55 # and so forth. We need to test with various settings of those.
56 my $out = tie *STDOUT, 'TieOut';
61 ok(0, "$prog - $ERR");
63 if ($expected =~ m:^/:) {
64 like($$out, $expected, $prog);
66 is($$out, $expected, $prog);
74 bless( \(my $self), $_[0] );
79 $$self .= join('', @_);
84 substr( $$self, 0, length($$self), '' );
100 uniescape("\x{100}");
122 /^'SCALAR\(0x[0-9a-f]+\)'$/i
126 /^'ARRAY\(0x[0-9a-f]+\)'$/i
130 /^'HASH\(0x[0-9a-f]+\)'$/i
134 /^'CODE\(0x[0-9a-f]+\)'$/i
138 /^'GLOB\(0x[0-9a-f]+\)'$/i
142 /^'Foo=ARRAY\(0x[0-9a-f]+\)'$/i
146 /^'Bar=ARRAY\(0x[0-9a-f]+\)'$/i
160 dumpValue("\x{100}");
164 dumpValue("1\n2\n3");
205 dumpvalue("\x{100}");
219 /0 SCALAR\(0x[0-9a-f]+\)\n -> undef\n/i
223 /0 REF\(0x[0-9a-f]+\)\n -> SCALAR\(0x[0-9a-f]+\)\n -> undef\n/i
227 /0 ARRAY\(0x[0-9a-f]+\)\n empty array/i
231 /0 HASH\(0x[0-9a-f]+\)\n\s+empty hash/i
235 /0 CODE\(0x[0-9a-f]+\)\n -> &CODE\(0x[0-9a-f]+\) in /i
239 /0 GLOB\(0x[0-9a-f]+\)\n -> \*main::a\n/i
243 /0 Foo=ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n 4 5\n/i
247 /0 Bar=ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n 4 5\n/i
255 /0 ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n/i
259 /0 HASH\(0x[0-9a-f]+\)\n 1 => 2\n 3 => 4\n/i
261 dumpvalue({1=>2,3=>4});
263 /0 HASH\(0x[0-9a-f]+\)\n 1 => 2\n 3 => 4\n/i
265 dumpvalue({a=>1,b=>2});
267 /0 HASH\(0x[0-9a-f]+\)\n 'a' => 1\n 'b' => 2\n/i
269 dumpvalue([{a=>[1,2,3],b=>{c=>1,d=>2}},{e=>{f=>1,g=>2},h=>[qw(i j k)]}]);
271 /0 ARRAY\(0x[0-9a-f]+\)\n 0 HASH\(0x[0-9a-f]+\)\n 'a' => ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 'b' => HASH\(0x[0-9a-f]+\)\n 'c' => 1\n 'd' => 2\n 1 HASH\(0x[0-9a-f]+\)\n 'e' => HASH\(0x[0-9a-f]+\)\n 'f' => 1\n 'g' => 2\n 'h' => ARRAY\(0x[0-9a-f]+\)\n 0 'i'\n 1 'j'\n 2 'k'/i
273 dumpvalue({reverse map {$_=>1} sort qw(the quick brown fox)})
275 /0 HASH\(0x[0-9a-f]+\)\n 1 => 'brown'\n/i
277 my @x=qw(a b c); dumpvalue(\@x);
279 /0 ARRAY\(0x[0-9a-f]+\)\n 0 'a'\n 1 'b'\n 2 'c'\n/i
281 my %x=(a=>1, b=>2); dumpvalue(\%x);
283 /0 HASH\(0x[0-9a-f]+\)\n 'a' => 1\n 'b' => 2\n/i