1#!perl -w 2 3use strict; 4use Test; 5plan tests => 9; 6 7use Data::Dump qw(dump); 8 9my $DOTS = "." x 20; 10 11ok(dump({}), "{}"); 12ok(dump({ a => 1}), "{ a => 1 }"); 13ok(dump({ 1 => 1}), "{ 1 => 1 }"); 14ok(dump({strict => 1, shift => 2, abc => 3, -f => 4 }), 15 "{ -f => 4, abc => 3, shift => 2, strict => 1 }"); 16ok(dump({supercalifragilisticexpialidocious => 1, a => 2}), 17 "{ a => 2, supercalifragilisticexpialidocious => 1 }"); 18ok(dump({supercalifragilisticexpialidocious => 1, a => 2, b => $DOTS})."\n", <<EOT); 19{ 20 a => 2, 21 b => "$DOTS", 22 supercalifragilisticexpialidocious => 1, 23} 24EOT 25ok(dump({aa => 1, B => 2}), "{ aa => 1, B => 2 }"); 26ok(dump({a => 1, bar => $DOTS, baz => $DOTS, foo => 2 })."\n", <<EOT); 27{ 28 a => 1, 29 bar => "$DOTS", 30 baz => "$DOTS", 31 foo => 2, 32} 33EOT 34ok(dump({a => 1, "b-z" => 2}), qq({ "a" => 1, "b-z" => 2 })); 35