6 use Test
::More tests
=> 56;
11 die "Cannot load Data::Peek\n" if $@
; # BAIL_OUT not avail in old Test::More
14 my ($dump, $var) = ("", "");
17 my ($v, $exp, $re) = split m/\t+ */;
24 $v =~ s/^S:([^:]*):// and DDsort
($1), $v =~ m/^()/; # And reset $1 for below
28 ok
($dump = DDumper
($var), "DDumper ($v)");
29 $dump =~ s/\A\$VAR1 = //;
33 like
($dump, qr{$exp}ms, ".. content $re");
34 $1 and print STDERR
"# '$1' (", length ($1), ")\n";
37 is
($dump, $exp, ".. content");
61 [0,1,2] \A\[\n\s+0,\n\s+1,\n\s+2\n\s+]\Z line splitting
63 [0] \A\[\n 0\n ]\Z single indent
64 [[0],{foo=>1}] ^\[\n outer list
65 ^ {4}\[\n {8}0\n {8}],\n {4} inner list
66 ^ {4}\{\n {8}foo {14}=> 1\n {8}}\n inner hash
67 ^ {4}]\Z outer list end
68 [[0],{foo=>1}] \A\[\n {4}\[\n {8}0\n {8}],\n {4}\{\n {8}foo {14}=> 1\n {8}}\n {4}]\Z full struct
70 S:1:{ab=>1,bc=>2,cd=>3,de=>13} ab.*bc.*cd.*de default sort
71 S:R:{ab=>1,bc=>2,cd=>3,de=>13} de.*cd.*bc.*ab reverse sort
72 S:V:{ab=>1,bc=>2,cd=>3,de=>13} 1.*13.*2.*3 sort by value
73 S:VR:{ab=>1,bc=>2,cd=>3,de=>13} 3.*2.*13.*1 reverse sort by value
74 S:VN:{ab=>1,bc=>2,cd=>3,de=>13} 1.*2.*3.*13 sort by value numeric
75 S:VNR:{ab=>1,bc=>2,cd=>3,d=>13} 13.*3.*2.*1 reverse sort by value numeric