1 files changed, 51 insertions, 24 deletions
diff --git a/t/003_dump.t b/t/003_dump.t
index 02a61ad..3c1212d 100644
--- a/t/003_dump.t
+++ b/t/003_dump.t
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 12;
+use Test::More tests => 17;
 
 BEGIN { use_ok( 'Package::New::Dump' ); }
 
@@ -20,30 +20,57 @@ is(Bar->bar,     "baz", "class method");
 is($object->baz, "buz", "object method");
 is(Bar->baz,     "buz", "class method");
 
-if ($ENV{"DEVELOPER"}) {
-  diag("Dump Level 1");
-  diag($object->dump(1));
-  diag("Dump Level default");
-  diag($object->dump);
-  diag("Dump Level 2");
-  diag($object->dump(2));
-  diag("Dump Level 3");
-  diag($object->dump(3));
-  diag("Dump Level 4");
-  diag($object->dump(4));
-  diag("Dump Level 0");
-  diag($object->dump(0));
+{
+  my $dump = $object->dump(1);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>'HASH(XXX)'},'Bar');});
 }
 
-package #hide
-Foo;
-use base qw{Package::New::Dump};
-sub bar {"baz"};
-1;
+{
+  my $dump = $object->dump();
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
 
-package #hide
-Bar;
-use base qw{Foo};
-sub baz {"buz"};
-1;
+{
+  my $dump = $object->dump(undef);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
 
+{
+  my $dump = $object->dump(2);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  $dump =~ s/0x[0-9a-f]+/XXX/;
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>'HASH(XXX)'}},'Bar');});
+}
+
+{
+  my $dump = $object->dump(0);
+  diag($dump);
+  $dump =~ s/\s+//g; #white space compress
+  is($dump, q{$VAR1=bless({'one'=>{'two'=>{'three'=>{'four'=>{}}}}},'Bar');});
+}
+
+{
+  package #hide
+  Foo;
+  use base qw{Package::New::Dump};
+  sub bar {"baz"};
+  1;
+}
+
+{
+  package #hide
+  Bar;
+  use base qw{Foo};
+  sub baz {"buz"};
+  1;
+}