BEGIN {
chdir 't' if -d 't';
- unshift @INC, '../lib' if -d '../lib';
+ @INC = '../lib';
+ require Config; import Config;
+ if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
+ print "1..0 # Skip: Data::Dumper was not built\n";
+ exit 0;
+ }
}
use Data::Dumper;
#$a = [
# 1,
# {
-# 'a' => $a,
-# 'b' => $a->[1],
# 'c' => [
# 'c'
-# ]
+# ],
+# 'a' => $a,
+# 'b' => $a->[1]
# },
# $a->[1]{'c'}
# ];
#@a = (
# 1,
# {
-# 'a' => [],
-# 'b' => {},
# 'c' => [
# 'c'
-# ]
+# ],
+# 'a' => [],
+# 'b' => {}
# },
# []
# );
##
$WANT = <<'EOT';
#%b = (
+# 'c' => [
+# 'c'
+# ],
# 'a' => [
# 1,
# {},
-# [
-# 'c'
-# ]
+# []
# ],
-# 'b' => {},
-# 'c' => []
+# 'b' => {}
# );
#$b{'a'}[1] = \%b;
+#$b{'a'}[2] = $b{'c'};
#$b{'b'} = \%b;
-#$b{'c'} = $b{'a'}[2];
#$a = $b{'a'};
EOT
#$a = [
# 1,
# {
+# 'c' => [],
# 'a' => [],
-# 'b' => {},
-# 'c' => []
+# 'b' => {}
# },
# []
#];
+#$a->[1]{'c'} = \@c;
#$a->[1]{'a'} = $a;
#$a->[1]{'b'} = $a->[1];
-#$a->[1]{'c'} = \@c;
#$a->[2] = \@c;
#$b = $a->[1];
EOT
# 1,
# #1
# {
-# a => $a,
-# b => $a->[1],
# c => [
# #0
# 'c'
-# ]
+# ],
+# a => $a,
+# b => $a->[1]
# },
# #2
# $a->[1]{c}
#$VAR1 = [
# 1,
# {
-# 'a' => [],
-# 'b' => {},
# 'c' => [
# 'c'
-# ]
+# ],
+# 'a' => [],
+# 'b' => {}
# },
# []
#];
#[
# 1,
# {
-# a => $VAR1,
-# b => $VAR1->[1],
# c => [
# 'c'
-# ]
+# ],
+# a => $VAR1,
+# b => $VAR1->[1]
# },
# $VAR1->[1]{c}
#]
##
$WANT = <<'EOT';
#$VAR1 = {
+# "reftest" => \\1,
# "abc\0'\efg" => "mno\0"
#};
EOT
-$foo = { "abc\000\'\efg" => "mno\000" };
+$foo = { "abc\000\'\efg" => "mno\000",
+ "reftest" => \\1,
+ };
{
local $Data::Dumper::Useqq = 1;
TEST q(Dumper($foo));
$WANT = <<"EOT";
#\$VAR1 = {
+# 'reftest' => \\\\1,
# 'abc\0\\'\efg' => 'mno\0'
#};
EOT
# do{my $o},
# #2
# {
+# 'c' => [],
# 'a' => 1,
# 'b' => do{my $o},
-# 'c' => [],
# 'd' => {}
# }
# ];
#*::foo{ARRAY}->[1] = $foo;
-#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
#*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
+#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
#*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
#*::foo = *::foo{ARRAY}->[2];
#@bar = @{*::foo{ARRAY}};
# -10,
# do{my $o},
# {
+# 'c' => [],
# 'a' => 1,
# 'b' => do{my $o},
-# 'c' => [],
# 'd' => {}
# }
#];
#*::foo{ARRAY}->[1] = $foo;
-#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
#*::foo{ARRAY}->[2]{'c'} = *::foo{ARRAY};
+#*::foo{ARRAY}->[2]{'b'} = *::foo{SCALAR};
#*::foo{ARRAY}->[2]{'d'} = *::foo{ARRAY}->[2];
#*::foo = *::foo{ARRAY}->[2];
#$bar = *::foo{ARRAY};
#*::foo = \5;
#*::foo = \@bar;
#*::foo = {
+# 'c' => [],
# 'a' => 1,
# 'b' => do{my $o},
-# 'c' => [],
# 'd' => {}
#};
-#*::foo{HASH}->{'b'} = *::foo{SCALAR};
#*::foo{HASH}->{'c'} = \@bar;
+#*::foo{HASH}->{'b'} = *::foo{SCALAR};
#*::foo{HASH}->{'d'} = *::foo{HASH};
#$bar[2] = *::foo{HASH};
#%baz = %{*::foo{HASH}};
#*::foo = \5;
#*::foo = $bar;
#*::foo = {
+# 'c' => [],
# 'a' => 1,
# 'b' => do{my $o},
-# 'c' => [],
# 'd' => {}
#};
-#*::foo{HASH}->{'b'} = *::foo{SCALAR};
#*::foo{HASH}->{'c'} = $bar;
+#*::foo{HASH}->{'b'} = *::foo{SCALAR};
#*::foo{HASH}->{'d'} = *::foo{HASH};
#$bar->[2] = *::foo{HASH};
#$baz = *::foo{HASH};
# -10,
# $foo,
# {
+# c => \@bar,
# a => 1,
# b => \5,
-# c => \@bar,
# d => $bar[2]
# }
#);
# -10,
# $foo,
# {
+# c => $bar,
# a => 1,
# b => \5,
-# c => $bar,
# d => $bar->[2]
# }
#];
##
$WANT = <<'EOT';
#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
+# Second => \'Wags',
+# First => \'Fido'
#);
#@dogs = (
# ${$kennels{First}},
##
$WANT = <<'EOT';
#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
+# Second => \'Wags',
+# First => \'Fido'
#);
#@dogs = (
# ${$kennels{First}},
# 'Fido',
# 'Wags',
# {
-# First => \$dogs[0],
-# Second => \$dogs[1]
+# Second => \$dogs[1],
+# First => \$dogs[0]
# }
#);
#%kennels = %{$dogs[2]};
# 'Fido',
# 'Wags',
# {
-# First => \'Fido',
-# Second => \'Wags'
+# Second => \'Wags',
+# First => \'Fido'
# }
#);
#%kennels = (
-# First => \'Fido',
-# Second => \'Wags'
+# Second => \'Wags',
+# First => \'Fido'
#);
EOT