1N/A#!./perl -- -*- mode: cperl; cperl-indent-level: 4 -*- 1N/A chdir 't' if -d 't'; 1N/A &main::dumpValue(\@params,-1); 1N/Ause overload '""' => sub { "Bar<@{$_[0]}>" }; 1N/A # TODO: dumpvar::stringify() is controlled by a pile of package 1N/A # and so forth. We need to test with various settings of those. 1N/Auniescape("\x{100}"); 1N/A/^'SCALAR\(0x[0-9a-f]+\)'$/i 1N/A/^'ARRAY\(0x[0-9a-f]+\)'$/i 1N/A/^'HASH\(0x[0-9a-f]+\)'$/i 1N/A/^'CODE\(0x[0-9a-f]+\)'$/i 1N/A/^'GLOB\(0x[0-9a-f]+\)'$/i 1N/A/^'Foo=ARRAY\(0x[0-9a-f]+\)'$/i 1N/A/^'Bar=ARRAY\(0x[0-9a-f]+\)'$/i 1N/AdumpValue("\x{100}"); 1N/Adumpvalue("\x{100}"); 1N/A/0 SCALAR\(0x[0-9a-f]+\)\n -> undef\n/i 1N/A/0 REF\(0x[0-9a-f]+\)\n -> SCALAR\(0x[0-9a-f]+\)\n -> undef\n/i 1N/A/0 ARRAY\(0x[0-9a-f]+\)\n empty array/i 1N/A/0 HASH\(0x[0-9a-f]+\)\n\s+empty hash/i 1N/A/0 CODE\(0x[0-9a-f]+\)\n -> &CODE\(0x[0-9a-f]+\) in /i 1N/A/0 GLOB\(0x[0-9a-f]+\)\n -> \*main::a\n/i 1N/A/0 Foo=ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n 4 5\n/i 1N/A/0 Bar=ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n 4 5\n/i 1N/A/0 ARRAY\(0x[0-9a-f]+\)\n 0 1\n 1 2\n 2 3\n 3 4\n/i 1N/A/0 HASH\(0x[0-9a-f]+\)\n 1 => 2\n 3 => 4\n/i 1N/Adumpvalue({1=>2,3=>4}); 1N/A/0 HASH\(0x[0-9a-f]+\)\n 1 => 2\n 3 => 4\n/i 1N/Adumpvalue({a=>1,b=>2}); 1N/A/0 HASH\(0x[0-9a-f]+\)\n 'a' => 1\n 'b' => 2\n/i 1N/Adumpvalue([{a=>[1,2,3],b=>{c=>1,d=>2}},{e=>{f=>1,g=>2},h=>[qw(i j k)]}]); 1N/A/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 1N/Adumpvalue({reverse map {$_=>1} sort qw(the quick brown fox)}) 1N/A/0 HASH\(0x[0-9a-f]+\)\n 1 => 'brown'\n/i 1N/Amy @x=qw(a b c); dumpvalue(\@x); 1N/A/0 ARRAY\(0x[0-9a-f]+\)\n 0 'a'\n 1 'b'\n 2 'c'\n/i 1N/Amy %x=(a=>1, b=>2); dumpvalue(\%x); 1N/A/0 HASH\(0x[0-9a-f]+\)\n 'a' => 1\n 'b' => 2\n/i